excel宏保护工作表后无法筛选(excel保护工作表宏不能使用)

1. excel保护工作表宏不能使用

解决办法如下： 

1、打开Excel，单击“文件”，然后单击“选项”。 

2、在弹出的“Excel选项”对话框中，单击“信任中心”，然后单击“信任中心设置”按钮。 

3、在弹出的“信任中心”对话框中，单击“宏设置”，然后把“启用所有宏（包括网络宏）”前面的复选框打钩，最后单击“确定”按钮即可。

2. 保护工作表不起作用

　　有两种情况，一是你知道工作表保护的密码，另一种是你不知道。　　第一种情况下：从菜单栏里选择工具——选择保护——撤销工作簿保护——输入密码——撤销工作表保护完成。　　第二种情况下：复制被保护的工作表内容——建立新表格——粘贴并重新排版——保存为你需要的文件名和格式。

3. 保护工作表后无法运行宏

不只是不能刷，而且是不能设置条件格式的，你需要在共享前设定好。请参考下面的文档：工作簿的原作者通过输入需要显示的数据并为其设置格式，可将工作簿设置为共享工作簿。将工作簿保存为共享，并放在共享网络上（而不是 Web 服务器上），便可供有兴趣的用户使用。使用不可用的功能 因为 Microsoft Excel 有一些功能在工作簿共享后只能查看或使用，而不能更改，所以在工作簿共享前应设置好这些功能。工作簿共享后，以下功能无法更改：合并单元格、条件格式、数据有效性、图表、图片、对象（包括图形对象）、超链接、方案、大纲、分类汇总、数据表格、数据透视表、工作簿和工作表保护以及宏。

4. 如何用宏保护工作表

取消 圣盾术/保护之手宏#showtooltip/cancelaura 圣盾术/cancelaura 保护之手无敌嘲讽宏#showtooltip/cast 圣盾术/cast 清算焦点打断宏有焦点打断焦点 没焦点打断当前目标#showtooltip 责难/cast [target=focus,exists]责难;责难开/关正义之怒宏：鼠标右键点击宏取消正义之怒，鼠标左键开启 #showtooltip /cast [button:

1] 正义之怒 /cancelaura [button:

2] 正义之怒T6天赋宏(棱镜对自身释放)#showtooltip/use 处决宣判/use 圣光之锤/use [@player] 神圣棱镜/run local G=GetSpellInfo SetMacroSpell("天赋", G("处决宣判") or G("圣光之锤") or ("神圣棱镜"))圣印切换宏：正义圣印与真理圣印切换宏(使用强化圣印天赋会用到)#showtooltip /cast [stance:1] 正义圣印;[stance:2] 真理圣印

5. excel vba 保护工作表

当然会出错：

因为你加密了VBA工程，而加密的VBA工程的里的代码就会被保护。

也就是说VBA工程加密后，不可以增加删除代码，不可以增加删除窗体，不可以增加删除模块和类模块。而你的代码中：

Set usForm =ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)这个是增加一个窗体，这对受保护的工程来说是不被允许的。除了你这个，还有例如ThisWorkbook.VBProject.VBComponents.Remove XXXXX（删除代码）

ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "模块1"(增加模块）

等等都是不可以的。

如果你即要加密VBA工程，又想让程序在运行过程中去新增窗体，建议可以考虑一下sendkey方法，在程序开始运行时执行sendkey解锁工程密码。你可以试试代码：（在我电脑上测试了是可以输入或增加工程密码的）

你可以在你增加窗体的那句代码前先执行inputpw()解锁工程密码。

Sub inputpw() '输入密码解锁 Dim pw$ pw = "password" If ThisWorkbook.VBProject.Protection = vbext_pp_locked Then '判断工程是否解锁 '打开VBAProject工程属性 Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute Application.SendKeys pw '输入密码 Application.SendKeys "{ENTER}" 'enter解锁 End If End If End Sub Sub addpw() '加工程密码 Dim pw$ pw = "password" If ThisWorkbook.VBProject.Protection = vbext_pp_none Then '判断是否加密码工程 '打开VBAProject工程属性 Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute Application.SendKeys "^+{TAB}" 'ctrl+tab移动到保护 Application.SendKeys "{TAB}" 'tab移动到第一次输密码位置 Application.SendKeys pw '输入密码 Application.SendKeys "{TAB}" 'tab移动到第二次输密码位置 Application.SendKeys pw '输入密码 Application.SendKeys "{ENTER}" 'enter加锁 DoEvents End If End Sub