从另一个VBA编辑受保护的工作表

Question

我正在用Excel在书中做一个标记，用VBA编写代码。我有一个选项卡和表单来键入您的信息，另一个选项卡用于登录时存储的详细信息，另一个选项卡用于搜索已登录的用户。我保护了Sheet1(登录)，也需要Sheet2(日志簿)的保护。

问题问题是，在Sheet2(日志簿)上，我希望VBA能够在下一个可用的行中添加用户的信息，同时保护它，这样就没有人可以查看和更改其他信息了。以下是我尝试过的失败代码：

Private Sub Worksheet_Open()
    Worksheet.Protect "Password", UserInterfaceOnly:=True
End Sub

wksht unportect()/wksht protect()

这两个都不起作用。不然我怎么能做到这一点？

Answer 1

您需要定义要保护的工作表。在下面的示例中，我将对象变量WrkSht设置为包含工作表“日志簿”的工作表属性。可以通过对此对象变量使用“保护”方法来保护工作表。

Sub ProtectWorksheet()
    Dim WrkSht As Worksheet
    Set WrkSht = ActiveWorkbook.Sheets("Log Book")

    WrkSht.Protect Password:="password", UserInterfaceOnly:=True
End Sub