Excel全局常量声明设置问题：工作表保护失效排查

核心问题 #

你的代码存在两个关键问题，导致工作表保护未正确生效：

1. 常量作用域错误：Const Pass 定义在 SetConstants 子过程内部，属于局部常量，仅能在该过程内访问。Protect 和 Unprotect 过程无法读取这个值，实际执行时相当于使用空密码保护工作表，所以手动取消时无需输入密码。
2. 语法错误：Protect 过程的第二行末尾多了一个逗号，会导致代码编译失败，该过程根本没有正常执行。

修正后的代码 #

首先，在标准模块（而非ThisWorkbook模块）的顶部定义全局常量，确保所有过程都能访问：

' 标准模块顶部，定义全局常量
Public Const Pass As String = "QEOps"

Private Sub Workbook_Open()
    ' 无需再调用SetConstants，常量已全局生效
End Sub

Sub Protect()
    ThisWorkbook.Worksheets("Start").Protect Password:=Pass
    ' 移除末尾多余的逗号，修正语法
    ThisWorkbook.Worksheets("Cognos Trans by Date w Lot").Protect Password:=Pass, AllowSorting:=True
End Sub

Sub Unprotect()
    ThisWorkbook.Worksheets("Start").Unprotect Password:=Pass
    ThisWorkbook.Worksheets("Cognos Trans by Date w Lot").Unprotect Password:=Pass
End Sub

关键说明 #

• 全局常量定义：将Public Const Pass放在标准模块的最顶部（所有子过程之外），这样所有模块的子过程都能直接读取该常量值。
• 移除冗余代码：SetConstants 过程已无存在必要，可以直接删除，因为全局常量在工作簿打开时就会自动初始化。
• 语法修正：删除Protect过程中第二行末尾的多余逗号，确保代码能正常编译执行。

执行修正后的Protect过程后，工作表会以QEOps为密码进行保护，手动取消时需要输入正确密码才能解锁。

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