指定允许编辑区域

一成不变变

只发现了3个方法：指定允许编辑区域，不知还有其它方法么？期待


Sub 指定允许编辑区域1()
        Cells.Locked = True '先把所有单元格设置为锁定的
            Range("A1:A6").Locked = False  '取消单元格部分 锁定
                ActiveSheet.Protect "123"        '保护工作表, 密码 123
            ActiveSheet.EnableSelection = 1  '只能 选择 未锁定的单元格
   End Sub
   Sub 撤销1()
         ActiveSheet.Unprotect "123" '撤销工作表, 密码 123
   End Sub
   
   
   
    Sub 指定允许编辑区域()
        ActiveSheet.ScrollArea = "B1:B6"
    End Sub
   Sub 解除允许编辑区域限制()
        ActiveSheet.ScrollArea = ""
    End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [C1:C12]) Is Nothing Then
    MsgBox "你只能在[C1:C12]区域中工作！"
    [a1].Select
End If
End Sub