Protecting Sheets with Multiple Passwords

[sridhar_shri03]

Hi All,

I have different sheets in my workbook for which i have different passwords with which i need to protect each sheet with the password assigned to it.

Is it possible to do a macro which automatically protect the sheets with the correct password

I have attached a sample workbook the sheet "passwords" will have sheet names in first column and respective passwords in the second column

Please revert back for any clarifications & help would be much appreciated.

Thanks
Sridhar_shri03

 

[Hui]

Try the following code

Sub Protect_sheets()

  Sheets("BNY").Protect "BNY12", DrawingObjects:=True, Contents:=True, Scenarios:=True
  Sheets("Mellon").Protect "54Mell", DrawingObjects:=True, Contents:=True, Scenarios:=True
  Sheets("GD").Protect "78GD", DrawingObjects:=True, Contents:=True, Scenarios:=True
   
End Sub