|
Hallo Leute,
mir stellt sich folgendes Problem in den Weg.
Es arbeiten mehrer Kollegen an einer Datei.
Immer wieder vergessen Kollegen die Datei zu schließen.
Es gibt schonen einen Timer der die Datei z.B. nach 3 Min schleißen soll.
Jetzt das Problem:
Bei schießen der Datei kommt eine Msg Box welche anfragt ob die Datei arichviert wurde.
Solange diese nicht mit OK bestätigt wurde, schließt logischerweise die Datei nicht und bleibt in diesem Schritt stehen.
Gibt es eine Möglichkeit dass sich die Msg Box nach einer Zeit x selbst mit OK bestätigt ?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'MsgBox beim beenden
Dim Meldung As String
Meldung = MsgBox("Archivieren nicht vergessen!!!", vbOKCancel, " A C H T U N G !")
If Meldung = vbCancel Then
Cancel = True
End If
End Sub
Danek schon mal für eure Hilfe!
Gruß
Klaus
|