Excel 2016中Workbook事件触发工作簿保护自动执行失效求助

嘿，我立刻就发现问题出在哪了——你的ThisWorkbook.Protect方法参数写法完全错了！

你写的代码里：

ThisWorkbook.Protect (password = "password")

这里括号里的password = "password"是一个赋值操作，它会把字符串"password"赋值给一个未声明的变体变量password，然后返回布尔值True。相当于你实际调用的是ThisWorkbook.Protect True，根本没把正确的密码传递给方法，也没指定要保护工作簿结构（这才是锁定Power Query的关键），自然不会生效。

而你在通用模块或工作表对象里手动运行的代码应该是正确写法（比如直接传密码字符串），所以才能正常工作。

正确的代码写法 #

要实现打开/关闭工作簿时自动保护Power Query，你需要：

1. 正确传递密码参数
2. 开启工作簿结构保护（Power Query查询属于工作簿结构的一部分）

修改后的代码如下：

Workbook_Open 事件

Private Sub Workbook_Open()
    ' 保护工作簿结构（锁定Power Query、工作表增删等），设置密码
    ThisWorkbook.Protect Password:="password", Structure:=True
    ' 如果需要同时锁定窗口大小/位置，加上 Windows:=True
    ' ThisWorkbook.Protect Password:="password", Structure:=True, Windows:=True
End Sub

Workbook_BeforeClose 事件

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Protect Password:="password", Structure:=True
    ThisWorkbook.Save
End Sub

额外说明 #

• 使用命名参数（比如Password:="password"）能大幅降低参数传递错误的概率，尤其当方法有多个可选参数时。
• 只有开启Structure:=True，才能阻止用户修改、删除或新建Power Query查询，因为这些操作都属于工作簿结构变更。
• 如果工作簿已经处于保护状态，重复调用Protect方法不会报错，所以不需要额外判断保护状态。

内容的提问来源于stack exchange，提问作者YariLei