Clever-Excel-Forum

Hallo zusammen,

ich öffne beim Öffnen einer Datei eine Userform1 in der ich Eingaben erzwinge. Wenn diese Eingaben gemacht sind und die Datei gespeichert wurde, soll diese Userform1 bei einem erneuten öffnen der Datei, nicht mehr öffnen. Wie kann ich dies erreichen?

Code:
Private Sub Workbook_Open()

Dim Blatt As Object

'If ThisWorkbook.BuiltinDocumentProperties(29).Value = "" Then _

       'UserForm2.Show

Sheets("Schichtenprotokoll").Select

'    Range("A8").Select

If Me.FileFormat = 52 Then

    Sheets("Schichtenprotokoll").Select

    Range("A8").Select

'UserForm2.Show

UserForm1.Show

End If

Call AutoSpeichernEinschalten

For Each Blatt In Worksheets

Blatt.Protect ""

Next Blatt

End Sub

Hi,

dann check zu Beginn, ob die Eingaben in der Datei enthalten sind. Wenn nicht: UF öffnen, wenn ja: nix machen.
Mangels weiterer Angaben geht`s grad nicht konkreter.

Hallo Boris,

Vielen Dank für deine Antwort. Der Ansatz ist schonmal gut.
Die Zellen die mit der Userform bearbeitet werden sind alle gefüllt, sie werden
mit der Eingabe überschrieben. Das was sich ändert wäre der Dateiname
da ich immer aus einer Vorlage öffne.
Das bedeutet ich bräuchte einen Code der nach Änderung des Dateinamen
die Userform nicht mehr öffnet.

Die zweite Möglichkeit, ich schreibe beim ersten Speichern einen Wert
in eine bestimmte Zelle und frage die beim Öffnen ab.

Danke für die Hilfe.

Hallo Dietmar,

(20.12.2021, 12:52)DietmarD schrieb: [ -> ]... da ich immer aus einer Vorlage öffne. ...

Code:
If Me.Path = "" Then

  UserForm1.Show

End If

Gruß Uwe

Hallo Uwe,

vielen Dank für deine Hilfe, ich kann das leider erst am Mittwoch probieren
und Melde mich dann noch mal.

Hallo Uwe,

vielen Dank für deine Hilfe, funktioniert einwandfrei.

Ich wünsche dir ein besinnliches Weihnachtsfest.

DietmarD

{Boris}

DietmarD

Kuwer

DietmarD

DietmarD