HIding Rows on Workbook Open

[xAcrosonicx]

Hello! I am looking to make a macro that will hide rows 4-104 everytime the workbook is opened. The reason I am looking to do this is because I want to integrate a "password" field on the top that will require users to input their given password to reveal certain rows. If this could be incorporated into the VBA, that would be great! For example, the password "1234" would unhide rows 10-15, but keep the rest hidden.

I'm well aware that Excel is not a "secure" in this sense - this is more of a fun project than serious

[KOKOSEK]

Private Sub Workbook_Open()
    Sheet1.Rows("4:104").EntireRow.Hidden = True
End Sub

[Marc L]

As a beginner starter to paste to the ThisWorkbook class module :

Private Sub Workbook_Open()
    Sheet1.Rows("4:104").Hidden = True
End Sub 

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

[xAcrosonicx]

Thanks for the help! Regarding the last part of my post, I want to reveal certain rows depending on the password entered. Here's what I have, but I need help adding more. Thanks!

*EDIT The code below also doesn't recognize when I try to hide the password using the cell format " ;;;** " which just prints it out in all *'s, even though the formula bar still shows "1234"

Sub Reveal()
    ActiveSheet.Unprotect password:="Password"
    Dim password As String
    password = ActiveSheet.Range("B1").Text
        If InStr(1, password, "1234") Then
        Worksheets("360Review").Range("4:8").EntireRow.Hidden = False
        Else
            Worksheets("360Review").Range("4:8").EntireRow.Hidden = True
        End If
    ActiveSheet.Protect password:="Password"
End Sub

[xAcrosonicx]

I ended up writing it all out by hand in a very long and obnoxious nested If statement.

[Marc L]

Instead of some nested If you may use the Select Case statement …