Fermeture classeur impossible si un autre classeur est ouvert

**misterkey** · 19/03/2016, 07h24

Bonjour à tous,

J'ai un classeur1 avec défilement automatique de page toutes les 5 secondes.
Quand le classeur1 est ouvert seul et qui j'y apporte des modifications, je sais le fermer et sauver sans problèmes.
Le hic c'est que quand des autres classeurs sont ouverts en même temps, et que je veux fermer le classeur1 il se ferme et se relance.
Il faut donc que je ferme d'abord les autres classeurs pour enfin pouvoir fermer le classeur1.

Une idée?
Merci d'avance de votre support.

Cordialement

Thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Arret = True
End Sub
 
 
 Private Sub Workbook_Open()
 
 ' Affiche le fichier en plein écran au démarrage
 Application.DisplayFullScreen = True
 
 'Démarrage sur la page "Loading"
 PageLoading
 
 End Sub

Module défilement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Arret As Boolean
 
Sub PageLoading()
  If ActiveWorkbook.Name = ThisWorkbook.Name Then
    Sheets("Loading").Select
  End If
  If Not Arret Then Application.OnTime Now + TimeValue("00:00:05"), "Page1"
End Sub
 
 
Sub Page1()
  If ActiveWorkbook.Name = ThisWorkbook.Name Then
    Sheets("Page1").Select
  End If
  If Not Arret Then Application.OnTime Now + TimeValue("00:00:05"), "Page2"
End Sub
 
Sub Page2()
  If ActiveWorkbook.Name = ThisWorkbook.Name Then
    Sheets("Page2").Select
  End If
  If Not Arret Then Application.OnTime Now + TimeValue("00:00:05"), "Page3"
End Sub
Sub Page3()
  If ActiveWorkbook.Name = ThisWorkbook.Name Then
    Sheets("Page3").Select
  End If
  If Not Arret Then Application.OnTime Now + TimeValue("00:00:05"), "PageLoading"
End Sub
 
Sub StopDefilement()
    Arret = True
    If ActiveWorkbook.Name = ThisWorkbook.Name Then
    Sheets("Loading").Select
  End If
End Sub
 
Sub StartDefilement()
  Arret = False
  PageLoading
End Sub