破解Excel工作簿密码保护

Excel工作簿保护后（审阅 - 保护工作簿），工作表无法插入、删除和取消隐藏等操作。

如果忘记了密码，想解除工作簿保护，只需要按如下敲一段VBA代码运行，再将其另存为一个新的Excel文件即可。工作簿密码在新文件中已取消。

Sub DISPWD()
    ActiveWorkbook.Sheets.Copy
    For Each sh In ActiveWorkbook.Sheets
        sh.Visible = True
    Next
End Sub

如图：