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
Dim Str As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '双击运行代码
Dim Pass, s
If Target.Cells(1).Value <> "" Then
Pass = InputBox("请输入修改密码：", "提示")
If Pass <> "123456" Then
Application.EnableEvents = False
Target.Cells(1) = Str
Application.EnableEvents = True
MsgBox "密码错误，不能修改", vbOKOnly, "警告"
Target.Offset(1).Select
Else
Target.Cells(1).Select
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '自动运行代码
Str = Target.Cells(1).Value
End Sub
excel隐藏单元格公式且无公式的单元格还能正常编辑
1、选中整个工作表数据区域，执行“格式→单元格”命令，打开“单元格格式”对话框。

2、切换到“保护”标签，清除“锁定”选项前面复选框中的“∨” 号，确定返回。

3、执行“编辑定位”命令，打开“定位”对话框，单击其中的“定位条件”按钮，打开“定位条件”对话框。

4、选中其中的“公式”选项，确定返回，一次性选定工作表中所有包含公式的单元格。

5、再次打开“单元格格式”对话框，切换到“保护”标签下，在“锁定”和“隐藏”选项前面复选框中加上“∨” 号，确定返回。

6、执行“工具→保护→保护工作表”命令，打开“保护工作表”对话框，输入密码，确定，再确认输入一次密码，确定返回即可。