Unhide/ hide rows with password

How will the users with the password be able to view the columns that are hidden?

the code works but the only problem I have is that anyone could come into the sheet and unhide the columns manually by marking the column F, right click and unhide option...

Better to keep the same password for all.
Change the "hs" to your password... and in bracket pswrd = "Change this to your password" to the same 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

you are a genius, many thanks

please how can protect just these specific colums not all sheet, thanks