撤销工作表保护原密码_Excel忘记取消工作表保护密码

Excel忘记取消工作表保护密码

• 

  1

• 

  2

• 

  3

Excel忘记取消工作表保护密码，就不能修改数据，网上其他教程却很麻烦，这是一个简单教程。

工具/原料

方法/步骤

1. 选择被加密的表格，右键单击Sheet，选择查看代码。

   

2. 将下面代码复制到用户窗体(输入窗口)处

   

3. 左键单击运行，选择运行子过程/用户窗体，或者直接按F5。

   

4. 运行完毕后关闭窗口，再查看Excel便可以修改数据了。

5. 代码如下：

   Sub DeletePW()

   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

   ActiveSheet.Protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True

   ActiveSheet.Protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True

   ActiveSheet.Unprotect

   End Sub