求大神相助!根据下拉菜单内容锁定或解锁指定单元格

Mr.CHENGWEI

小白求助,根据单元格内容锁定或解锁指定单元格,谢谢!

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     ps = "123"
   
3.     If Target.Address(0, 0) = "A4" Then
   
4.         If [a4] = "工作者" Then
   
5.             ActiveSheet.Unprotect ps
   
6.             [b2:h2].Locked = False
   
7.             ActiveSheet.Protect ps
   
8.         Else
   
9.             ActiveSheet.Unprotect ps
   
10.             [b2:h2].Locked = True
    
11.             ActiveSheet.Protect ps
    
12.         End If
    
13.     End If
    
14. End Sub

复制代码

liulang0808

对A4修改触发事件，其他单元格考虑逻辑性，同理修改即可

Mr.CHENGWEI

liulang0808 发表于 2019-9-16 07:44
对A4修改触发事件，其他单元格考虑逻辑性，同理修改即可

老师您好,麻烦您再帮我看看 我刚试了一下 好像哪儿不对,还是不行 要么全部锁定了 要么解不了锁

Mr.CHENGWEI

liulang0808 发表于 2019-9-16 07:44
对A4修改触发事件，其他单元格考虑逻辑性，同理修改即可

刚才才注意到代码里指定的单元格范围 感谢老师的帮助!