Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Masterlistsystem mit Passwortabfrage bei Blattauswahl

Gruppe

Blattschutz

Problem

Über Passwörter können anwenderdefinierte Blätter ausgewählt werden, die nur die für den speziellen Anwender gedachten Daten aus der MasterList enthalten.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn den Schaltflächen zu.

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