folgenden Code habe ich von Euch erhalten und ein bisschen umgebaut.
Sub MenüsUndSymbAusblenden()
Dim cb As CommandBar
MenuBars.Add.Activate
For Each cb In CommandBars
cb.Enabled = False
Next
Titel = InputBox("Bitte Passwort eingeben")
If Titel = 1 Then Sheets("Grenzach").Visible = True Else
If Titel = 2 Then Sheets("Tabelle2").Visible = True Else
If Titel = 3 Then Sheets("Tabelle3").Visible = True Else End
'hier sollte das eingeblendete Tabellenblatt aktiviert werden.
End Sub
Es sind insgesamt ca. 20 verschiedene Tabellenblätter, die je nach Passwort eingeblendet werden sollen. Ist mein Gedankengang so richtig 20x if und wie lautet der Code zum aktivieren des gerade eingeblendeten Tabellenblattes, das ja immer ein anderes sein kann (tabelle 2 und 3 sind nur Beispiele)?
Für eure Hilfe bedanke ich mich im vorraus.
Heinz