VBA 解除工作表密码

工作表加密密码如果忘记可以使用如下方法进行破解

1. 破解工作簿中所有工作表密码

在标准模块中贴入下记代码并执行

Option Explicit

Sub WsUnlock()
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        ws.Protect AllowFiltering:=True
        ws.Unprotect
    Next
    
End Sub

破解单个工作表密码

如果要破解单个工作表，可以在VBE中Ctrl+G调出立即执行窗口，在立即窗口中执行下面两句代码即可（假如是Sheet1工作表）：

Sheet1.Protect AllowFiltering:=True
Sheet1.Unprotect

破解工程密码的话可以参照：VBA 破解VBA工程密码代码备忘-CSDN博客