Option ExplicitPublic Sub AllInternalPasswords()' Breaks worksheet and workbook structure passwords. Bob McCormick' probably originator of base code algorithm modified for coverage' of workbook struct
开始 --- excel选项 ----信任中心，启用所有宏点视图里面----宏，录制宏，起好名字，关闭。再点查看宏，编辑宏，把代码贴进去，关闭。再执行宏，等跳出来，你的密码是某某某，工作表保护就解除了。 Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
&nbs
1、打开您需要撤销保护密码的Excel文件； 2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:ab； 3、停止录制(这样得到一个空宏)； 4、依次点击菜单栏上的工具---宏----宏,选ab,点编辑按钮； 5、删除窗口中的所有字符(只有几个),替换为以下内容； Public Sub 工作表保护密码() Const DBLSPACE As String = vbNew
