Workbook.save et Code VBA protégé ?

  • Initiateur de la discussion Initiateur de la discussion ZeMygale
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Z

ZeMygale

Guest
Bonjour le monde,

Ne souhaitant pas que n'importe quel utilisateur puisse jouer les apprentis-sorciers avec le code VBA de mon projet😀, je l'ai protégé par mot de passe en passant par la classique option 'Protection'.

Mon problème actuel est qu'à la sortie du classeur, j'oblige un ThisWorkbook.Save qui se plante en disant qu'il ne peut pas enregistrer un projet si le VBA est protégé...😡

Avez-vous déjà eu le souci et avez-vous des solutions ?

Merci,

ZeMygale
 
Re : Workbook.save et Code VBA protégé ?

Re:

y ajouter un exemple du fichier est toujours mieux pour résoudre,

y ajouter l'expression ci-dessous dans ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
' Application.Quit 'va fermer tous les fichiers d'Excell
End Sub

ci joint fichier, password de VBA est: test

bonne journée encore,
 

Pièces jointes

Re : Workbook.save et Code VBA protégé ?

Bonjour News, le Forum,

ActiveWorkbook ne fonctionne pas mieux dans mon cas que This Workbook🙁

Pour ce qui est de la protection du code, je suis passé par "Propriété du projet", "Protection" et je l'ai vérouillé en affichage...

Apparemment, le save n'aime pas du tout...

Je vais voir pour une autre solution🙁😕

Merci et @+,

ZeMygale
 
Re : Workbook.save et Code VBA protégé ?

re:

Propriété du projet", "Protection" et je l'ai vérouillé en affichage...
d'accord, on peut également indiquer que rien n'est affiché en verrouillant ceci,
mais ceci n'a rien à avoir que ActiveWorkbook.Save ne fonctionne pas

cela devrait fonctionner avec l'expression:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub


pour comprendre, résoudre ce que ne fonctionne pas,
peut-être tu peux un envoyer un exemple du fichier (sans données personnelles)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
Réponses
0
Affichages
1 K
julie13
J
Retour