超实用：遗忘密码后，如何破解 Excel 工作表保护功能

       在日常工作、学习中，为了保证自己设计的excel工作表内相关公式 or 嵌入程序代码不被别人随意更改，我们往往会在sheet表-->审阅-->保护工作表的功能，设置加密功能，但若时间久了，密码被遗忘了，我们想对工作表进行再次开发完善，看不到底层公式时该如何解密呢？

     小虾米在经历过想破脑袋，依然记不清密码的崩溃时刻，查阅各类破解帖子终于发现了这个宝藏帖子【Excel】如何取消保护密码_vba如何取消工作表保护不知道密码-CSDN博客，因此在这里整理下破解方法，希望能让更多人看到，帮助下遇到同样问题的宝子们。

密码破解大法来喽：

1、首先，打开你需要破解的Excel的sheet表，点击开发工具-->进入Visual Basic ,如下图：

Sub Rmove()
 
ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True
 
ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True
 
ActiveSheet.Unprotect
 
End Sub

2、找到需要破解密码的sheet表(例如，破解sheet2表) ，输入上图VB程序，点击运行，弹出输入密码对话框之后，直接点击取消即可。

到此破解步骤已经完成。

如果还不能解决，那就再来试一下下面代码：

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