Question

excel 表中单元格输入数据，按保存后，单元格自动锁定不可编辑。没有编辑的单元格仍然可以编辑。

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

以上代码为输入数据即锁定，有请高手帮忙改成保存后才锁定

Answer 1

保存会锁定，下次打开不会处于锁定状态的。

功能改成你输入完成后，点一个按钮就锁定，再保存。
如果是这样，那你自己录宏就可以了，只是直接点一个“保护工作表”功能

追问

没有编辑的单元格仍然可以编辑。还有一点系，这个文件是共享文件

追答

把：
PW = InputBox("修改内容请输入密码：")
If PW "123" Then
Cells(1, 1).Select
Else
Exit Sub
End If
替代成：
.Locked = True
.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
之后在编辑后保存即可

Answer 2

太神奇 了，我的没有锁定。