數據放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
實測可用，放心用~