Gruppe
Allgemein
Bereich
Blattschutz
Thema
Masterlistsystem mit Passwortabfrage bei Blattauswahl
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