1.去除Excl整个工作簿密码的命令:
Sub 工作簿密码破解()
ActiveWorkbook.Sheets.Copy
For Each sh In ActiveWorkbook.Sheets
sh.Visible=True
Next
End Sub
2.去除Excel工作表密码的命令:
Sub密码破解()
Dim pj As Worksheet
For Each pj In Worksheets
pj.Protect AllowFiltering:=True
pj.Unprotect
Next
End Sub
3.破 Excel开启密码的教程:https://www.lingdu80.com/2684.html
THE END


![图片[1]-轻松去除Excel密码,工作表、工作簿也可以-零度会员](https://www.lingdu80.com/wp-content/uploads/2021/12/1_SliM0zmPk3qs1I7HSQTaRQ.jpeg)



![【限免】BackUp Maker Professional – 高效数据备份工具 [Windows]-零度会员](https://www.lingdu80.com/wp-content/uploads/2025/01/1eab89cc2320250107130919.webp)





![FieldCam - 支持 GPS 坐标的专业拍照工具 [限时免费]-零度会员](https://www.lingdu80.com/wp-content/uploads/2025/05/91c85010bd20250505225657.webp)









