带隐藏工作表的工作簿VBA解锁代码问题及宏按钮报错求助

核心问题分析 #

1. 恢复隐藏工作表失效：

   • 遍历originalState集合时逻辑错误：For Each tab In originalState遍历的是集合中的可见性状态值，而非工作表名称；后续用originalState(tab)取值、以及无意义的Replace操作完全错误，根本无法定位到目标工作表。
   • 仅在工作表有保护时才记录状态，若原本隐藏的工作表未设保护，会被遗漏，导致无法恢复。

2. 按钮运行时1004错误：

   • 使用ActiveWorkbook.Unprotect而非ThisWorkbook.Unprotect，按钮点击时的上下文可能导致ActiveWorkbook不是代码所在的工作簿（比如其他工作簿被激活）；且该语句放在工作表循环内，重复执行无意义，还可能触发权限问题。
   • 激活工作表的操作（ws.Activate）并非解锁工作表的必要步骤，反而可能干扰上下文。

修正后的代码 #

Sub UnlockSheets()
    Dim password As String
    password = InputBox("Enter the password")
   
    ' 改用字典存储工作表名和对应的原始可见性状态（比Collection更直观）
    Dim originalState As Object
    Set originalState = CreateObject("Scripting.Dictionary")
    
    Dim activeSheet As Worksheet
    Set activeSheet = ActiveSheet
    
    ' 先解锁工作簿（只执行一次）
    On Error Resume Next
    ThisWorkbook.Unprotect Password:=password
    On Error GoTo 0
    
    ' 遍历所有工作表，记录状态并解锁
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ' 记录所有工作表的原始可见性状态，不管是否保护
        originalState(ws.Name) = ws.Visible
        
        ' 先显示隐藏的工作表，再尝试解锁
        If ws.Visible <> xlSheetVisible Then
            ws.Visible = xlSheetVisible
        End If
        
        On Error Resume Next
        ws.Unprotect Password:=password
        On Error GoTo 0
    Next ws

    ' 返回原激活工作表
    activeSheet.Activate

    ' 恢复原始可见性状态
    Dim wsName As Variant
    For Each wsName In originalState.Keys
        On Error Resume Next
        ThisWorkbook.Worksheets(wsName).Visible = originalState(wsName)
        On Error GoTo 0
    Next wsName
End Sub

关键修复点说明 #

• 替换集合为字典：字典可以直接通过工作表名作为键存储状态，遍历键即可精准定位工作表，避免集合遍历的逻辑混乱。
• 调整工作簿解锁时机：将ThisWorkbook.Unprotect移到循环外，仅执行一次，避免重复操作导致的错误，同时用ThisWorkbook替代ActiveWorkbook，确保操作的是代码所在的工作簿。
• 记录所有工作表状态：不管工作表是否保护，都记录原始可见性，避免遗漏未保护的隐藏工作表。
• 移除不必要的激活操作：解锁工作表不需要先激活，去掉ws.Activate减少上下文干扰。
• 修复恢复逻辑：直接遍历字典的键（工作表名），设置对应的可见性状态，删除无意义的Replace代码。

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