proteger la fermeture du classeur

[fantomas7878@hotmail.fr]

Bonjour à tous
Je travaille avec excel 2007.
Apres deux jours de recherches, je fais appel à qui voudra bien m'aider.
Pourriez vous me dire si il est possible de proteger la fermeture d un classeur excel avec un mot de passe . Si l utilisateur clique sur une des trois icones en haut à droite de la fenetre il doit rentrer un mot de passe pour reussir a faire ce qu il veut.
Je crois qu avec une macro on peut y parvenir mais je ne connais pas le VBA.
Merci d avance

 

[JNP]

Re : proteger la fermeture du classeur

Bonjour Fantomas7878 🙂,
Une procédure à coller dans le module ThisWorkbook

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MdP As String
MdP = InputBox("Mot de passe ?", "Fermeture verouillée")
If MdP <> "Mon mot de passe" Then Cancel = True
End Sub

Pour y accéder, Alt + F11 et double click sur ThisWorkbook.
Bonne soirée 😎

 

[JNP]

Re : proteger la fermeture du classeur

Re le forum 🙂,
Si tu ne veux pas que n'importe qui sachant ouvrir VBA puisse aller lire ton mot de passe, il faut aussi que tu fasses un clic droit sur le projet et que tu le protège avec un autre mot de passe.
Bonne soirée 😎

 

[fantomas7878@hotmail.fr]

Re : proteger la fermeture du classeur

Merci beaucoup
Une petite derniere question
Comment faire pour que :
si le mot de passe n'est pas bon un message box apparaissent
Merci

 

[JNP]

Re : proteger la fermeture du classeur

Bonjour Fantomas7878 🙂,
Effectivement, il va falloir t'investir dans le VBA... Une petite recherche dans l'aide avec ta demande te permettrait direct de trouver un exemple à adapter... Comme l'inputbox contient déjà dans la barre de menu Fermeture verrouillée (j'avais fait une petite faute), c'est clair pour l'utilisateur, mais si tu souhaites en plus enfoncer le clou

MdP = MsgBox("Désolé, vous n'avez pas l'autorisation" & vbCrLf & "de fermer le " _
    & "fichier sans le mot de passe", vbCritical, "ATTENTION !")

Bonne soirée 😎

 

[fantomas7878@hotmail.fr]

Re : proteger la fermeture du classeur

Merci
j'ai acheté un bouquin de chez "micro application".
ta macro fonctionne sauf que quand je met le bon mot de passe la box s ouvre quand meme.

 

[JNP]

Re : proteger la fermeture du classeur

Salut Fantomas 🙂,
C'est parce qu'il faut mettre le message dans le test :

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim MdP As String
MdP = InputBox("Mot de passe ?", "Fermeture verouillée")
If MdP <> "Mon mot de passe" Then
    Cancel = True
    MdP = MsgBox("Désolé, vous n'avez pas l'autorisation" & vbCrLf & "de fermer le " _
    & "fichier sans le mot de passe", vbCritical, "ATTENTION !")
End If
End Sub

Bonne journée 😎