Hallo Zusammen,
ich habe nichts dazu gefunden - aber vielleicht habe ich nach den flaschen Stichworten gesucht.
Folgendes Problem. Wir haben eine Excel Datei, die von mehreren Leuten bearbeitet wird.
Leider kommt es immer wieder vor, dass jemand vergisst diese zu schließen -> gesperrt für andere.
Gibt es eine Möglichkeit eine Exceltabelle nach inaktivität (Zeit x) zu schließen bzw. ein Fenster geöffnet wird in 30 Sekunden wird automatisch geschlossen ?
Hi,
hier ist meine eigene Lösung für das Problem. Es besteht aus einer Userform für den Countdown (frm_CountDown), einem Modul für den CountDown (Modul_CountDown) mit der Funktion CountDown() für den Aufruf der Userform und einem Modul für das AutoSchließen (Modul_AutoSchließen) mit den Funktionen Schließen(), SchließenTimer(), SchließenTimerAus() und AutoSchließenStart(). Am Anfang dieses Moduls ist in den Kommentaren beschrieben, wie man die Funktion einbindet.
Die drei Dateien werden im VBA-Editor über "Datei importieren..." in die entsprechende Excel-Datei geladen. Was sonst noch getan werden muss, steht am Anfang von Modul_Autoschließen.
Hallo,
ein anderer Ansatz:
Für User ohne die Notwendigkeit einer Änderung:
Öffnen im "ReadOnly"-Modus
Wenn jemand doch etwas ändern möchte:
Öffnen mit "ReadOnly"
Schreibrechte erhalten mit Thisworkbook.ChangeFileAccess xlReadWrite
Nach den Änderungen mit Thisworkbook.ChangeFileAccess xlRead
zurücksetzten.
Das dies hin und wieder zu Problemen führen kann, ist möglich.
mfg
Danke euch ich schaue mir das an - wie erwartet, nach falschen Stichworten gesucht - Verzeihung
In "DieseArbeitsmappe" folgendes Eingeben
Dim startzeit
Private Sub Workbook_Open()
On Error Resume Next
Application.OnTime EarliestTime:=Data, Procedure:="Schließen", Schedule:=False
Data = Now + CDate("00:10:00")
Application.OnTime Data, "Schließen"
End Sub
@Wolf59
1. fehlt die Routine Schließen(), die du ja mit OnTime aufrufst
2. wird die Mappe so stur nach 10 Minuten ohne weitere Warnung geschlossen, egal ob man gerade damit etwas macht oder nicht