Vba help password

[stebrownsword]

Hi Guys,

the following macro, changes a few cells etc, then protects the sheet.... however I wanted the protected sheet part to have a password "Sausage"...

could you guys ammend my macro, so it protects the sheet with a password as "Sausage"

Sub RATIFY1()
'
' RATIFY1 Macro
'
'
Sheets("Outline Generator").Select
ActiveSheet.Unprotect
Range("E6").Select
ActiveCell.FormulaR1C1 = "Outline Ratified"
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = True
Range("B8").Select
Sheets("Outline Generator").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End Sub





Thanks in advance

 

[theBardd]

Sub RATIFY1()

    With Worksheets("Outline Generator")
    
        .Unprotect
        .Range("E6").FormulaR1C1 = "Outline Ratified"
        With .Cells
    
            .Locked = True
            .FormulaHidden = True
        End With
    
        .Range("B8").Select
    
        .Protect Password:="Sausage", DrawingObjects:=False, _
                 Contents:=True, Scenarios:=False
    End With
End Sub

You might need to change the Unprotect to Unprotect "Sausage" for subsequent runs of the macro.

 

[Trevor G]

Adjust the activesheet to include the password.

   ActiveSheet.Protect Password:="Sausage", DrawingObjects:=False, Contents:=True, Scenarios:= _
False

 

[stebrownsword]

thank you

 

[stebrownsword]

Hi Just realised, it keeps opening the document where i created the macro.... but I don't want it to open the document where I created the macro... i just want the macro to work on the document which i have open?

help please?

 

[Trevor G]

The you need to place the macro in the Personal Workbook if you want to apply the protection on any workbook you have open.

The personal workbook is normally hidden. If you are using 2003 then look at the View Menu and see if you can unhide, if not then look to record a new macro and select to store the macro in the Personal workbook then stop recording you can then unhide.

If using 2007 or 2010 look to do the same but you would look under the View Tab.

Hope this helps you out.