Hallo, ich habe Button womit ich eine Datei und darin direkt eine Eingabemaske öffnen will. Mein bisheriger Code aktiviert / öffnet die Datei, was mir fehlt, ist die direkte Anzeige der Eingabemaske. Ich stelle den Code mal hier ein, um vielleicht eine Lösung zu erhalten. Ich komme einfach nicht weiter.
Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim passwort As String
Dim pfad_zur_datei As String
Dim wb As Workbook
Dim bestaetigung As VbMsgBoxResult
' Bestätigungsnachricht anzeigen und Passwort abfragen
bestaetigung = MsgBox("Möchten Sie fortfahren?", vbQuestion + vbYesNo, "Bestätigung")
' Wenn der Benutzer auf "Ja" klickt
If bestaetigung = vbYes Then
passwort = InputBox("Geben Sie das Passwort ein:", "Passwortabfrage")
' Überprüfe das eingegebene Passwort
If passwort = "123" Then ' Ersetze "dein_passwort" durch das gewünschte Passwort
' Konstruiere den vollständigen Pfad zur Datei
pfad_zur_datei = "G:\NEU Reduziert für DEMO.xlsm" ' Passe den Pfad an
' Überprüfe, ob das Arbeitsblatt "Auswahlklick" existiert
On Error Resume Next
Set ws = Workbooks.Open(pfad_zur_datei).Worksheets("Auswahlklick")
On Error GoTo 0
' Wenn das Arbeitsblatt existiert, aktiviere es
If Not ws Is Nothing Then
ws.Activate
Else
MsgBox "Das Arbeitsblatt 'Auswahlklick' wurde nicht gefunden.", vbExclamation
Exit Sub
End If
Else
MsgBox "Falsches Passwort. Der Zugriff wurde verweigert.", vbExclamation
Exit Sub
End If
Else
MsgBox "Vorgang abgebrochen.", vbInformation
Exit Sub
End If
' Hier den restlichen Code ausführen, der auf dem geöffneten Arbeitsblatt "ws" basiert
End Sub
