excel用宏保护工作簿中一列（撤销保护的时候需要输入密码）

excel用宏保护工作簿中一列（撤销保护的时候需要输入密码）
2楼的 我说的是能不能把宏都帮我写出来哦??? 例如 $A$1:$A$20 和 $B$1:$B$20 要分别用vba宏来保护 如何来写

Excel 一般设置是把所有单元格在加了保护之后都不能改，你的意思是不是除了$A$1:$A$20 不让用户改，其他都可以？
要是这样，用下面的宏就好了。

Sub Procedure()
Cells.Locked = False
Range("A1:A20").Locked = True
ActiveSheet.Protect Password:="123456"
End Sub

修改后：

先执行：
Sub Procedure0()
Cells.Locked = False
ActiveSheet.Protect Password:="123456", UserInterfaceOnly:=True
End Sub

保护不同区域的宏：
Sub Protect1()
Range("A1:A20").Locked = True
End Sub

Sub Protect2()
Range("B1:B20").Locked = True
End Sub

解除保护不同区域的宏：
Sub UnProtect1()
a = InputBox("请输入密码.", "密码")
If a = "123" Then Range("A1:A20").Locked = False
End Sub

Sub UnProtect2()
a = InputBox("请输入密码.", "密码")
If a = "123" Then Range("B1:B20").Locked = False
End Sub

Sub UnProtectAll()
a = InputBox("请输入密码.", "密码")
If a = "123" Then Cells.Locked = False
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f8vsqq4f2.html