A
aksel børve
I am trying to make a cell Locked or Unlocked by using the Combo Box value.
But when I click on one of the Combo drop down values, I get the message:
"The cell is protected and can not be wriiten to"
Any Suggestions?
Aksel
Private Sub ComboBox3_Change()
ActiveSheet.Unprotect password:="*******"
Application.ScreenUpdating = False
If ComboBox3.Value = "NONE" Then GoTo Line1 Else GoTo Line2
Line1:
'Protect Cell G18
With ActiveSheet.Range("G18")
..FormulaR1C1 = ""
..Locked = True
..Interior.ColorIndex = 15
End With
GoTo Lastline
Line2:
Unprotect the Cell G18
With ActiveSheet.Range("G18")
..Locked = False
..Interior.ColorIndex = xlNone
End With
Lastline:
ActiveSheet.Range("J24").Select
ActiveSheet.Protect password:="driller", DrawingObjects:=True,
Contents:=True, Scenarios:=True
End Sub
But when I click on one of the Combo drop down values, I get the message:
"The cell is protected and can not be wriiten to"
Any Suggestions?
Aksel
Private Sub ComboBox3_Change()
ActiveSheet.Unprotect password:="*******"
Application.ScreenUpdating = False
If ComboBox3.Value = "NONE" Then GoTo Line1 Else GoTo Line2
Line1:
'Protect Cell G18
With ActiveSheet.Range("G18")
..FormulaR1C1 = ""
..Locked = True
..Interior.ColorIndex = 15
End With
GoTo Lastline
Line2:
Unprotect the Cell G18
With ActiveSheet.Range("G18")
..Locked = False
..Interior.ColorIndex = xlNone
End With
Lastline:
ActiveSheet.Range("J24").Select
ActiveSheet.Protect password:="driller", DrawingObjects:=True,
Contents:=True, Scenarios:=True
End Sub