Kann makros nicht stoppen
13.09.2004 14:53:52
MARIO
ich kann folgende makros beim Schliessen der Mappe
nicht stoppen.Muss Exel immer ganz schliessen sonst
starten makros wieder. Ich möchte aber nur diese Mappe schliessen und die Makros sollen nicht mehr starten.
Was mache ich falsch?
Vielen dank schon zum Voraus für eure Hilfe.
Gruss Mario
'stehen in dieser Arbeitsmappe
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Ende
End Sub
Private Sub Workbook_Open()
Beginn
Beginn1
Beginn2
End Sub
'stehen in einem Modul
Option Explicit
Dim blnStopp As Boolean
Dim blnStoppi As Boolean
Dim blnStoppe As Boolean
Sub Beginn()
Dim NextSpeichern
blnStopp = False
NextSpeichern = Now + TimeValue("00:01:00")
Application.OnTime NextSpeichern, "Neu_öffnen"
End Sub
Sub Neu_öffnen()
If Not blnStopp Then
Workbooks("Mappe1.xls").SaveCopyAs "d:\eigene dateien\unsichtbar\m3.xls"
Beginn
Else
Exit Sub
End If
End Sub
Sub Beginn1()
Dim NextSpeichern1
blnStoppi = False
NextSpeichern1 = Now + TimeValue("00:02:00")
Application.OnTime NextSpeichern1, "Neu_öffnen1"
End Sub
Sub Neu_öffnen1()
If Not blnStoppi Then
Workbooks("Mappe1.xls").SaveCopyAs "d:\eigene dateien\unsichtbar\m2.xls"
Beginn1
Else
Exit Sub
End If
End Sub
Sub Beginn2()
Dim NextSpeichern1
blnStoppe = False
NextSpeichern1 = Now + TimeValue("00:05:00")
Application.OnTime NextSpeichern1, "Neu_öffnen2"
End Sub
Sub Neu_öffnen2()
If Not blnStoppe Then
Workbooks("Mappe1.xls").SaveCopyAs "d:\eigene dateien\unsichtbar\m1.xls"
Beginn1
Else
Exit Sub
End If
End Sub
Sub Ende()
blnStopp = True
blnStoppi = True
blnStoppe = True
End Sub