怎样用VBA宏输入EXCEL用户编辑区域密码？

Question

共享工作簿中，工作表设置了允许用户编辑区域和密码。编辑时，会弹出密码验证框，输入密码后可以编辑。请问怎样用宏来实现输密码的动作？

Answer 1

我是用的VBS。

dim wsh
set wsh=createobject("wscript.shell")
if  wsh.appactivate("撤消工作簿保护")  or wsh.appactivate("撤消工作表保护") then wsh.sendkeys "abc@123~"
if wsh.appactivate("VBAProject 密码") then wscript.sleep 500: wsh.sendkeys "123@abc~"

写在记事本里保存为123.vbs，放个快捷方式在桌面，快捷方式设置下：

快捷键设置个F7之类不常用不容易冲突的，确定，重启电脑，打开有保护的excel文件，到输入密码的界面，按F7，自动输入密码，搞定。

追问

谢谢您的解答。但是不合我的目的。我有一个工作表，设置了允许用户编辑区域。例如："财务部"允许编辑A列到B列，编辑密码是123； "行政部"允许编辑C列和D列，编辑密码是456。工作表处于保护状态时，要在A、B、C、D列输入内容是要输入密码的。我现在是想通过宏（VBA）来自动输入相应的编辑密码“123”或者“456”。

Answer 2

规律吃干不成发个干不成给你GV吃给红包vv吃醋好v吃饭滚滚滚就好好g追问

我自己琢磨出来了，代码就一行如下：ActiveSheet.Protection.AllowEditRanges("A:B").Unprotect Password:="123"