[VBA-E2003] Empecher quitter feuille ou fichier ?

**Slumpy** · 14/04/2006, 18h46

Arf, c encore moi avec toutes mes questions désolé.

Je voudrais savoir comment emecher de changer de feuille tant que la case A1 par exemple n'est pas egale a 100. Idem pour fermer le fichier.

Pour la feuille le seul evenement que j ai trouvé qui pourrait coller c Desactivate, mais celui ci se produit une foi qu on l'a quitté. Donc pas bon.

Et pour la fermeture du fichier, j ai pensé a Before_close pour le workbook, mais je ne c pas comment empecher la fermeture. Je peux lui faire afficher un message mais pas stoper la fermeture.

Merci de m eclairer.

**ouskel'n'or** · 14/04/2006, 18h50

Envoyé par Tu

Arf, c encore moi avec toutes mes questions désolé

Ne sois pas désolé, on adore se creuser les méninges

Et comme d'autres, je suis curieux d'apprendre, alors je vais voir si ce que tu dis est vrai

A+

**SfJ5Rpw8** · 14/04/2006, 18h51

un code à mettre dans "thisworkbook"

Code :

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

1
2
3
4
5
6
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 If ThisWorkbook.Sheets(1).Range("A1") <> 100 Then
    Cancel = True
    MsgBox "Sortie impossible ", vbCritical
 End If
End Sub

**jmfmarques** · 14/04/2006, 18h51

Si tu as trouvé où donner du code à la fermeture : le coup du Sepeur Camembert (un vieil ami) : réouverture si condition pas remplie

!

**Slumpy** · 14/04/2006, 19h09

lol j adore ce genre de solution :

réouverture si condition pas remplie Laughing !

^^ c bien vicieux ^^

Mais effectivement le test sur le booleen est parfait. (A vrai dire j ai fait mon boulet car automatiquement quand on crée cette sub il nous cré la variable booleene CANCEL, j aurais la voir

désolé. )

Par contre, pour la feuille, je ne c pas comment faire mis a part le coup de si pas egal a 100 je la reselectionne.

J ai pas compris ta solution ouskel'n'or

**SfJ5Rpw8** · 14/04/2006, 19h14

Envoyé par Slumpy

Par contre, pour la feuille, je ne c pas comment faire mis a part le coup de si pas egal a 100 je la reselectionne.

? et cela ne te va pas ...? ... du genre :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Deactivate()
If ThisWorkbook.Sheets(1).Range("A1") <> 100 Then
 
    MsgBox "Sortie impossible ", vbCritical
    ThisWorkbook.Sheets(1).Activate
 End If
 
End Sub

à placer dans la feuille concernée...

**Slumpy** · 14/04/2006, 19h28

? et cela ne te va pas ...? ... du genre :

Code:
Private Sub Worksheet_Deactivate()
If ThisWorkbook.Sheets(1).Range("A1") <> 100 Then

MsgBox "Sortie impossible ", vbCritical
ThisWorkbook.Sheets(1).Activate
End If

End Sub

SI si, je chipote la. C'est juste que visuellement et pedagogiquement c'est pas top, car on quite la feuille, donc on en voit une autre, on a le message d'erreur sur cette deuxieme feuille, et l'on revient sur la feuille ou est l erreur. C'etait juste pour savoir si l'on peut eviter ce va et vient.

Ha merde, je realise un truc la, suffit d intervertir

Code :

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

1
2
MsgBox "Sortie impossible ", vbCritical
    ThisWorkbook.Sheets(1).Activate

surement

[EDIT : Ha non ca ne marche pas d intervertir car du coup on est plus entrain de quitter puisqu on la reactive ]

ouskel'n'or, dans ton code ce que je comprends pas c ca :

Code :

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

(ByVal Sh As Object)

**Slumpy** · 14/04/2006, 20h42

Ha oki, cette variable est donc le nom de la feuille que l on quitte ^^.C bon a savoir ca, merci.

