输完数据自动锁单元格:先确保要输入的单元格没被锁定,然后按下面来操作——点菜单栏工具→宏→Visual Basic编辑器,把这段代码粘贴进去:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect pw
Target.Locked = True
ActiveSheet.Protect pw
End Sub
密码默认是pw,如果你的表没设密码,就把pw删了就行~
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect pw
Target.Locked = True
ActiveSheet.Protect pw
End Sub
密码默认是pw,如果你的表没设密码,就把pw删了就行~