Makro bei freigegebener Arbeitsmappe startet nicht
09.11.2015 11:57:44
Puh
ich habe folgendes Problem und komme jetzt nach längerer Suche nicht weiter.
Ich habe eine Excel-Datei, die nach einer eingestellte Zeit mit Ausgabe einer MsgBox, automatisch speichert und die Excel schließt.
Die Makros funktionieren jedoch nur, wenn die Datei nicht freigegeben wurde. Sobald ich die Arbeitsmappe für weitere Personen freigebe, passiert nichts.
Die Makrosicherheit habe ich schon auf "niedrig" gestellt.
Ich habe den Code in die Arbeitsmappe geschrieben:
Dim altezeit
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 15, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Infotext_ausgeben", schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Infotext_ausgeben"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object,
ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 15, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Infotext_ausgeben",
Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Infotext_ausgeben"
End Sub
Option Explicit
Sub Infotext_ausgeben()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Popup "Der Einsatzplan wird nun wegen Inaktivität geschlossen."
& vbNewLine & "Ihre Daten werden automatisch gespeichert !", 30, "INFO", 64
Set objShell = Nothing
ActiveWorkbook.Close savechanges:=True
End Sub
Danke und Gruss
Puh
Anzeige