vba with password

[Vtookup]

Hi all.
i need help with vba code to unhide sheets.
i have 6 sheets in a workbook. by default, 3 worksheet in xlsheetveryhidden mode.
i would like a vba code to show those hidden sheet if password is entered.
Thanks.

 

[Zubair Muhammad]

Hi Vtookup,

Try this code.

Sub showveryhiddensheets()

Password = InputBox("Enter a password to unhide sheets", "Unhide Very Hidden Sheets")

If Password = "Vtookup" Then
    For i = 1 To Sheets.Count
        If Sheets(i).Visible = xlVeryHidden Then
            Sheets(i).Visible = True
        End If
    Next i
Else
MsgBox "wrong password"
End If
End Sub

 

[Vtookup]

Thanks Zubair Muhammad.
it works but i want it to be temporary.
those sheets return to very hidden when restarting the file.
so by default those files are not visible.

 

[Zubair Muhammad]

Hi,

In that case you can write a macro that will make the 3 sheets very hidden whenever the workbook is opened

Sub auto_open()
Sheets("sheet2").Visible = xlVeryHidden
Sheets("sheet4").Visible = xlVeryHidden
Sheets("sheet6").Visible = xlVeryHidden
End Sub

 

[Vtookup]

Hi again.
sorry for the confusion.
my intention is...
1. when the file is open, the hidden sheets should remain hidden until password is entered. 2. and if it's not to much to ask, separate codes to hide those very hidden sheets again. no password necessary.
thanks for your time and help.

 

[Zubair Muhammad]

This simple code will make those sheets very hidden again. You can assign this macro to a button/shape.
Just modify the sheetnames according to your situation

Sub MakeVeryHiddenAgain()
Sheets("sheet2").Visible = xlVeryHidden
Sheets("sheet4").Visible = xlVeryHidden
Sheets("sheet6").Visible = xlVeryHidden
End Sub

 

[Vtookup]

Zubair Muhammad,
it work perfectly. Thank you.
just one more question...
can the password box show encryption like asterisks instead of readable password?

 

[Zubair Muhammad]

Yes its very much possible. I know of 2 ways

1) Use a Userform with a Textbox
2) Using Windows API

Have you used Userforms before?

 

[kelly mort]

Yes its very much possible. I know of 2 ways

1) Use a Userform with a Textbox
2) Using Windows API

Have you used Userforms before?

I wish to know the use of the API

And I am sure with the userform textbox, you have to set the password = textbook.value
Correct?
Regards
Kelly

 

[Zubair Muhammad]

I wish to know the use of the API

And I am sure with the userform textbox, you have to set the password = textbook.value
Correct?
Regards
Kelly

Yes. But you have to Set the passswordChar property of TextBox as "*" in order to encrypt the password. This is what Vtookup needs.