脚本

Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible = True
Next
End Sub

过程

1. 右键 sheet，选择“查看代码”；
2. 执行 “插入”，选择“模块”，将上述脚本粘贴到“代码区”；
3. 执行“运行”即可

视频