excel 保护部分单元格的方法

Excel函数 2023-01-08

本文介绍使用VBA代码来进行excel保护部分单元格的方法。

　　我们在需要进行excel保护部分单元格的工作表标签中，单击右键，选择“查看代码”，打开VBE编辑器，在编辑框输入下面的代码：

excel保护部分单元格

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim b As Boolean
    For Each c In Target                  '循环选定单元格
        If c <> "" Then                   '如果单元格非空
            b = True
            Exit For                      '退出循环
        End If
    Next
    ActiveSheet.Unprotect Password:="123" '撤消保护
    If b = True Then
        Target.Locked = True                   '锁定单元格
        ActiveSheet.Protect Password:="123"    '保护工作表，密码123
    End If
End Sub

excel保护部分单元格