更新!
我有一张工作表,其中所有单元格都被锁定和隐藏,而没有2个单元格。例如A1
和A20
现在,我希望如果我在单元格中输入“ Belly”,A20
那么该单元格A1
将被解锁。同样,如果我从单元格中删除文本“ Belly”,A20
则该单元格A1
将被锁定。
我写了这段代码:
Dim targetCell As Range
Dim inputCell As Range
Dim machine As String
Set ws = Worksheets("Sheet1")
Set targetCell = Range("A1")
Set inputCell = Range("A20")
Set machine = "Belly"
If inputCell.Value = "Belly" Then
ws.Unprotect Password:="mehedi"
targetCell.Locked = False
ws.Protect Password:="mehedi"
Else
ws.Unprotect Password:="mehedi"
targetCell.Locked = True
ws.Protect Password:="mehedi"
End Sub
但是它不起作用并且给出错误。请帮忙。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句