Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub CheckBox164_Click()
- If CheckBox164.Value = True Then
- Active.Workbook.Unprotect
- Sheets("00 00 01").Visible = -1
- Worksheets("Summary").Cells(8, 2).Value = "GENERAL CONDITIONS"
- Active.Workbook.Protect True, True
- End If
- End Sub
Add Comment
Please, Sign In to add comment