带密码保护工作表中ActiveX按钮触发时，手动与VBA密码不匹配求助

嗨，这问题我碰过好多次了！你遇到的其实是Excel工作表保护的加密机制差异坑——手动右键设置的保护密码，和VBA代码里用Protect方法设的密码，底层加密逻辑完全不一样，所以根本没法互相解锁。

手动通过右键设置工作表保护时，Excel用的是带哈希处理的现代加密方式；而VBA里的Worksheet.Protect方法默认用的是旧版的简单加密逻辑（甚至部分旧版本只是存明文哈希），两者的密码验证规则不匹配，自然就出现了“你不认我、我不认你”的情况。

给你两个靠谱的处理方向，按需选就行：

方案一：全程用VBA管理保护（推荐！） #

既然要配合ActiveX按钮的VBA动作，干脆统一用代码来处理工作表的保护和解锁，逻辑一致就不会出问题。

比如你的ActiveX切换按钮代码可以改成这样：

Private Sub ToggleButton1_Click()
    Dim targetWs As Worksheet
    Set targetWs = Me '这里的Me指代按钮所在的工作表
    
    '先解锁工作表
    targetWs.Unprotect Password:="你的专属密码"
    
    '===== 这里放按钮要执行的核心操作 =====
    '举个例子：如果按钮是控制A列是否可编辑
    targetWs.Columns("A").Locked = Not ToggleButton1.Value
    '=====================================
    
    '操作完成后重新保护，关键参数看这里！
    targetWs.Protect _
        Password:="你的专属密码", _
        UserInterfaceOnly:=True
End Sub

敲黑板！UserInterfaceOnly:=True这个参数一定要加！它的作用是：只限制用户手动操作工作表，VBA代码可以直接对受保护的工作表进行读写，不用每次都先解锁再保护。
唯一要注意的是：这个设置在Excel重启后会失效，你可以在工作簿的Workbook_Open事件里加一段代码，每次打开文件时自动重新应用保护，确保参数生效：

Private Sub Workbook_Open()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Protect Password:="你的专属密码", UserInterfaceOnly:=True
    Next ws
End Sub

方案二：强行让手动保护和VBA解锁兼容（不推荐） #

如果你非要保留手动设置保护的习惯，也可以用API读取手动保护的密码，但这种方法安全性极低，而且依赖Excel的窗口结构，版本更新后很容易失效，只适合临时测试用：

'先把这段API声明放在模块的最顶部
Private Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As LongPtr) As Long
Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Sub UnprotectManualSheet()
    Dim dialogHwnd As LongPtr, inputHwnd As LongPtr
    Dim password As String, passLength As Long
    
    '弹出手动保护的对话框
    Application.Dialogs(xlDialogProtectDocument).Show
    
    '定位对话框窗口
    dialogHwnd = FindWindow("#32770", "保护工作表")
    If dialogHwnd = 0 Then Exit Sub
    
    '定位密码输入框
    inputHwnd = FindWindowEx(dialogHwnd, 0, "Edit", vbNullString)
    If inputHwnd = 0 Then Exit Sub
    
    '读取输入框里的密码
    passLength = GetWindowTextLength(inputHwnd) + 1
    password = String(passLength, Chr(0))
    GetWindowText inputHwnd, password, passLength
    password = Left(password, passLength - 1)
    
    '关闭对话框，用读取到的密码解锁
    SendKeys "{ESC}"
    ActiveSheet.Unprotect password
End Sub

警告：这种方法相当于明文读取密码，非常不安全，而且Excel版本更新后，窗口控件的结构可能变化，代码直接失效，强烈不推荐在正式场景使用。

最稳妥、最安全的做法还是方案一，全程用VBA管理工作表保护，配合UserInterfaceOnly:=True参数，既能满足ActiveX按钮的操作需求，又能避免密码不兼容的问题，还能保证工作表的安全性。

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