密码是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
楼上的回答并不完整,最好的方法应该是设置保护密码,一量输入过数据,要修改时必须输入密码方可修改,不知道密码的人就修改不了,而空单元格都可输入,一旦输入了就得密码修改。
不知道楼主是否此意?
楼上老师的方法不错哦
另存为——常规——修改权限密码——输入密码——确定,进入文档修改须输入密码
如何让这个保护只在一个区域呢?因为表格A列和1行经常会有其他程序访问