移除EXCEL中单元格保护的密码

首先接触EXCEL宏安全性,建议先设置为【低】,处理后再重新设置回去。然后新建1个宏,复制下面代码后,执行。

Private Function AllInternalPasswords()
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With