ich hab mich mal an VBA gewagt. Der Code geht mit Sicherheit auch besser, aber funzt.
Als Passwort zum entsperren und einblenden der Tabellen habe ich "1" gewählt. zum sperren und ausblenden "2".
Sub Makro1()
If Range("a2") = "1" Then
Sheets("Tabelle2").Visible = True
Sheets("Tabelle2").Unprotect
Sheets("Tabelle3").Visible = True
Sheets("Tabelle3").Unprotect
Sheets("Tabelle4").Visible = True
Sheets("Tabelle4").Unprotect
Sheets("Tabelle5").Visible = True
Sheets("Tabelle5").Unprotect
Sheets("Tabelle6").Visible = True
Sheets("Tabelle6").Unprotect
Sheets("Tabelle7").Visible = True
Sheets("Tabelle7").Unprotect
Sheets("Tabelle8").Visible = True
Sheets("Tabelle8").Unprotect
Sheets("Tabelle9").Visible = True
Sheets("Tabelle9").Unprotect
Sheets("Tabelle10").Visible = True
Sheets("Tabelle10").Unprotect
Sheets("Tabelle11").Visible = True
Sheets("Tabelle11").Unprotect
Sheets("Tabelle12").Visible = True
Sheets("Tabelle12").Unprotect
Sheets("Tabelle13").Visible = True
Sheets("Tabelle13").Unprotect
Sheets("Tabelle14").Visible = True
Sheets("Tabelle14").Unprotect
Sheets("Tabelle15").Visible = True
Sheets("Tabelle15").Unprotect
End If
If Range("a2") = "2" Then
Sheets("Tabelle2").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle3").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle4").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle5").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle6").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle7").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle8").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle9").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle10").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle11").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle12").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle13").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle14").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle15").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle2").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5", "Tabelle6", "Tabelle7", _
"Tabelle8", "Tabelle9", "Tabelle10", "Tabelle11", "Tabelle12", "Tabelle13", _
"Tabelle14", "Tabelle15")).Select
Sheets("Tabelle15").Activate
ActiveWindow.SelectedSheets.Visible = False
End If
End Sub