Empêcher le classeur d'être fermé tant que...

[elisa27]

Bonjour,

Est-il possible (peut-être dans workbook beforeclose) d'empêcher que le classeur soit fermé tant que l'utilisateur n'a pas terminé une tâche.

Merci d'avance pour votre aide

 

[tototiti2008]

Re : Empêcher le classeur d'être fermé tant que...

Bonjour Elisa,

Oui, en effet avec Workbook_Beforeclose
tu fais ton test et si ta condition n'est pas remplie, tu fais passer Cancel à True

 

[elisa27]

Re : Empêcher le classeur d'être fermé tant que...

Merci tototiti j'ai bien compris le principe mais par contre je ne vois pas ce que je fais passer de Cancel à True. Est ce que ce serait Workbook BeforeClose(True) ?

 

[Robert]

Re : Empêcher le classeur d'être fermé tant que...

Bonjour le fil, bonjour le forum,

Arf Tototiti est trop rapide... j'avais préparé un exemple, regarde :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Feuil1").Range("A1") = "" Then
    MsgBox "Vous devez remplir la cellule A1 !"
    Cancel = True
End If
End Sub

 

[tototiti2008]

Re : Empêcher le classeur d'être fermé tant que...

Re,

un exemple

ça marche évidement seulement si on a activé les macros et qu'on ne peut pas arrêter l'exécution des macros...

Edit : Bing, Bonjour Robert 😉

 

[Robert]

Re : Empêcher le classeur d'être fermé tant que...

Bonjour le fil, bonjour le forum,

Mort de rire Tototiti les exemples sont identiques...! Ne dit-on pas que les grands esprit se rencontrent ha ha ha...

Édition :

En plus je viens de tester et il y a un big bug dans notre proposition. Si on remplit la cellule et on ferme (sans sauver). Un message nous demande si on veut sauver. Si on répond "non" le classeur se ferme quand même mais quand on le rouvre la cellule est vide. Je ne pense pas que ce soit ce que veut Elisa. Donc il nous faut revoir notre copie...

 

[elisa27]

Re : Empêcher le classeur d'être fermé tant que...

Merci à tous les 2 j'ai bien compris maintenant.

 

[tototiti2008]

Re : Empêcher le classeur d'être fermé tant que...

Re,

en effet, pas super nos 2 exemples 😉

je pense qu'un else dans le if qui sauve le classeur est indispensable

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Feuil1").Range("A1") = "" Then
    MsgBox "Vous devez remplir la cellule A1 !"
    Cancel = True
Else
Thisworkbook.save
End If
End Sub

 

[Robert]

Re : Empêcher le classeur d'être fermé tant que...

Bonjour le fil, bonjour le forum,

Bien vu !!!! Je me cassais la tête sans solution....