Macro combining protection protection

[Stuart Little]

Hi all

I have recorded a macro to find and replace certain values within a workbook and then open the next workbook and do the same. The only problem is that the worksheets are protected and therefore a password has to be entered before the find and replace can work.

Is there anyway to incorporate a password into the macro, so that the worksheets can work independantly.

Many thanks in advance.

 

[Mr_Adams]

‘Unprotect activesheet
ActiveSheet.Unprotect "Your Password"
‘Protect activesheet
ActiveSheet.Protect "Your Password"

Or a specific sheet

‘Unprotect sheet
ActiveWorkbook.Sheets("sheet name").Unprotect "Your Password"
‘Protect sheet
ActiveWorkbook.Sheets("sheet name").Protect "Your Password"

 

[Stuart Little]

Thanks

Thankyou you have saved me loads of time and monotony.

 

[Stuart Little]

Is there a way to incorporate certain parameters as follows into this formula

DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True