bloquer la croix rouge excel

phlaurent55

Nous a quittés en 2020

Repose en paix

• 3 Juillet 2015

• #2

Re : bloquer la croix rouge excel

Bonjour Angoul,

avec ce code dans ThisWorkBook

(éventuellement supprimer/modifier la ligne MsgBox)

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
' ---------------------------------------------------------------
MsgBox ("Vous ne pouvez pas quitter en cliquant sur la Croix Rouge")
' ---------------------------------------------------------------
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 6 Juillet 2015

• #3

Re : bloquer la croix rouge excel

Merci mais helas cela ne fait pas ce que je recherche, car cela me bloque ma macro pour fermer

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 6 Juillet 2015

• #4

Re : bloquer la croix rouge excel

Bonjour,

As tu pensé à créer un bouton pour fermer l'UserForm

Private Sub CommandButton1_Click()
Unload Me
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 6 Juillet 2015

• #5

Re : bloquer la croix rouge excel

Oui et Voici le code

Sub Effaceetferme()
'
' efface les cellules et ferme l'application
'
Range("C3:J3").Select
Selection.ClearContents
Range("C6:J6").Select
Selection.ClearContents
Range("C9:J9").Select
Selection.ClearContents
Range("C12:J12").Select
Selection.ClearContents
Range("C15:J15").Select
Selection.ClearContents
Range("C18:J22").Select
Selection.ClearContents
Range("A34:L66").Select
Selection.ClearContents
Range("A68😀68").Select
Selection.ClearContents
Range("E68:F68").Select
Selection.ClearContents
Range("G68:H68").Select
Selection.ClearContents
Range("I68:J68").Select
Selection.ClearContents
Range("K68:L68").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-87
Range("C3:J3").Select
ActiveWindow.SmallScroll Down:=-3
ThisWorkbook.Close Savechanges:=True

End Sub

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 6 Juillet 2015

• #6

Re : bloquer la croix rouge excel

Re,

Pourrais tu essayer ce code pour interdire la fermeture par la croix

Private Sub userForm_queryClose(Cancel As Integer, closeMode As Integer)
If closeMode = 0 Then Cancel = True
End Sub

Cliquez pour agrandir...

@ plus

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 6 Juillet 2015

• #7

Re : bloquer la croix rouge excel

Cela ne fait rien

Je met ma feuille ici pour aide

Merci

 

Pièces jointes

• test.xlsm

  67.6 KB · Affichages: 64
• test.xlsm

  67.6 KB · Affichages: 76
• test.xlsm

  67.6 KB · Affichages: 76

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 6 Juillet 2015

• #8

Re : bloquer la croix rouge excel

Re angoul,

Je ne pourrais pas t'aider car je ne dispose pas du contrôle Calendar sur ma machine.

Désolé, en espérant que d'autres puissent te venir en aide.

@ plus

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 6 Juillet 2015

• #9

Re : bloquer la croix rouge excel

merci de ton aide quand meme

 

Vote positif 0 Vote négatif

grisan29

XLDnaute Accro

• 6 Juillet 2015

• #10

Re : bloquer la croix rouge excel

bonjour angoul, exene, phlaurent55 et le forum

angoul est ce que ce code que je viens de trouvé dans mes archives te correspondrais

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = vbFormControlMenu Then
    MsgBox "Cette commande ne peut pas être exécutée" _
    & vbCrLf & "pour sortir utiliser le bouton Quitter ", _
    vbOKOnly + vbCritical, "Fin du programme"
    Cancel = True
    End If
End Sub

tu peux modifier le message a ton gout

le code de fermeture que tu as mis dans ta réponse plus haut tu peux le reduire

Code:

Range("C3:J3;C6:J6;j9:J9;C12:J12;C15:J15;C18:J22;A34:L66;A68:D68;E68:F68;G68:H68;I68:J68;K68:L68").ClearContents

ce n'est pas joli mais ca supprime les .select

Pascal

 

Dernière édition: 6 Juillet 2015

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 6 Juillet 2015

• #11

Re : bloquer la croix rouge excel

Bonjour à tous

Voici un fichier que j'utilise pour empêcher la fermeture d'Excel.

A adapter au contexte, mais le code est assez simple.

 

Dernière édition: 6 Juillet 2015

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 6 Juillet 2015

• #12

Re : bloquer la croix rouge excel

cela fonctionne pas non plus
je precise quand meme que c"est excel que je veut bloquer, car pour USF j'ai deja le code qui fonctionne

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 6 Juillet 2015

• #13

Re : bloquer la croix rouge excel

Re

Tu veux dire que mon fichier ne fonctionne pas 😱.

 

Vote positif 0 Vote négatif

A

angoul

XLDnaute Impliqué

• 6 Juillet 2015

• #14

Re : bloquer la croix rouge excel

Oui chez moi il ne fonctionne pas.
rien ne se passe

 

Vote positif 0 Vote négatif

exene

XLDnaute Accro

• 6 Juillet 2015

• #15

Re : bloquer la croix rouge excel

Re,

Pourrais tu t'inspirer de ce code, la croix d'excel est inutilisable à l'ouverture du fichier

Dans le Private Module de ThisWorkBook :

Private Sub Workbook_Open()
CancelSortie = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = CancelSortie
End Sub


Dans un Module Standard :

Public CancelSortie As Boolean

Sub LaSortie()
CancelSortie = False
ThisWorkbook.Close True
End Sub


On notera ici l'usage d'une variable "CancelSortie" Publique de type Boolean et, bien sûr, on prendra soin de mettre un bouton de sortie qui lancera cette macro "LaSortie". (dans l'exemple on sauve le classeur, sinon mettre à false)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif