Unhide/ hide rows with password

Cleaner and you will only have to change your pswrd on top... (Change "hs" to your password)

Private Sub CommandButton1_Click()
Dim pswrd As String

pswrd = "hs"
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Password = InputBox("A password is required to run this procedure." & vbCrLf & _
    "Please enter the password:", "Password")
    
    If Password <> pswrd Then
        MsgBox ("Wrong Password")
    Else
        ActiveSheet.Unprotect pswrd
        Columns("A:E").EntireColumn.Hidden = True = Not _
        Columns("A:E").EntireColumn.Hidden = True
        ActiveSheet.Protect pswrd
    End If
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub