begin process at 2012 02 16 21:27:01
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

Sécurité

 > 

La croix de fermeture d'xl


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

La croix de fermeture d'xl

samedi 13 septembre 2003 à 10:38:02 | La croix de fermeture d'xl

isamancal

Sub Auto_Open()
'
' Auto_Open Macro
' Macro enregistrée le 19/04/2002 par LEFEVRE.PASCAL
Dim i As Integer
With CommandBars("worksheet menu bar").Controls
For i = 1 To .Count
.Item(i).Visible = .Item(i).Caption = "P.LEFE&VRE"
Next i
End With
Application.DisplayFullScreen = True
End Sub
__________________________________________________________
Sub Auto_Close()
'
' Auto_Close Macro
' Macro enregistrée le 19/04/2002 par LEFEVRE.PASCAL
Dim i As Integer
With CommandBars("worksheet menu bar").Controls
For i = 1 To .Count
.Item(i).Visible = .Item(i).Caption <> "P.LEFE&VRE"
Next i
End With
Application.DisplayFullScreen = False

End Sub


Voici les deux macro pour faire apparaitre et disparaitre la barre de menu d'excel.
j'aimerais trouver du code pour rendre inactive la croix de fermeture et obliger les utilisateurs de mon logiciel à quitter l'application par un bouton "Quitter"
Merci
samedi 13 septembre 2003 à 14:20:42 | Re : La croix de fermeture d'xl

PROGRAMMIX

Je ne connais pas le truc pour rendre inactif la croix de fermeture...

Par contre, il me semble qu'il existe un évènement qui s'exécute juste avant la fermeture de la fenêtre. Si tel est le cas, il te suffirait de mettre la procédure de renvois vers le code de ton bouton "Quitter"...

Je jette un oeil...

Programmix


-------------------------------
Réponse au message :
-------------------------------

> Sub Auto_Open()
> '
> ' Auto_Open Macro
> ' Macro enregistrée le 19/04/2002 par LEFEVRE.PASCAL
> Dim i As Integer
> With CommandBars("worksheet menu bar").Controls
> For i = 1 To .Count
> .Item(i).Visible = .Item(i).Caption = "P.LEFE&VRE"
> Next i
> End With
> Application.DisplayFullScreen = True
> End Sub
> __________________________________________________________
> Sub Auto_Close()
> '
> ' Auto_Close Macro
> ' Macro enregistrée le 19/04/2002 par LEFEVRE.PASCAL
> Dim i As Integer
> With CommandBars("worksheet menu bar").Controls
> For i = 1 To .Count
> .Item(i).Visible = .Item(i).Caption <> "P.LEFE&VRE"
> Next i
> End With
> Application.DisplayFullScreen = False
>
> End Sub
>
>
> Voici les deux macro pour faire apparaitre et disparaitre la barre de menu d'excel.
> j'aimerais trouver du code pour rendre inactive la croix de fermeture et obliger les utilisateurs de mon logiciel à quitter l'application par un bouton "Quitter"
> Merci
>
samedi 13 septembre 2003 à 14:29:44 | Re : La croix de fermeture d'xl

PROGRAMMIX

Voilà dans le cas d'un classeur, voici le code...

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If MsgBox("Etes-vous certain de vouloir quitter ?", vbYesNo) = vbNo Then
Cancel = True
Exit Sub
End If

End Sub

En mettant "Cancel = True", on annule la procédure de fermeture.

Cette procédure fonctionne également si on clique sur la croix d'Excel dans la mesure où Excel cherchera à fermer le classeur contenant la procédure ci-dessus avant de se décharger.

Programmix


-------------------------------
Réponse au message :
-------------------------------

