第1个回答 2011-05-12
先把你的秘密隐藏后,右键点击你的表下面的标签名(如sheet1),点击“查看代码”,把下面的代码粘贴进去,密码为123,你也可以改成别的。excel2003能用,你试一试。(注意:空白处输入内容后,若要修改也必需输入密码)
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本回答被网友采纳