Workbook automatisch schliessen
04.01.2007 16:20:46
Mister
Jeden Abend um 20:00 öffnet sich meine Datei automatisch (Windows - Geplante Tasks) und die OnTime Funktion führt ein Makro aus. Hier mein Makro.
Private Sub Workbook_Open()
Application.OnTime TimeValue("20:00:00"), "CheckListeDrucken"
End Sub
Sub CheckListeDrucken()
Dim strText As String, Antwort As Byte
strText = "Möchten Sie die Check Liste für Morgen drucken?"
Antwort = MsgBox(strText, vbYesNo + vbQuestion, "Erinnerung")
If Antwort = vbYes Then
Application.ScreenUpdating = False
Sheets("CheckListe").Unprotect
Sheets("CheckListe").Range("B3") = Date + 1
Sheets("CheckListe").Protect
Sheets("CheckListe").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Sheets("Startseite").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = False
BlendIn
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End Sub
Das Problem liegt darin, dass Excel beim schliessen immer noch fragt ob gespeichert werden soll. Woran kann das liegen? Ich möchte nur dass Excel speichert und schliesst ohne nachzufragen. Hat jemand eine Idee wo ich falsch abgebogen bin?
Gruß
Mister B