Macro for hide - unhide sheets

[gestioperformance]

Hi everybody!
i need a macro that will hide all the sheets at the closing of the file, and it will unhide those hidden sheets at the opening. In particular, i want to protect all my sheets with a password, and the macro should auto-insert the password (that could even be the same password) at the opening.
The idea is to keep the sheets hidden to avoid unauthorized users to read the file.

Thank you in advance for any kind of help.

 

[Logit]

.
Presuming you want only yourself (or someone who knows the password) to have access to the workbook ... rather than protect the worksheets ... protect the entire workbook :

Option Explicit
Private Sub CommandButton1_Click()
Dim username, password As String
username = TextBox1.Text
password = TextBox2.Text


If username = "myuser" And password = "password" Then
    MsgBox "You entered the correct info ", vbInformation, "Log In Correct"
    Unload Me
Else
    MsgBox "You entered the WRONG info ", vbCritical, "Log In Incorrect"
    Unload Me
    Application.Visible = False
    ThisWorkbook.Close
    Application.Quit
End If
End Sub

Note for this example the USER NAME is myuser and the PASSWORD is password.

This project requires a Userform.

You can download the project here : https://www.amazon.com/clouddrive/share/Xib2AyBMo1oF90LSzssLnclHy9OSgpg2aPQpVdDKpkn