Autosave mit Meldung
Heinz
Habe unteren Code,mit den mir die Datei automatisch nach Zeit gespeichert wird.
Nun möchte ich wenn gespeichert wird,das für diese Zeit nichts eingetragen werden kann,und eine MsgBox
erscheint,"Nichts anrühren"
Die MsgBox sollte nach dem speichern wieder verschwinden,und die Datei wieder aktiv sein.
Hätte dazu bitte jemand eine Hilfe anzubitten?
Gruß
Heinz
Option Explicit
Sub autosave()
Dim nexttime
ActiveWorkbook.Save
nexttime = Now + TimeValue("00:15:00")
Application.OnTime nexttime, "autosave"
End Sub
Anzeige