To make all sheets visible try this macro

Sub test2()
For Each x In Sheets
x.Visible = True
Next x
End Sub


To undo worksheet protection, try this link:

http://j-walk.com/ss/excel/faqs/pw.txt

"AnisaF" wrote:

Can and body help me to unlock formulas and unhide sheets that are password
protected?

Thanks in advance.
--
Anisa