HERBERS Excel-Forum - die Beispiele

Thema: Masterlistsystem mit Passwortabfrage bei Blattauswahl

Home

Gruppe

Allgemein

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

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

Blattschutz per Userform ein und ausschalten Userform soll Blattschutz regeln
Autofilter trotz Blattschutz Blattschutz mit Abfragefenster
Blattschutz in Makro integrieren Blattschutz vs. Gruppierung
Blattschutzpasswort in Zelle? Blattschutz mit falschem Passwort entfernt
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
Autofilter mit Blattschutz Blattschutz bei Diagrammen
Makro trotz Blattschutz Blattschutz
Probleme mit Blattschutz bei Excelvorlage Benutzerdefinierte Ansicht nach Blattschutz
Benutzerdefinierte Ansichten trotz Blattschutz Blattschutz auch bei Formeln aufheben
Gesperrte zellen trotz Blattschutz überschrieben Gruppierung bearbeiten trotz Blattschutz
Blattschutz und Makros Tastenkombination freigeben trotz Blattschutz
allgemein Checkbox - LinkedCell - Blattschutz
Gruppierung trotz Blattschutz speichern von Blattschutz änderungen
Fehlermeldung wenn Blattschutz aktiv Blattschutz macht was er will
Fehler wegen Blattschutzautomatik?? Kopieren in Blattschutz
Makro für Blattschutz Makro für Blattschutz mit Passwort
Blattschutz mit Kennwort als Makro Blattschutz mit Kennwort als Makro
Blattschutz Makro ausführen mit Blattschutz auf Tabelle 2
Autofilter trotz Blattschutz Verwendung von Makro trotz Blattschutz
mit VBA Blattschutz Listen und Blattschutz
Freigegebene Arbeitsmappe, Ansichten & Blattschutz option field - Blattschutz
Blattschutz an Bedingung knüpfen Blattschutz mit Passwort
Blattschutz blattschutz
Blattschutz allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage Blattschutz