ColorIndex
Can you use ActiveWorkbook.unprotect under Sub Worksheet?
-----Original Message-----
Wrap it in Unprotect, Protect
Sub Worksheet_SelectionChange(ByVal target As Range)
If Range("C23") < 8 Then
ActiveWorkbook.UnProtect Password := "Your password
here ' if no pass word, just use ActiveWorkbook.UnProtect
Range("C8:C22").Interior.ColorIndex = 6
Else
Range("C8:C22").Interior.ColorIndex = 44
End If
ActiveWorkbook.Protect Password := "Your password here"
End Sub
----- Trevor Davidson wrote: -----
The Code below works just fine when the Worksheet is
unprotected.
The problem starts when I protect the worksheet.
All
cells in the code are unprotected.
I get an error 1004.
Please Help
Sub Worksheet_SelectionChange(ByVal target As Range)
If Range("C23") < 8 Then
Range("C8:C22").Interior.ColorIndex = 6
Else
Range("C8:C22").Interior.ColorIndex = 44
End If
End Sub
.
|