修改数据需要输入密码VBA

nnsea

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Protect
If Target.Count <> 1 Then Exit Sub
If Target.Value = "" Then
    ActiveSheet.Unprotect
    Else
    Dim b
    b = InputBox("再次修改请输入密码", "警告")
        If b = "123" Then
        ActiveSheet.Unprotect
        End If
End If
End Sub