G Gord Dibben Jan 19, 2010 #3 Sub test() MsgBox ActiveSheet.ProtectionMode 'returns true or false End Sub Gord Dibben MS Excel MVP
D Dave Peterson Jan 19, 2010 #5 With worksheets("SomeSheetNameHere") If .ProtectContents = True _ Or .ProtectDrawingObjects = True _ Or .ProtectScenarios = True Then 'it's protected else 'it's not protected End with
With worksheets("SomeSheetNameHere") If .ProtectContents = True _ Or .ProtectDrawingObjects = True _ Or .ProtectScenarios = True Then 'it's protected else 'it's not protected End with