Unhide/ hide rows with password

I can't think of an easy way to do it via VBA. Is there a reason you can't use the built in worksheet protection?

hello,
One of the sheets in my workbook needs to be viewed by only few people and the excel option to protect the sheet does not really work well when the file is shared... Ony ideas?
I am really strugling with it...

Hii Megtoma,

VBA can password protect/unprotect sheets and hide/unhide rows for you.

Would you want a button at the top of the sheet for a user to click and be prompted for a password? If the password is correct it could unlock and unhide the rows. Once they are finished they could click the button to hide the rows again and relock the sheet with the same password. The only "protected" cells would be the 1000 hidden rows so other users could see the rest of the sheet.

Mowgli

Hi,
Yes, this is what I would need. When you mentioned the button... I think it would be better to hide columns from A-E and I would place the button in column G.
It would be great if you could help.

Many thanks.

Your Code to hide unhide could be:

Columns("A:E").EntireColumn.Hidden = True = Not _
Columns("A:E").EntireColumn.Hidden = True

    
Application.ScreenUpdating = False
    Application.EnableEvents = False
    Password = InputBox("A password is required to run this procedure." & vbCrLf & _
    "Please enter the password:", "Password")
    If Password <> "Your Password here" Then
    MsgBox ("Wrong Password")
    Else

'Your Code Here
    End If
Application.EnableEvents = True
Application.ScreenUpdating = True

Untested

Many thanks, it works!!! However, is it possible to disable possibility to unhide the columns without using the macro button?

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

You could set a password for your sheet then lock it once complete...

Try this:

Private Sub CommandButton1_Click()
Dim pswrd As String
pswrd = "Change this to your password"
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Password = InputBox("A password is required to run this procedure." & vbCrLf & _
    "Please enter the password:", "Password")
    If Password <> "hs" 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

Untested