好久不用的工作表之前设了密码忘记怎么办,简单几句代码运行即可消除。
工作表密码:
Sub 清除工作表密码()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Protect AllowFiltering:=True
sht.Unprotect
Next
End Sub
工作簿密码:
Sub 工作簿密码清除()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub