Trying to change some text & background color on a different worksheet, but having problems when the worksheet (Accounting Tracker) is protected. Trying to alter the interior color of the cell in a protected worksheet, but I keep getting RunTime Error 1004. The Strikethrough works great but when I want to change the interior color I get the error. I have UserInterfaceOnly:=True in the ThisWorksheet of my VB.
Script:
Private Sub CheckBox22_Click()
'Shipping/Billable
If CheckBox22.Value = True Then
CheckBox23 = False
End If
Worksheets("Accounting Tracker").Range("K57").Font.Strikethrough = False
Worksheets("Accounting Tracker").Range("K57").Interior.Color = RGB(255, 204, 153)
End Sub
Private Sub CheckBox23_Click()
'Shipping/NonBillable
If CheckBox23.Value = True Then
CheckBox22 = False
End If
Worksheets("Accounting Tracker").Range("K57").Font.Strikethrough = True
Worksheets("Accounting Tracker").Range("K57").Interior.Color = RGB(255, 0, 0)
What else can I do to resolve this without unprotecting the Worksheet.
Regards,
KippH
kipph@betzwood.com
Script:
Private Sub CheckBox22_Click()
'Shipping/Billable
If CheckBox22.Value = True Then
CheckBox23 = False
End If
Worksheets("Accounting Tracker").Range("K57").Font.Strikethrough = False
Worksheets("Accounting Tracker").Range("K57").Interior.Color = RGB(255, 204, 153)
End Sub
Private Sub CheckBox23_Click()
'Shipping/NonBillable
If CheckBox23.Value = True Then
CheckBox22 = False
End If
Worksheets("Accounting Tracker").Range("K57").Font.Strikethrough = True
Worksheets("Accounting Tracker").Range("K57").Interior.Color = RGB(255, 0, 0)
What else can I do to resolve this without unprotecting the Worksheet.
Regards,
KippH
kipph@betzwood.com