Worksheets("Sheet1").Unprotect Password:="password"
Worksheets("Sheet1").Visible = True
Worksheets("Sheet1").Cells.Select
Selection.Locked = True
Worksheets("Sheet1").Protect Contents:=True

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


"Kashyap" wrote:

Hi, I have a workbook with several sheets for different users (shared) with
different passwords for each sheet

I have all these sheets hidden and hyperlink to each sheet on a opening sheet.

I need to give users, read only access to other's sheet (which will open on
demand with the help of hyperlink again)

any help pls

Thanks..