1、按住快捷键ALT+F11，然后切换出VBA编辑窗口，如图1所示。在窗口左侧，我们选择忘记密码的工作表，例如表1。
2、然后我们复制以下代码“Sub Pojie()ActiveSheet.Protect AllowFiltering:=True: ActiveSheet.UnprotectEnd Sub”，双击刚刚选中的工作表1后，在编辑窗口中输入刚刚复制的代码。
3、接下来，单击“运行” - “运行宏”。在弹出宏对话框中，我们再次单击“运行”。此时，先前加密的工作表将被解锁。重新开放后，可以直接进入。
