Passwort an InputBox übergeben
16.03.2023 08:52:02
Tobias
Hallo zusammen,
Ich habe nachfolgende Sub zum ein- und ausblenden von Blättern. Nachfolgend exemplarisch für das AUSblenden.
Nun habe ich ein zusätzliche Sub geschrieben, die verschiedene Steps durchführt und die Datei dann mehrfach mit verschiendenen Namen automatisch in einen Ordner abspeichert. Vorm abspeichern möchte ich die eingeblendeten Blätter AUSblenden. D.h. am Ende schreibe ich "CALL BlaetterAUSblenden". Nun kommt aber natürlich jedes mal die Passwortabfrage :).
Kann ich nach "CALL BlaetterAUSblenden" mit einem Zusatz das Passwort automatisch an die InputBox übergeben?
Danke und Gruß
Tobias
Sub BlaetterAUSblenden() ' Versteckt ausblenden
Dim cb As String
Application.ScreenUpdating = False
cb = InputBox("Nur für Controlling: Bitte Passwort eingeben!")
If cb = "ttt" Then
Worksheets("Kommentare").Visible = xlVeryHidden
Worksheets("Kommentare2").Visible = xlVeryHidden
Worksheets("ABF-Export").Visible = xlVeryHidden
Worksheets("Pivot").Visible = xlVeryHidden
Worksheets("Diagrammdaten").Visible = xlVeryHidden
Worksheets("List").Visible = xlVeryHidden
Worksheets("Details").Select
Else
MsgBox ("Falsches Passwort!"), vbInformation
Application.ScreenUpdating = True
Exit Sub
End If
End Sub