OnTime: Datei öffnet sich immer wieder...
14.12.2016 15:13:39
earlycon
ich bin schon wieder hilfesuchend. Mit OnTime lasse ich ein Hinweisfenster einblenden (Datei seit 20 Min. offen, bitte schließen...) da mehrere Personen mit der Datei arbeiten.
Leider habe ich das Problem, dass sich die Datei nach dem Schließen immer wieder von allein öffnet und das Hinweisfenster einblendet, obwohl ich den OnTime-Befehl vor dem Schließen der Datei beende. Vielleicht mag mir ja jemand dabei helfen.
Besten Dank im Voraus.
Gruß
earlycon
Mein Code sieht jetzt wie folgt aus:
Im Modul:
Option Explicit
Dim ITimer As Double
Public Sub Mappe_überwachen()
ITimer = Now + TimeValue("00:20:00")
Application.OnTime ITimer, "Hinweis_einblenden"
End Sub
Public Sub Mappe_überwachen_beenden()
On Error Resume Next
Application.OnTime ITimer, "Hinweis_einblenden", , False
End Sub
Sub Hinweis_einblenden()
Dim Ordner As String
Ordner = (Format(Date, "yyyy"))
With Sheets(Ordner).Shapes("Hinweisfenster")
.Top = ActiveWindow.VisibleRange.Range("A1").Top
.Left = 400
.Fill.Transparency = 0
.Visible = True
End With
Diese Arbeitsmappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Run ("Mappe_überwachen_beenden")