Userform1 nach dem Speichern nicht mehr öffnen

[DietmarD]

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

[{Boris}]

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.

[DietmarD]

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.

[Kuwer]

Hallo Dietmar,

... da ich immer aus einer Vorlage öffne. ...

Code:

If Me.Path = "" Then
  UserForm1.Show
End If

Gruß Uwe

[DietmarD]

Hallo Uwe,

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

[DietmarD]

Hallo Uwe,

vielen Dank für deine Hilfe, funktioniert einwandfrei.

Ich wünsche dir ein besinnliches Weihnachtsfest.