为何无法给excel设置密码？

Question

我已经完成了下面的操作：

打开Excel。

点击“文件”菜单。

选择“选项”。

在“选项”对话框中，选择“信任中心”。

点击“信任中心设置”按钮。

进入“宏设置”部分。

勾选“信任对 VBA 项目对象模型的访问”。

点击“确定”保存设置。

然后，重新打开excel

Sub SetWorkbookPassword()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ws.Protect Password:="123456"
End Sub

运行后，返回到第一个工作表，密码不起作用？关闭这个表格，再打开，密码保护还是不起作用？

Answer 1

在运行宏之前，检查工作表是否已经被保护。你可以在宏中添加一行代码来取消保护，然后再重新保护：

Sub SetWorkbookPassword()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ws.Unprotect
    ws.Protect Password:="123456"
End Sub