Mappe als gespeichert markieren
11.07.2008 09:09:00
Markus
in einem ADD-IN habe ich folgendes Makro platziert.
Dieses erstellt eine leere Mappe1 und gibt die Standard-Schrift vor.
Wie kann ich aber nach Abschluss der Workbook_Open-Prozedur der Mappe1 folgendes übergeben.
Die Datei soll sobald sie offen ist, den Vermerk erhalten dass sie nur gespeichert werden sollen,
wenn darin auch Änderungen gemacht werden.
Das Problem mit der Speicher-Abfrage (für die Mappe1) ist vor allem dann lästig, wenn ich über den Explorer eine bereits bestehende Mappe öffne, oder ein Seriebenbrief gestartet wird mti einer verknüpften Mappe. Wird Excel nur so aus Spass geöffnet, stört mich die Frage nicht.
Danke für einen Tipp.
Markus
----------------------------------------------------------
Private Sub Workbook_Open()
On Error GoTo Fehler
With ActiveWorkbook.Styles("Normal")
.Font.Size = 10.5
.Font.Name = "Century Gothic"
End With
Selection.Style = "Normal"
ThisWorkbook.Saved = True
Fehler:
If Err.Number = 91 Or Err.Number = 0 Then Exit Sub
MsgBox "Fehler im Makro" & vbCrLf & "Fehlernummer: " & Err.Number & _
vbCrLf & "Fehlerbeschreibung: " & Err.Description
End Sub