Conservation d'un code VBA après fermeture

Bonjour, je suis tout débutant, dans le cadre de la maîtrise des documents au sein d'une entreprise dans laquelle je travaille, je souhaite créer des formulaires Excel dans lesquels le personnel peut modifier, imprimer mais pas enregistrer ( pour garder le formulaire intact). Je suis tombé sur un code qui permet de désactiver l'enregistrement de ce qui est saisi, (le code est ci dessous), il marche bien, par contre dés que je ferme le fichier excel et je le réouvre, le code VBA disparaît, SVP comment enregistrer le code VBA pour qu'il reste actif, j'en suis tellement reconnaissant

le code que j'intègre sur ThisWorkbook :

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ThisWorkbook.Saved = True End Sub   Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True End Sub

---

Bonjour
Logique --->>
1) inhibe une première fois ces deux instructions
2) sauvegarde ton classeur
3) réhabilite ensuite ces deux procédures

Il est clair que ce mécanisme devra être mis en oeuvre à chaque fois que tu modifieras du code

Et si tu es un peu ingénieux, tu installes un tout petit mécanisme pour subordonner l'exécution de tes deux procédures évènementielles à l'absence de valeur d'une variable de ton choix, à laquelle tu donnes une valeur si tu ne souhaites pas l'exécution de ces deux procédures. Cette variable peut par exemple être la propriété value d'une cellule de ton choix, que tu peux en outre rendre "illisible" en la formatant blanc sur blanc.

Merci pour ta réponse , même si j'ai rien compris , peut être que je doit avoir d'abord quelques bagages en VBA , bon en tt cas merci

Bonjour,

Voici une macro à placer dans le module Worbook, qui comme te l'a suggéré unparia, permet de limiter l'autorisation d'enregistrement aux administrateurs désignés dans la procédure ad hoc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not Mode_Administrateur Then ThisWorkbook.Saved = True End If End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Not Mode_Administrateur Then MsgBox "Vous n'êtes pas autorisé à enregistrer ce fichier !" & vbCr & vbCr & _ "Pour toute modification contacter l'administrateur.", vbCritical Cancel = True End If End Sub Private Function Mode_Administrateur() As Boolean ' teste si l'utilisateurs est un administrateur Mode_Administrateur = _ Environ("username") = "ADMIN" Or _ Environ("username") = "Patrice33740" Or _ Environ("username") = "HBK94" End Function

---

Mais ATTENTION : il suffit que les macros soient désactivées pour que la modification et enregistrement soient possibles

Edit : un exemple un peu plus évolué (ajoutes ton user dans la procédure Mode_Administrateur):
Pièce jointe 436724