nach Workbook_Open() so tun als wäre gespeichert

Hallo zusammen,
ich komme nicht weiter, folgendes:
Ich habe ein Makro, zum Ausdrucken einer Excelliste in ein PDF, erstellt.
Wenn ich nun die Excel-Mappe öffne und auf den Button mit dem Makro klicke,
soll geprüft werden, ob die Mappe gespeichert werden muss, weil Änderungen gemacht wurden.
Das ist soweit auch kein Problem.
ABER:
Wenn ich die Mappe öffne und sofort danach auf den Button klicke, meldet mir meine Prüfung,
dass Änderungen vorhanden sind. Das ist auch logisch, weil ich unter:
Private Sub Workbook_Open()
verschiedene Aktionen durchführe, die aber mit Änderungen ansich nichts zu tun haben, also auch nicht gepeichert werden müssen.
Jetzt habe ich unter Private Sub Workbook_Open() als letzte Zeile:
ActiveWorkbook.saved = True gesetzt.
In meinem Makro kommt als erste Zeile : If Not ActiveWorkbook.Saved Then Call noch_speichern
Wie sage ich Excel, dass alles gespeichert ist, nachdem Excel geladen wurde und bereit zur Eingabe ist?
Ich habe ja noch nichts eingegeben, außer dass beim Laden Aktionen stattfinden, z.B. eine Zelle mit select
ausgewählt wird, um an einer bestimmten Stelle mit Eingaben anfangen zu können.
Gebe ich aber nichts ein, soll das Call noch_speichern nicht aufgerufen werden.
Ich hoffe Ihr versteht, was ich meine.
Grüße Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() If Cells(2, 7).Value = "" Then Application.Run "Start" ActiveWindow.WindowState = xlMaximized Columns("A:AD").Select ActiveWindow.Zoom = True Application.CutCopyMode = False Cells(15, 24).Select ThisWorkbook.Saved = True End Sub

Hi Torsten,
nein, denn dann verändere ich das Datum der Datei
und das ist ja nicht nötig, wenn ich diese nur ausdrucken will.
Die gepeicherte Mappe ein Ergebnis aus einer Vorlage, die
befüllt wird und automatisch gespeichert wird.
Danach öffne ich die gespeicherte Datei und möchte diese in ein PDF drucken,
entweder unverändert oder mit Änderungen, die ich dann auch speichern muss.
Funktioniert auch alles, bis auf nur ausdrucken, weil beim Öffnen der Status
"nicht gespeichert" gesetzt wird.
Was mich auch verwundert, wenn ich bei Worksheet Open() gar nichts eintrage,
ist die Datei trotzdem als "nicht gespeichert" gesetzt.
Kann es sein, durch den Aufruf vom Makro, das schon eine Änderung ist?
Grüße Ralf

Private Sub Workbook_BeforeClose(Cancel As Boolean) Saved = blnNeuGeoeffnet End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) blnNeuGeoeffnet = Not Cancel End Sub Private Sub Workbook_Open() blnNeuGeoeffnet = True End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) blnNeuGeoeffnet = False End Sub

Beliebteste Forumthreads (12 Monate)

nach Workbook_Open() so tun als wäre gespeichert

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread