unhiding all rows in all worksheets

[K. Georgiadis]

I have a workbook with 12 worksheets all of which have hidden rows. Is it possible to run a macro that:

1. asks the user for a predefined password
2. unhides all hidden rows upon entering the secret word

I suppose it would be too much to expect that Excel would remember the previously hidden rows and hide them again upon running a reverse macro!

Thanks,

KG

[Bob Phillips]

[vba]

Dim pwd As String
Dim sh As Worksheet

pwd = InputBox("Supply passwrd")
If pwd = "mypassword" Then

For Each sh In ThisWorkbook.Worksheets

Cells.EntireRow.Hidden = False
Next sh
End If
[/vba]

[K. Georgiadis]

Thanks; where is "mypassword" defined?

[Bob Phillips]

It isn't, you have to use your password there.