EXCEL用户可编辑区域解锁后如何用宏重新锁定？

Question

打开EXCEL文件后，用户可编辑区域有密码，输入密码编辑完一行后，我想在不退出EXCEL，不取消密码保护的情况下，恢复需要输密码的状态。怎样用宏代码实现？

Answer 1

其实，既然使用了 VBA 代码，那就把表格都锁定！

定义“允许用户编辑区域”。比如：

2. 设置该区域的权限。允许 Everyone 无需密码进行编辑：

3. 确定后使用密码保护工作表；

4. 使用 VBA 代码让用户进行操作即可。

Answer 2

参考

Excel如何做到工作表切换要密码才显示其中内容

Answer 3

你可以做一个用户窗口，用文本框输入内容，然后获取keycode来重新锁定区域本回答被网友采纳

Answer 4

Sub Macro1()
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
如果有密码，自己添加上，两个要一样的。追问

文件处于共享状态，且工作表是处于密码保护状态。你的第一句是解除保护。能不能在不取消共享和工作表保护的状态下恢复编辑密码？

追答

自己先试了，然后哪里不符合的说清楚就好了。

追问

能不能在不取消保护的情况下实现？
如果取消保护再执行的话，第二句没没必要的，不如取消保护再加保护一样可以得到效果。
例如：
Sub Macro1()
ActiveSheet.Unprotect '取消保护
ActiveSheet.protect '恢复保护
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True '这句用不上
End Sub

本回答被网友采纳