电子表格中有数据的单元格发生变动时需要输入密码

hbyczzp

电子表格中有数据的单元格修改时需要输入密码，以防止误修改。


但空白单元格输入数据时则不用。
非常感谢帮忙

quqiyuan

设置单元格锁定，然后保护工作表

sbfqujeOK

输入如下可符合您的需求.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Cells(Target.Row, Target.Column) <> "" Then
        Target.Locked = True
        ActiveSheet.Protect Password:="Password"
    End If
    If Cells(Target.Row, Target.Column) = "" Then
        ActiveSheet.Unprotect Password:="Password"
    End If
End Sub

hbyczzp

sbfqujeOK 发表于 2024-2-29 13:11
输入如下可符合您的需求.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error  ...

非常感谢，就是这样的，多谢！

tomcluse_1227

选中表格范围（含有边线，无数据），工作表保护，输入密码。