请输入内容EXCEL如何实现单元格输入内容后自动锁定

EXCEL如何实现单元格输入内容后自动锁定

如数据在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 经验证可用