Discussion :

[HBK94]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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.

[HBK94]

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

[Patrice740]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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):
Macro obligatoire.xls