Add two more worksheet to current code...

Sub ToggleVisibilityOfDataWs()

Application.EnableEvents = False

    Const MasterName As String = "Main"
    Const pw As String = "Test1"

        With ThisWorkbook
            If .ActiveSheet.Name = "Main" Then
                With .Worksheets("Source Data")
                    If .Visible Then
                       .Visible = False
                       
                       Else
                       
                       If InputBox("PLEASE ENTER PASSWORD:", "Password Security Check....") = pw Then
                       .Visible = True
                       
                Else
                MsgBox "INCORRECT PASSWORD - PLEASE TRY AGAIN!", vbOKOnly + vbInformation, "Feedback....."
            End If
          End If
         End With
        Else
        
            MsgBox "Can only run this macro from worksheet called " & MasterName, vbOKOnly + vbInformation, "Feedback....."
          End If
        End With
    
    Application.EnableEvents = True
    ActiveWindow.DisplayWorkbookTabs = True

End Sub

Select allOpen in new window