Pas d idee pour eviter de voir apparaitre la deuxieme feuille ?

**Slumpy** · 14/04/2006, 23h35

Essaie avec application.screenupdating = false à la première ligne de la sub
Tu remets à true à la dernière ligne

Pas testé mais tu veux bien le faire pour nous Wink

A+

Testé, pour moi c'est ok

Code:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.ScreenUpdating = False
If ThisWorkbook.Sheets(1).Range("A1") <> 100 Then
NomFeuilOùRester = "Feuil1" 'uniquement pour indiquer le nom de la feuille si nécessaire
Worksheets(NomFeuilOùRester).Select
End If
Application.ScreenUpdating = True
End Sub

Arf, je viens de tester et ca ne marche pas chez moi. Enfin c'est tjs pareil quoi, ca me change de feuille avant de m'afficher le message d'erreur

**Slumpy** · 15/04/2006, 01h09

Roo je suis vraiement un boulet, je comprends pas ce que tu me racontes a propos du nom de la feuille

Mon code (que j ai bien mis dans Workbook est exactement ca :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.ScreenUpdating = False
If ThisWorkbook.Sheets(SHEET_WorkingStation).Range("AC2") <> 100 Then
        MsgBox "Attention 100 % ? ", vbCritical
        ' NomFeuilOùRester = "Feuil1" 'uniquement pour indiquer le nom de la feuille si nécessaire
         ThisWorkbook.Sheets(SHEET_WorkingStation).Select
    End If
    Application.ScreenUpdating = True
End Sub

Avec ca j ai le message sur la deuxieme feuille avant de revenir automatiquement sur la feuille Working Station. (D ailleurs me faut cliquer 2 fois sur ok pour revenir sur la feuille bizarre.
EDIT : Ha oui j ai deux fois le message car je quitte ma feuille Working station, et qu apres je quitte du coup la nouvelle feuille

(Ptite question en plus, quelle est la difference entre .select et .activate ?)

**Slumpy** · 15/04/2006, 13h50

Bijour,

merci pour ta patience et ton aide ouskel'n'or.

Effectivement, si je fais comme tu dis , je n ai plus qu un seul message.

Je comprends ton code excepté pour ca :

Code :

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

ok = SHEET_WorkingStation = Sh.name

c'est equivalent à

Code :

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

if Sh.name = SHEET_WorkingStation then ok = true

C'est ca ?

Par contre, tjs pareil il me quitte la feuille pour m'afficher le message puis reviens sur la feuille quand on a cliqué sur la MsgBox.
N'y aurait il pas un moyen d'eviter ca ?
Par exemple en bloquant l'evenement _Desactivate tant que AC2<>100 ?

Pour mon autre question sur activate et select ct pour avoir la confirmation que j avais bien compris qu'il n y avait pas de difference pour les worksheet 8) . Merci

**AlainTech** · 15/04/2006, 14h00

Envoyé par ouskel'n'or

Je réponds à ton autre question : La différence entre select et activate
Pour Worksheet, aucun différence.

Pas totalement vrai.

On peut sélectionner plusieurs Feuilles et en activer une.

Par exemple, c'est ce qu'on fait quand on veut modifier toutes les cellules [A1] de toutes les feuilles en une seule opération.

**SfJ5Rpw8** · 15/04/2006, 14h54

Envoyé par Slumpy

Ha merde, je realise un truc la, suffit d intervertir

Code :

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

1
2
MsgBox "Sortie impossible ", vbCritical
    ThisWorkbook.Sheets(1).Activate

surement

[EDIT : Ha non ca ne marche pas d intervertir car du coup on est plus entrain de quitter puisqu on la reactive ]

.... pourquoi dit tu que l'intervertion ne marche pas ?

**Slumpy** · 15/04/2006, 16h07

Ouullaaa, je dois commencer a fatiguer moi ...

Merci bcp c'est parfait

[VBA-E2003] Empecher quitter feuille ou fichier ?

Macros et VBA Excel

Discussions similaires

Partager

Partager