Excel VBA保护表 - VBA

在Excel中，通过VBA可以非常方便地保护和解除保护工作表。通过保护工作表，可以防止用户在工作表上进行不必要的更改或删除。下面是一些在VBA中保护和解除保护工作表的代码片段。

保护工作表

保护工作表时，需要指定一个密码。如果不想设置密码，可以将密码参数留空。

Sub ProtectSheet()
    ActiveSheet.Protect Password:="yourpassword"
End Sub

解除保护工作表

解除保护工作表时，需要指定正确的密码。如果密码不正确，则会引发错误。

Sub UnprotectSheet()
    ActiveSheet.Unprotect Password:="yourpassword"
End Sub

添加或删除保护工作表选项

在保护工作表时，可以选择允许用户进行哪些更改。例如，可以允许用户进行排序，但不允许用户进行更改单元格格式。下面是一些代码片段，用于添加或删除保护工作表选项。

添加允许更改选项

Sub AddProtectionOption()
    ActiveSheet.EnableSelection = xlUnlockedCells '允许选中未锁定单元格
    
    '允许以下选项
    With ActiveSheet
        .Protect DrawingObjects:=True, _
                 Contents:=True, _
                 Scenarios:=True, _
                 AllowSorting:=True, _
                 AllowFiltering:=True
    End With
End Sub

删除允许更改选项

Sub RemoveProtectionOption()
    ActiveSheet.EnableSelection = xlNoRestrictions '允许选中所有单元格
    
    '不允许以下选项
    With ActiveSheet
        .Protect DrawingObjects:=True, _
                 Contents:=True, _
                 Scenarios:=True, _
                 AllowSorting:=False, _
                 AllowFiltering:=False
    End With
End Sub

总结

通过VBA保护和解除保护工作表非常简单。可以通过添加或删除允许更改选项来进一步控制用户对工作表的访问级别。如果您需要更多Excel VBA相关的知识，请查看本网站的其他文章。