Office: (Office 2010) Excel MsgBox in Vordergrund nach Inaktivität

Hallo zusammen,

auf der Arbeit arbeiten mehrere Personen mit einer Excelliste.
Leider wird nachdem etwas in diese Liste eingetragen wird immer wieder vergessen diese zu schließen und dann auch mal Mittagspause gemacht, wärend andere warten müssen, dass sie Zugriff auf die Liste bekommen.

Aus dem Grund wäre es toll, wenn nach 5 minütiger Inaktivität in der Liste eine MSGBox aufgeht - die dann auch Excel in den Vordergrund holt.

Mein Ansatz:

DieseArbeitsmappe:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
letzte_Änderung = Date + Time
Application.OnTime letzte_Änderung + TimeValue("00:05:00"), "Warnmeldung"
End Sub


Modul1:

Public letzte_Änderung As Date
Sub Warnmeldung()
If Date + Time >= letzte_Änderung + TimeValue("00:05:00") Then
Application.OnTime Now + TimeValue("00:00:01"), "Vordergrund"
MsgBox "Raus aus der Liste!"
End If
End Sub

Sub Vordergrund()
Windows(1).NewWindow
ActiveWindow.Close
Application.SendKeys "%{TAB}"
End Sub

Irgendwie klappts aber nicht so richtig.
Manchmal wird die Liste in den Vordergrund geholt, manchmal nicht.
Manchmal erscheint die MSG-Box 3mal hintereinander..

Achja.. die NUM-Taste wird hierbei auch immer deaktiviert *frown.gif*

Habt ihr irgendwelche lösungsansätze?

Danke & VG
kryox

:)

 

Hallo,

ein Beispiel:

Option Explicit

Private Declare PtrSafe Function MessageBoxA Lib "user32.dll" ( _
ByVal hwnd As LongPtr, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As Long) As Long

Private Const MB_ABORTRETRYIGNORE As Long = &H2&
Private Const MB_APPLMODAL As Long = &H0&
Private Const MB_CANCELTRYCONTINUE As Long = &H6&
Private Const MB_COMPOSITE As Long = &H2
Private Const MB_DEFAULT_DESKTOP_ONLY As Long = &H20000
Private Const MB_DEFBUTTON1 As Long = &H0&
Private Const MB_DEFBUTTON2 As Long = &H100&
Private Const MB_DEFBUTTON3 As Long = &H200&
Private Const MB_DEFBUTTON4 As Long = &H300&
Private Const MB_DEFMASK As Long = &HF00&
Private Const MB_ERR_INVALID_CHARS As Long = &H8
Private Const MB_FUNC As Long = &H4000
Private Const MB_FUNC_STR As String = "mb"
Private Const MB_HELP As Long = &H4000&
Private Const MB_ICONERROR As Long = &H10&
Private Const MB_ICONEXCLAMATION As Long = &H30&
Private Const MB_ICONINFORMATION As Long = &H40&
Private Const MB_ICONMASK As Long = &HF0&
Private Const MB_ICONQUESTION As Long = &H20&
Private Const MB_ICONSTOP As Long = &H10&
Private Const MB_MISCMASK As Long = &HC000&
Private Const MB_MODEMASK As Long = &H3000&
Private Const MB_NOFOCUS As Long = &H8000&
Private Const MB_OK As Long = &H0&
Private Const MB_OKCANCEL As Long = &H1&
Private Const MB_PRECOMPOSED As Long = &H1
Private Const MB_RETRYCANCEL As Long = &H5&
Private Const MB_RIGHT As Long = &H80000
Private Const MB_RTLREADING As Long = &H100000
Private Const MB_SERVICE_NOTIFICATION As Long = &H40000
Private Const MB_SERVICE_NOTIFICATION_NT3X As Long = &H40000
Private Const MB_SETFOREGROUND As Long = &H10000
Private Const MB_SYSTEMMODAL As Long = &H1000&
Private Const MB_TASKMODAL As Long = &H2000&
Private Const MB_TOPMOST As Long = &H40000
Private Const MB_TYPEMASK As Long = &HF&
Private Const MB_USEGLYPHCHARS As Long = &H4
Private Const MB_USERICON As Long = &H80&
Private Const MB_YESNO As Long = &H4&
Private Const MB_YESNOCANCEL As Long = &H3&

Public Sub Beispiel()
Call MessageBoxA(Application.hwnd, "Bitte das Fenster schließen.", _
"Hinweis", MB_ICONEXCLAMATION Or MB_TOPMOST)
End Sub

Public Sub test() 'nur zum Testen ob's geht
Application.OnTime Time + TimeSerial(0, 0, 5), "Beispiel"
End Sub

 

Hallo Nepumuk,

wie funktioniert das mit einer Exceldatei und einer UF?
wie bekomme ich beide nach vorne.


Eine MsgBox macht hier keinen Sinn, da diese den Durchlauf solange sillegt
bis der User drauf klickt. User ist aber in der Mittagspause.

 

Hallo xlph,

um eine Msgbox automatisch zu schließen verwende ich eine aus der wsh

Code:

Aufruf natürlich noch mit Application.OnTime

Diese ist natürlich nicht vor allen Anwendungen, aber mit Ping und blinken in der Taskleiste sollte der Anwender genug informiert sein das eine Meldung gekommen ist.

edit
Code:

jetzt geht das Fenster auch in den Vordergrund.
Code ergänzt aus:
Fenster in den Vordergrund holen - - - - - - Office-Loesung.de

 

Hallo Chris,

ja mache ich auch.

Leider lässt sich da kein CountDown runterzählend anzeigen (+ Formatierung).
Deswegen benutze ich eine UF.

 

Hi,

stimmt, da bietet eine UF mehr Möglichkeiten.

 

Hallo Chris,

jawohl, Isabelles Code funktioniert!!!

Autoschließen mit UF-ContDown:

 

Vielen Dank xlph.. klappt ganz gut so.
Das Problem ist nun, dass ich 3 Listen habe.
Wenn ich aber alle 3 geöffnet habe schließt sich Teilweise die falsche Mappe.

gibts hierfür eine Lösung?

grüße

 

Das kann nicht sein.

Die 'Richtige' wird geschlossen, bloss sie wird nicht in den Vordergrund gesetzt.

(hinzufügen)

Code:

 

juhu.. vielen dank *Smilie

 

Hallo zusammen,


Super Funktion! Nur habe ich bemerkt dass der Timer immer zählt, d.h. auch bei Aktivität. Also die Excel Liste soll sich nur nach z.B. 30 Min Inaktivität schließen. Und nicht wenn man 30 Minuten darin arbeitet. Dann wird man
ja immer von der Fehlermeldung gestört.



Viele Grüße
Hias

 

Hallo.
Ich suche schon verzweifelt und finde nicht das richtige.
Kenne mich mit VBA und UF nicht aus und kann also nur grösstenteils das was ich finde versuchen einzubauen *biggrin.gif*

Brauchen würde ich:
Nach x Minuten Inaktivität einer geöffneten Excel-Datei soll eine Msg-Box kommen wo errinnert dass man doch die Datei schliessen soll wenn nicht gebraucht wird.
Arbeitet man aktiv in der Excel soll der Counter immer wieder bei 0 beginnen.
Die Msg-Box sollte man einfach mit OK bestätigen können, dass weg ist.

Vielleicht gibt sich jemand die Gnade zu helfen.

THX
*Smilie