方法是有的。用VBA解决。工作表保护密码:123 你可以在代码中自己更改工作表中只要单元格不为空程序就会锁定保护单元格右键单击工作表标签,在右键菜单中选择“查看代码”,然后在出现的工作表代码编辑窗口复制粘贴以下代码:Private Sub Worksheet_Change(ByVal Target As Range)Dim rng As Range If Target.Count = 1 Then
Unprotect Password:=123
Cells.Locked = False
Set rng = UsedRange
For i = 1 To rng.Cel
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub ActiveSheet.Unprotect password:="yzv"If Target.Value"" Then Target.Locked = True: