excel单元格 用宏锁定与解锁
答案:1 悬赏:0 手机版
解决时间 2021-04-07 03:38
- 提问者网友：姑娘长的好罪过
- 2021-04-06 10:06
excel单元格 用宏锁定与解锁
最佳答案
- 五星知识达人网友：北方的南先生
- 2021-04-06 10:32
保护工作表后，锁定才起作用。所以应解除第一列的锁定，再保护工作表。
然后Alt+F11，将下面代码粘贴到某个工作表处。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
ActiveSheet.Unprotect
Range("A:A").Select
If Cells(Target.Row, Target.Column) = "" Then
Selection.Locked = False
Else
Selection.Locked = True
Cells(Target.Row, Target.Column).Locked = False
End If
Cells(Target.Row, Target.Column).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
程序修改的是A列
然后Alt+F11，将下面代码粘贴到某个工作表处。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
ActiveSheet.Unprotect
Range("A:A").Select
If Cells(Target.Row, Target.Column) = "" Then
Selection.Locked = False
Else
Selection.Locked = True
Cells(Target.Row, Target.Column).Locked = False
End If
Cells(Target.Row, Target.Column).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
程序修改的是A列
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