Sluiten excel bij inactiviteit

[Renevatio]

Hallo,

Ik heb een planning in excel. Aangezien excel niet multi-user is en er een 6 tal mensen wijzigingen moeten kunnen doen heb ik op het net een macro gevonden die het excel bestand saved en afsltuit na 2 minuten.

Het probleem is dat het bestand alleen zou mogen sluiten na 2 minuten van inactiviteit. Dus als gedurende twee minuten door diegene die in de planning bezig is niets meer gebeurd.

Weet hier iemand raad op? Ik merk ook dat excel nogal eens een tweede geopend document durft te sluiten ipv de planning.


Bedankt

 

[Wigi]

Heb je al eens de mogelijkheid om bestanden te delen gebruikt in Excel?

 

[arafy]

renevatio,

hier op het forum staat een gelijkaardige vraag. ik vind hem niet dadelijk terug. op het werk heb ik de link wel opgeslagen. volgens mij ligt de fout in het auto_open. ik heb het hier even getest, maar het werkt hier ook niet.
ik ben momenteel maar op de achtergrond bezig met excel, vandaar het gebrek aan tijd.

steven

 

[Justes]

Hallo Renovatio,

Sub Auto_Close()
 Application.OnTime Now() + TimeValue("00:02:00"), "Makro2"
End Sub

Dat werkt bij mij wel.

Gr Justes

 

[Renevatio]

Oké Arafy ik zal eens de zoek functie raadplegen.
Moest je de link op je werk vinden mag je hem altijd posten.


Nee Wigi ik heb dat nog nooit uitgeprobeerd. Ik heb alleen bang dat als meerdere mensen de planning beginnen wijzigen en saven gegevens verloren zullen gaan aangezien twee mensen op hetzelfde moment aan het werken zijn.


Groeten

 

[Renevatio]

Hallo,

Ik heb nog iets gevonden op het net. Bij mij werkt het niet. Misschien dat de ervare programmeurs het foutje zien.


First of all set a time limit eg 10 minutes
Workbook Open Event and OnTime Method

VBA:
Private Sub Workbook_Open()
EndTime = Now + TimeValue("00:10:00")
RunTime
End Sub This resets the timer if a change in the workbook occurs
Workbook Change Event

VBA:
Private Sub Worksheet_Change(ByVal Target As Range)
If EndTime Then
Application.OnTime _
EarliestTime:=EndTime, _
Procedure:="CloseWB", _
Schedule:=False
EndTime = Empty
End If
EndTime = Now + TimeValue("00:10:00")
RunTime
End Sub If no changes have occurred then this runs

VBA:
Public EndTime
Sub RunTime()
Application.OnTime _
EarliestTime:=EndTime, _
Procedure:="CloseWB", _
Schedule:=True
End Sub

Sub CloseWB()
Application.DisplayAlerts = False
With ThisWorkbook
.Saved = True
.Close
End With
End Sub

 

[Justes]

Hallo Renovatio,

Sub Auto_Close()
 Application.OnTime Now() + TimeValue("00:02:00"), "Makro2"
End Sub

Sub Makro2()
 ActiveWorkbook.Save
 ActiveWorkbook.Close
End Sub

Dat werkt bij mij wel.

Gr Justes

Deze werkt wel maar dan moet je de computer absolut met rust laten.

Gr Justes

 

[arafy]

zoals beloofd de link.

steven