Want to Check if Worksheet is protected or not. If not protected want to
protect with a password €œSomething€� If it is protected ignore action.

How to do this programatically

If ActiveWorkbook.Sheets("Sheet2").Visible = -1 Then
ActiveWorkbook.Sheets("sheet2").Protect Password:="password"
ActiveWorkbook.Sheets("Sheet2").Visible = False
End If

--
If this post helps click Yes
---------------
Jacob Skaria


"Ananth" wrote:

Want to Check if Worksheet is protected or not. If not protected want to
protect with a password €œSomething€� If it is protected ignore action.

How to do this programatically

If Not ActiveSheet.ProtectContents Then _
ActiveSheet.Protect Password:="Something", DrawingObjects:=True,
Contents:=True, Scenarios:=True

Regards,
Stefi

€žAnanth€� ezt Ã*rta:

Want to Check if Worksheet is protected or not. If not protected want to
protect with a password €œSomething€� If it is protected ignore action.

How to do this programatically

With worksheets("SomesheetNameHere")
If .ProtectContents = True _
Or .ProtectDrawingObjects = True _
Or .ProtectScenarios = True Then
'do nothing, it's already protected
Else
.Protect Password:="Something"
End If
End With



Ananth wrote:

Want to Check if Worksheet is protected or not. If not protected want to
protect with a password €œSomething€� If it is protected ignore action.

How to do this programatically

--

Dave Peterson