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设置为包含工作表属性“Log Book”。您可以使用此对象变量上的protect-method来保护工作表。

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

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

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

1 个答案: