VBA 保护指定单元格和撤销保护指定单元格

Question

我有个按键点击后，指定撤销保护工作表G8:H14, H16:H17, C21:G23的区域，执行完中间代码后，又把G8:H14, H16:H17, C21:G23的区域保护起来。

Answer 1

应先将需要保护的单元格属性设置为锁定（选中单元格，右键菜单“单元格属性”，勾选“保护”标签页的“锁定”即可），而其它单元格不锁定。在vba中使用Protect命令执行保护工作表，Unprotect则撤销保护。追问

老师能给个完整的语句吗？

追答

具体代码可以这样写：

Private Sub CommandButton1_Click()
    ActiveSheet.Unprotect
    Range("G8:H14") = 10    '这行只是测试代码，你可以将其改为你需要的中间代码。
    ActiveSheet.Protect
End Sub

当然，以上代码是作为按钮的单击事件处理函数。自己试试吧。