Erinnerung nach Zeitablauf
06.12.2021 11:52:52
MRH
ich arbeite mit ein paar Kollegen in einer Excel-Datei. Diese Datei befindet sich auf einem Netzlaufwerk.
Da es manchmal vorkommt, dass ein Kollege vergisst die Datei nach der Bearbeitung zu schließen und somit andere Kollegen daran hindert in dieser zu arbeiten, hatte ich die Idee lt. Betreff.
Das führt aber zu einem Problem: Die Datei öffnet sich automatisch, auch wenn sie vorher vom Benutzer geschlossen wurde.
Mein Code
In der Arbeitsmappe:
Private Sub Workbook_Open()
Worksheets("Termine").Activate
'Application.OnTime Now + TimeSerial(0, 1, 0), "Msg"
UserForm1.Show
End Sub
Im Modul:
'Sub Msg()
'MsgBox Application.UserName & ", sind Sie mit der Betrachtung/Eingabe fertig? Falls Sie fertig sind, schließen Sie die Datei bitte damit weitere Nutzer darin arbeiten können. Danke.", vbQuestion, "TerminlisteWBM - Haben Sie vergessen die Datei zu schließen?"
'End Sub
Hat jemand eine Erklärung? Bevor ich diese Zeilen eingefügt habe, ist das Problem nicht aufgetreten. Daher bin ich mir so sicher, dass es damit zusammenhängt.Dank im Voraus.
Grüße