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

Question

在EXCEL中如何实现在某些单元格中输入数据后自动上锁保护，但是在单元格空白的时候输入则不需密码，只要已输入万内容就需要权限来进行更改。这种效果可以实现吗。

Answer 1

可以通过锁定单元格的方式来实现。单元格默认都是锁定状态，可以选择单元格属性，将不需要保护单元格去掉锁定属性，然后点击审阅标签，选择更改栏中的保护单元表即可。

Answer 2

Dim Str As StringPrivate 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 IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) '自动运行代码
Str = Target.Cells(1).Value
End Sub 密码是123456按ALT+F11切换到VBE窗口,在工程窗口中双击需要锁定的工作表,在右面的窗口中的这段代码粘贴

Answer 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Sheet1.Unprotect Password:="12345"
If Target.Value <> "" Then
Target.Locked = True
Sheet1.Protect Password:="12345"
End If
End Sub

密码是12345

Answer 4

你可以用数据有效性的限制功能试试！！密码你在单元格设置密码保护就行啦！！这一个怕是要用VBA编程序这个不太懂！！函数公式是不可能的