EXCEL某个单元格A1不满足某个值(=A2)时则另一个单元格(B1)被锁定不能编辑,求解决
更正一下:EXCEL某个单元格A1不满足某个值(不等于A2)时则另一个单元格(B1)被锁定不能编辑,求大师解决。。。...
更正一下:EXCEL某个单元格A1不满足某个值(不等于A2)时则另一个单元格(B1)被锁定不能编辑,求大师解决。。。
展开
展开全部
A1单元格设置不被锁定;
在A2单元格输入某个值;
打开VBA编辑器,输入以下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If [A1] <> [A2] Then
ActiveSheet.Unprotect
Range("B1").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
ActiveSheet.Unprotect
Range("B1").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
End Sub
在A2单元格输入某个值;
打开VBA编辑器,输入以下代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If [A1] <> [A2] Then
ActiveSheet.Unprotect
Range("B1").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Else
ActiveSheet.Unprotect
Range("B1").Select
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End If
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个得用VBA吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询