12.12.2023, 00:54
(Dieser Beitrag wurde zuletzt bearbeitet: 12.12.2023, 01:00 von perostojkov.)
Hallo,
in meiner Vorlage.xltm startet beim öffnen ein Inputfeld wo man den neuen Dateinamen eingeben kann, zb 123456. Dann wird sie mit .SaveAs als 123456.xlsm gespeichert.
Vorher wird geprüft ob die Datei schon vorhanden ist. Falls ja, dann wird sie geöffnet und die Vorlage1 geschlossen. Siehe Teilcode:
Workbooks.Open Filename:=pfad2
ThisWorkbook.Close SaveChanges::=False
Es funktioniert alles gut.
Mein Problem ist, dass die Vorlage1 nicht geschlossen wird, wenn die 123456.xlsm von ein anderer User geöffnet ist (schreibgeschützt ist nicht erlaubt)
Workbook_Open()
If ThisWorkbook.ReadOnly Then
Msgbox "....in Bearbeitung, später versuchen..."
ThisWorkbook.Close False
End if
Ich möchte dass ausser 123456.xlsm auch die Vorlage1 geschlossen wird. Wie mache ich das am besten? Habe mit Makrorecorder versucht, es klappt nicht.
LG perostojkov
in meiner Vorlage.xltm startet beim öffnen ein Inputfeld wo man den neuen Dateinamen eingeben kann, zb 123456. Dann wird sie mit .SaveAs als 123456.xlsm gespeichert.
Vorher wird geprüft ob die Datei schon vorhanden ist. Falls ja, dann wird sie geöffnet und die Vorlage1 geschlossen. Siehe Teilcode:
Workbooks.Open Filename:=pfad2
ThisWorkbook.Close SaveChanges::=False
Es funktioniert alles gut.
Mein Problem ist, dass die Vorlage1 nicht geschlossen wird, wenn die 123456.xlsm von ein anderer User geöffnet ist (schreibgeschützt ist nicht erlaubt)
Workbook_Open()
If ThisWorkbook.ReadOnly Then
Msgbox "....in Bearbeitung, später versuchen..."
ThisWorkbook.Close False
End if
Ich möchte dass ausser 123456.xlsm auch die Vorlage1 geschlossen wird. Wie mache ich das am besten? Habe mit Makrorecorder versucht, es klappt nicht.
LG perostojkov