hide all worksheets having hyperlink except the "MASTER"

[abid hussain]

Sir
I need your help once again as I am trying to hide all worksheets having hyperlink except the "MASTER" when my file is opened and unhide each worksheet when a text box with a hyperlink is selected. The sheet should be hidden again once the "return to menu" text box is selected. The main dashboard can stay active all the time

Regards

Abid Hussain

 

[Belleke]

Delete all hyperlinks.
Can be done with this code in the active sheet

Sub del()
ActiveSheet.Hyperlinks.Delete
End Sub

Next put this code in the ThisWorkbook module

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each wsSheet In Worksheets
    wsSheet.Visible = False
        If wsSheet.Name = "MAIN" Or wsSheet.Name = "Employee master" Then
            wsSheet.Visible = True
        End If
Next wsSheet
Application.Goto Sheets("MAIN").[A1]
End Sub

Sheets MAIN and Employee master wil stay visible.
For all of your home buttons use this code

Sub home()
ActiveSheet.Visible = False
    Application.Goto Sheets("MAIN").[A1]
End Sub

Under your buttons use this code, this is the code for the index sheet

Sub index()
Sheets("INDEX").Visible = xlSheetVisible
    Application.Goto Sheets("INDEX").[A1]
End Sub

note: there is a leading space in Minimum Wages sheet name

 

[vletm]

abid hussain​

You skipped solution from Your previous thread.
You could use this sample.

 

[abid hussain]

abid hussain​

You skipped solution from Your previous thread.
You could use this sample.

Thank you so much Sir, for your kind support.

 

[abid hussain]

Delete all hyperlinks.
Can be done with this code in the active sheet

Sub del()
ActiveSheet.Hyperlinks.Delete
End Sub

Next put this code in the ThisWorkbook module

Private Sub Workbook_Open()
Application.ScreenUpdating = False
For Each wsSheet In Worksheets
    wsSheet.Visible = False
        If wsSheet.Name = "MAIN" Or wsSheet.Name = "Employee master" Then
            wsSheet.Visible = True
        End If
Next wsSheet
Application.Goto Sheets("MAIN").[A1]
End Sub

Sheets MAIN and Employee master wil stay visible.
For all of your home buttons use this code

Sub home()
ActiveSheet.Visible = False
    Application.Goto Sheets("MAIN").[A1]
End Sub

Under your buttons use this code, this is the code for the index sheet

Sub index()
Sheets("INDEX").Visible = xlSheetVisible
    Application.Goto Sheets("INDEX").[A1]
End Sub

note: there is a leading space in Minimum Wages sheet name

Thank you so much Sir.