Ich habe ein Workbook welches beim start und beim beenden alle Tabellen, außer Tabelle1 ausblendet.
Das mache ich per Workbook open/ close.
Es sollen nach dem start nur bestimmte Tabellenblätter per Button + Passwort eingeblendet werden können. Über einen "Alle einblenden-Button" sollen alle Tabellenblätter eingeblendet werden können.
Je nachden, wer welches Passwort besitzt.
Die Buttons liegen also alle in Tabelle1
Nach klick kommt eine PW- Abfrage usw...
Über einen Button mit Namen Alle einblenden habe ich es auch geschafft, alle Tabellen zusammen einblenden zu lassen. (mit Passwort)
Ich bekomme es aber absolut nicht hin, über die anderen Buttons (für jeden sheet einen) nur einzelne Tabellen einzublenden.
Kann mir jemand mal ein Bsp. für ein Blatt zeigen? Ich denke, dass ich den Rest dann anpassen kann.
V.G.
Hier mein code für Alle einblenden :
Option Explicit
'*** Blätter_gesamt_einblenden ***
Sub Blätter_gesamt_einblenden()
Dim PW
Application.ScreenUpdating = False
Sheets("Gesamt alias Sheet2").Visible = xlVeryHidden
Sheets("Sheet3").Visible = xlVeryHidden
Sheets("Sheet4").Visible = xlVeryHidden
Sheets("Sheet5").Visible = xlVeryHidden
Sheets("Sheet6").Visible = xlVeryHidden
Sheets("Sheet7").Visible = xlVeryHidden
PW = InputBox("Passwort")
If PW = "test" Then
Sheets("Startseite alias Sheet1").Activate
Sheets("Gesamt alias Sheet2").Visible = True
Sheets("Sheet3").Visible = True
Sheets("Sheet4").Visible = True
Sheets("Sheet5").Visible = True
Sheets("Sheet6").Visible = True
Sheets("Sheet7").Visible = True
With Worksheets("Startseite alias Sheet1")
.Unprotect Password:="test"
Cells.Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
.Protect Password:="test"
End With
End If
Application.ScreenUpdating = True
End Sub