如何解决带密码保护的Sheet1和Sheet2无法用VBA删除的问题

核心失败原因 #

• 受密码保护的工作表无法直接执行删除操作，你的代码未先解除Sheet1和Sheet2的保护，这是执行失败的关键。
• 代码中Sheets(Array(1,2))依赖工作表索引定位，若工作表顺序被修改，索引会不匹配，建议直接用工作表名称更可靠。

修正后的代码 #

需先解除目标工作表的保护（需知晓保护密码），再执行删除操作，同时记得恢复系统提示：

Private Sub CommandButton1_Click()
    Dim protectPwd As String
    
    ' 替换为Sheet1和Sheet2的保护密码
    protectPwd = "你的密码"
    
    ' 解除目标工作表保护，错误处理避免密码错误中断程序
    On Error Resume Next
    Sheets("Sheet1").Unprotect Password:=protectPwd
    Sheets("Sheet2").Unprotect Password:=protectPwd
    On Error GoTo 0
    
    Application.DisplayAlerts = False
    ' 按名称删除，避免索引变化导致的定位错误
    Sheets(Array("Sheet1", "Sheet2")).Delete
    Application.DisplayAlerts = True ' 恢复系统提示，防止后续操作异常
End Sub

额外说明 #

• 若不知道保护密码，无法通过常规VBA解除保护，需借助合规的密码破解工具或方法（仅处理自身有权限的文件）。
• 务必恢复Application.DisplayAlerts = True，否则后续操作的系统提示会被屏蔽，易引发误操作。

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