bloquer la croix rouge excel

[angoul]

Bonjour

j'aimerai desactiver la fermeture d'excel par la croix rouge

j'ai trouver sur une usforme,
j'ai trouver comment la faire disparaitre,
mais pas comment la bloquer et mettre un message qui dit d'utiliser le bouton fermer

merci de votre aide

 

[phlaurent55]

Re : bloquer la croix rouge excel

Bonjour Angoul,

avec ce code dans ThisWorkBook

(éventuellement supprimer/modifier la ligne MsgBox)

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

à+
Philippe

 

[angoul]

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

 

[exene]

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

 

[angoul]

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

 

[exene]

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

@ plus

 

[angoul]

Re : bloquer la croix rouge excel

Cela ne fait rien

Je met ma feuille ici pour aide

Merci

 

[exene]

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

 

[angoul]

Re : bloquer la croix rouge excel

merci de ton aide quand meme

 

[grisan29]

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

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

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

 

[MJ13]

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.

 

[angoul]

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

 

[MJ13]

Re : bloquer la croix rouge excel

Re

Tu veux dire que mon fichier ne fonctionne pas 😱.

 

[angoul]

Re : bloquer la croix rouge excel

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

 

[exene]

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)