Hobb3s
07-06-2005, 10:18 AM
Hello,
I'm attempting to create a user friendly worksheet for our staff. However I'm running into a problem I hope someone can help me with. I have a macro assigned to a check box that bolds the indicated line when the box is checked and removes the bold when the box is not checked. However I require the sheet to be protected to keep the users from deleting rows or columns, so that my totals that are linked in other workbooks aren't compromised.
When the sheet is protected I get an erroor 1004, when I attempt to use the checkboxes with the assigned macro.
Someone pointed out that it is possible to turn off and on protection within the macro. I was wondering how this is done.
Here is what I have so far that I wish to add the protection off and on to.
Sub CheckBox4_Click()
If Range("L4").Value = True Then
Range("A4:H4").Select
Selection.Font.Bold = True
Else
If Range("L4").Value = False Then
Range("A4:H4").Select
Selection.Font.Bold = False
End If
End If
End Sub
Thanks for any help you can give me.
Cheers,
Greg.
I'm attempting to create a user friendly worksheet for our staff. However I'm running into a problem I hope someone can help me with. I have a macro assigned to a check box that bolds the indicated line when the box is checked and removes the bold when the box is not checked. However I require the sheet to be protected to keep the users from deleting rows or columns, so that my totals that are linked in other workbooks aren't compromised.
When the sheet is protected I get an erroor 1004, when I attempt to use the checkboxes with the assigned macro.
Someone pointed out that it is possible to turn off and on protection within the macro. I was wondering how this is done.
Here is what I have so far that I wish to add the protection off and on to.
Sub CheckBox4_Click()
If Range("L4").Value = True Then
Range("A4:H4").Select
Selection.Font.Bold = True
Else
If Range("L4").Value = False Then
Range("A4:H4").Select
Selection.Font.Bold = False
End If
End If
End Sub
Thanks for any help you can give me.
Cheers,
Greg.