Excel — 提示：被保护单元格不支持此功能！忘记密码时如何撤销保护？

在excel中，无法编辑单元格，忘记保护密码，怎么撤销保护密码？仅需要一段代码即可解决！！

以下是具体的操作步骤：

步骤一

打开需要被解除保护的excel，点击需要解除保护的工作表，在下方点击查看代码!!

点开查看代码后，你会看到一个输入代码的界面。到这一步，你已经成功一半了！！

步骤二

在代码框中输入如下代码

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

步骤三

点击运行，问题即可解决！

到这里，你就会发现，文件已经可以编辑了！！

注意！这里的操作是对单个工作簿进行的，也就是如果你一个excel文件包含5个工作簿，那你就需要进行5遍这样的操作！！

接下来，出于我自己的好奇，我了解了一下这段代码的具体原理

代码原理解释

这是一段 VBA 代码¹，定义了一个名为 DeletePW 的子过程，其主要功能是对当前活动工作表进行多次保护和取消保护操作。不过，代码中并没有实际涉及到删除密码的操作。

代码逐行解释

Sub DeletePW()

• 这行代码定义了一个名为DeletePW的子过程。在VBA中，Sub关键字用于声明一个子程>序，子程序是一段可执行的代码块，不需要返回值。

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

• ActiveSheet表示当前活动的工作表。
• Protect方法用于保护工作表。
• DrawingObjects:=True：表示保护工作表中的绘图对象，用户无法对其进行编辑、移动>或删除等操作。

• Contents:=True：表示保护工作表的内容，用户不能修改单元格中的数据。

  • AllowFiltering:=True：表示允许用户在工作表中使用筛选功能。

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

• 再次调用Protect方法对当前活动工作表进行保护。
• DrawingObjects:=False：表示不保护工作表中的绘图对象，用户可以对其进行编辑、移动或删除等操作。
• Contents:=True和AllowFiltering:=True的含义与前面相同。

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

• 又一次调用Protect方法对当前活动工作表进行保护，且保护绘图对象、内容，同时允许使用筛选功能。

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

• 再次调用Protect方法对当前活动工作表进行保护，不保护绘图对象，保护内容，允许使用筛选功能。

ActiveSheet.Unprotect

• Unprotect方法用于取消对当前活动工作表的保护，使工作表恢复到可编辑状态。

End Sub

• 这行代码表示DeletePW子过程的结束。

总结

这段代码的主要作用是对当前活动工作表进行多次保护设置的切换，最后取消对工作表的保护。我通过测试发现，如果直接使用函数ActiveSheet.Unprotect是需要密码进行解除的，但是在重新设置保护的过程中是不需要密码。因此这段代码的原理可能是，通过重新设置保护，在保护的时候不设置密码，然后再取消保护这样的方式，就能成功解除保护。