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.
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