Microsoft 365 Créer bouton qui désactiver ou active deux codes qui se trouve dans ThisWorkbook

odohe · 30 Avril 2023

Bonjour,
Je sollicite vôtres aides pour la création d'un code VBA afin que je puisse l’intégrer à un bouton ou je pourrais l’activer ou le désactiver en y cliquant dessus
cela afin d’éviter que j'aille le désactiver manuellement sur les lignes de code de Visual Basic

Voici mes deux codes VBA qui se trouvent dans ThisWorkbook que j'aimerai activer et désactiver via un bouton qui se trouvera sur l'une de mes feuilles du classeur

VB:

'Informe Excel que le fichier a déjà été enregistré (cela évite d'avoir une demande d'enregistrement à la fermeture)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ThisWorkbook.Saved = True
End Sub
'Empêche les demandes d'enregistrement
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
End Sub

Merci d'avance.

Hasco · 30 Avril 2023

Bonjour,

C'est vous qui avez écrit ce code ?

Ce que vous pouvez faire en autres :
Déclarer dans un module normal une Variable booléenne (ci-dessous MaVariable) et écrire une Sub qui inversera sa valeur (Vrai/Faux) et que vous attribuerez à vos boutons

VB:

Option Explicit

Public MaVariable As Boolean

Public Sub Bascule()
'inverse la valeur true/false de la variable
MaVariable = Not MaVariable
End Sub

Et rajouter " And MaVariable" en fin de lignes existantes, sachant que
True And True = True,
True And False = False

Code:

'Informe Excel que le fichier a déjà été enregistré (cela évite d'avoir une demande d'enregistrement à la fermeture)
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ThisWorkbook.Saved = True And MaVariable
End Sub
'Empêche les demandes d'enregistrement
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True And MaVariable
End Sub

odohe · 30 Avril 2023

Bonjour Hasco,
Merci pour votre réponse je vais l'essayer
Non je penses l'avoir trouver à l'époque sur ce même forum si je ne me m'abuse

odohe · 30 Avril 2023

J'ai bien introduis le code dans un nouveau module et remplacé le code existant de ThiWorkbook par celui que vous m'avez modifié.
Votre astuce fonctionne bien par contre lorsque je ferme le fichier et que je le ré-ouvre il est de nouveau possible d'enregistrer.
J'aimerai que d'origine lors de l'ouverture du fichier il ne soit pas possible l'enregistrement mais seulement une fois que j'aurai cliquer sur le module que vous m'aviez fournit.

Hasco · 30 Avril 2023

Re,

Et bien Dans l'évènement Workbook_Open, initialisez MaVariable à Faux.
Dans le module de ThisWorkbook, au-dessus du code vous devez avoir deux listes comme sur l'image ci-dessous ,dans celle de droite vous avez tous les noms est procédure évènementielles du classeur.
Dans celle de gauche, choisissez "Workbook" et celle de Droite "Workbook_Open"
Dans la procédure immédiatement et automatiquement écrite mettez :

VB:

MaVariable = False

odohe · 30 Avril 2023

Merci Hasco je vais faire le test

Microsoft 365 Créer bouton qui désactiver ou active deux codes qui se trouve dans ThisWorkbook

odohe

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

odohe

XLDnaute Occasionnel

odohe

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

odohe

XLDnaute Occasionnel

Discussions similaires