如数据在SHEET1表,按ALT+F11打开VBA窗口,双击左边的SHEET1,在右边窗口粘粘下面的代码。无需按按钮,对输入过的内容自动加密,点击有内容单元格要求输入密码。
密码是123正确才能修改内容,否则就去选择A1单元格。另外,请对工程做密码保护。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With Target
If .Value <> "" Then
PW = InputBox("修改内容请输入密码:")
If PW <> "123" Then
Cells(1, 1).Select
Else
Exit Sub
End If
End If
End With
End Sub
经验证可用
参考资料:http://zhidao.baidu.com/question/238186024.html?an=0&si=1