How to VeryHidden worksheets and display them with a password

[K0st4din]

Hello, everyone,
I love this excel so much that he can't put it into words.
Macros, I adore them.
The truth is that I searched in many sites, but very rarely there is a macro that is 100% consistent with what the user needs.
I could not find for my needs and therefore I ask you for help.
Here's what I need:
I have a workbook with 50 worksheets with different names.
I'm looking for a macro that always leaves a worksheet with a name (base) and the others with names ("peaches", "bananas", etc.) to be VeryHidden after the workbook closes (maybe Me.Save) .
And when I open the workbook, only the worksheet (base) is visible and I can show all the hidden worksheets with a password.
If the password is incorrect, do not show any of the hidden worksheets
I will be grateful for any help.
Greetings

 

[K0st4din]

I adjusted this to use the code name of the master sheet. And I corrected the variable to xlSheetVisible.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim oneSheet As Worksheet

    Sheet1.Visible = xlSheetVisible
   
     For Each oneSheet In Me.Sheets
         If oneSheet.Name <> Sheet1.Name Then
             oneSheet.Visible = xlSheetVeryHidden
         End If
     Next oneSheet
    
End Sub

Private Sub Workbook_Open()
    Dim uiPassword
    Dim oneSheet As Worksheet
   
    Const soughtPassword As String = "password"
    uiPassword = Application.InputBox("Enter password", Default:=soughtPassword, Type:=2)
   
    If uiPassword = soughtPassword Then
        For Each oneSheet In Me.Sheets
            oneSheet.Visible = xlSheetVisible
        Next oneSheet
    Else
        MsgBox "wrong password"
    End If
End Sub

Hi, it works now, but I don't want the hidden worksheets to be displayed if the user doesn't know the password.
As soon as I open the workbook, the password window appears and it is visible (written), the password should be written there only if the user knows it. Otherwise, close the workbook.

 

[MARK858]

The many and varied way you can get into the 'Hidden Sheets' made the whole exercise a total waste.

Are you talking about Hidden sheets or Very Hidden sheets?You can still get into Very Hidden sheets but it is harder if the VBA is protected.
What Mike has posted are Very Hidden sheets not Hidden sheets.
At the end of the day nothing in Excel is secure if you have a bit of knowledge.

 

[K0st4din]

Are you talking about Hidden sheets or Very Hidden sheets?You can still get into Very Hidden sheets but it is harder if the VBA is protected.
What Mike has posted are Very Hidden sheets not Hidden sheets.
At the end of the day nothing in Excel is secure if you have a bit of knowledge.

Yes, I'm talking about VeryHidden sheets.
All macros are password locked in my table.
Thanks for joining

 

[MARK858]

Yes, I'm talking about VeryHidden sheets.
All macros are password locked in my table.
Thanks for joining

My response was directed to the comment by @HappierThan

 

[mikerickson]

Hi, it works now, but I don't want the hidden worksheets to be displayed if the user doesn't know the password.
As soon as I open the workbook, the password window appears and it is visible (written), the password should be written there only if the user knows it. Otherwise, close the workbook.

Then remove the Default argument of the Application.Input box. (And change the value of soughtPassword to be what you want.)
My providing a default was to highlight that this (or any other protection scheme) is not secure. Excel is not a place to keep secrets.
However, the VeryHidden nature of the sheets makes this a good way to insure that the user enables macros when opening the book.

 

[K0st4din]

@mikerickson

Thank you very much for your cooperation.
I am 10,000% clear that this cannot protect anything, but still I know to whom I will send it and I know that it will not reach where it should not.