Thema: Masterlistsystem mit Passwortabfrage bei Blattauswahl

StandardModule: Modul1

Sub SelectWks()
   Dim sPW As String
   sPW = ActiveSheet.Buttons(Application.Caller).Caption
   If InputBox("Passwort:", "Blattwechsel", sPW) <> sPW Then
      Beep
      MsgBox "Falsches Passwort"
      Exit Sub
   End If
   Call EinAusblenden
   With Worksheets(sPW)
      If sPW <> "MasterList" Then
         .Cells.ClearContents
         Worksheets("MasterList").Range(sPW).Copy .Range("A2")
         .Columns.AutoFit
      End If
      .Visible = xlSheetVisible
      .Select
   End With
   Application.CutCopyMode = False
End Sub

Sub GoHome()
   Call EinAusblenden
   Worksheets("Cover").Select
End Sub

Sub EinAusblenden()
   Dim iWks As Integer
   For iWks = Worksheets("Cover").Index + 1 To Worksheets.Count
      Worksheets(iWks).Visible = xlVeryHidden
   Next iWks
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Blattschutz