ich würde gerne in einer Arbeitsmappe einstellen können, dass man gewisse Blätter nur mit einem Passwort öffnen kann.
Ich habe zwar keine Lösung hierfür gefunden, jedoch eine Alternative:
https://www.herber.de/forum/archiv/836to840/836197_Tabellenblaetter_oeffnen_nur_mit_Passwort.html
Mit diesem Code kann ich das Blatt per Button anzeigen lassen
Sub cmdBlattAufruf_Capex()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "123"
With Worksheets("CAPEX 2022 LV")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub
Jetzt würde ich gerne mit einem Button 12 Blätter Einblenden lassen.Mein Versuch:
Sub cmdBlattAufruf_Controlling()
Dim sPassWord As String
sPassWord = InputBox("Paßwort eingeben:", , "")
Select Case sPassWord
Case "123"
With Worksheets("Overview")
With Worksheets("Total Savings")
With Worksheets("Material")
With Worksheets("Labour")
With Worksheets("FCR")
With Worksheets("OVCs")
With Worksheets("Utilities")
With Worksheets("Fixed Costs")
With Worksheets("Target xxx")
With Worksheets("Fx")
With Worksheets("x")
With Worksheets("xt")
.Visible = True
.Select
End With
Case ""
Case Else
Beep
MsgBox "War wohl nix!"
End Select
End Sub
Leider bekomme ich die Fehlermeldung:Case ohne Select Case
Kennt hier jemand die Lösung für und/oder eine Lösung für meine eigentliche Frage? (Passwortabfrage bei öffnen eines Blattes)