数据放SHEET1，按ALT+F11进VBA，左边双击SHEET1，右边粘贴代码。不用点按钮，输完内容自动加密，点有内容的格子要输密码才能改。密码是123，错了就自动跳去A1。记得给VBA工程加个密码保护，防止别人看代码。代码如下：
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
实测可用，放心用~
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
实测可用，放心用~