> Je ne connais pas le truc pour rendre inactif la croix de fermeture...
>
> Par contre, il me semble qu'il existe un évènement qui s'exécute juste avant la fermeture de la fenêtre. Si tel est le cas, il te suffirait de mettre la procédure de renvois vers le code de ton bouton "Quitter"...
>
> Je jette un oeil...
>
> Programmix
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Sub Auto_Open()
> > '
> > ' Auto_Open Macro
> > ' Macro enregistrée le 19/04/2002 par LEFEVRE.PASCAL
> > Dim i As Integer
> > With CommandBars("worksheet menu bar").Controls
> > For i = 1 To .Count
> > .Item(i).Visible = .Item(i).Caption = "P.LEFE&VRE"
> > Next i
> > End With
> > Application.DisplayFullScreen = True
> > End Sub
> > __________________________________________________________
> > Sub Auto_Close()
> > '
> > ' Auto_Close Macro
> > ' Macro enregistrée le 19/04/2002 par LEFEVRE.PASCAL
> > Dim i As Integer
> > With CommandBars("worksheet menu bar").Controls
> > For i = 1 To .Count
> > .Item(i).Visible = .Item(i).Caption <> "P.LEFE&VRE"
> > Next i
> > End With
> > Application.DisplayFullScreen = False
> >
> > End Sub
> >
> >
> > Voici les deux macro pour faire apparaitre et disparaitre la barre de menu d'excel.
> > j'aimerais trouver du code pour rendre inactive la croix de fermeture et obliger les utilisateurs de mon logiciel à quitter l'application par un bouton "Quitter"
> > Merci
> >
>
dimanche 14 septembre 2003 à 00:48:26 | Re : La croix de fermeture d'xl

celiphane

La bonne solution est bien celle donnée par PROGRAMMIX, cependant l'usage courant est le suivant :

on déclare en public une variable booléenne, exemple FlagFin,
et dans l'évènement beforeclose,
on inscrit : Cancel = Not FlagFin

Ainsi, le programme ne se fermera que lorsque tu le décides, par exemple dans ton bouton quitter, où avec le reste de ton code il suffit de placer la ligne "FlagFin = True" juste avant ton instruction de fermeture.

C'est la méthode universelle pour Excel.

@+

Celi-phane (...ne-Sté...),
elle tricote, lui développe...


Cette discussion est classée dans : macro, end, item, auto, with


Répondre à ce message

Sujets en rapport avec ce message

PB DATAGRID VB.NET NEED PROFESSIONEL [ par THEREALKILLER ] Salut Pb : Il été une fois un combobox ds une datagrid .Il fo ka chake nouvelle ligne de la datagrid , la combobox se remplisse . With DataGri DataGrid style des colonnes [ par SamN ] Bonjour à tous!J'utilise VB.net 2003 et c'est la merde pour manipuler les DataGrid. Je voudrais modifier tout simplement la largeur de mes colonnes ai Pbm sur un macro de mise en forme d'un graphique issu d'un tableau croisé dynamique [ par ShaVBA ] Bonjour,J'ai rédigé une macro pour mettre en forme mes graphiques croisés dynamiques cependant je fais face à un problème que je ne sais pas ressoudre Macro de recherche et de navigation dans Powerpoint [ par Mister_Fred ] Salut a tous, Je suis actuellement en stage chez un fabricant automobile et ils souhaitent que je realise une base de donnees sous PowerPoint (plus c [Catégorie modifiée VB6 --> VBA] Macro VBA EXCEL recherche fichier , hyperlink , [ par kwamanji ] bonjour , en compilant plusieurs sources j'ai réussi à créer 2 boutons dont les codes sont si dessous 1 pour recherche de documents dans un répert [Catégorie modifiée VB6 --> VBA] Ajout colonne dans une macro [ par diabolo141077 ] Bonjour, J'utilise une macro en VBA mais il me manque des éléments pour la rendre exploitable. Actuellement la macro exporte des données "text et va VBA et Tableau Croisé Dynamique [ par petit1986 ] Bonjour, Je suis presque débutant en VBA et j'essai de faire un tableau croisé dynamique avec une macro. Je n'arrive pas à résoudre un problème. Ci [Catégorie modifiée .Net --> VBA] vba s'applique en permanence [ par guedon ] Bonjour, Voila je viens de faire mes premiers pas dans Excel et je ne crois pas avoir réussi... j'ai placé dans workbook ce code afin que les utilisa [Catégorie modifiée .Net --> VBA] Appel macro d'un autre classeur utilisant une InputBox [ par zeyo92 ] Bonjour à tous, Voici mon problème : Je possède un fichier dont le macro sontverouillées et je souhaite utiliser les données qu'effectue une macro Besoin d'un avis éclairé sur un script pour Word 2003 [ par cilor ] Bonjour à tous, Comme je suis nul en Visual Basic,j'ai récupéré sur la toile une macro pour Word 2003 dont la fonction est de modifier les choix d'un


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,640 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales