proteger la fermeture du classeur

fantomas7878@hotmail.fr · 17 Décembre 2008

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 · 17 Décembre 2008

Re : proteger la fermeture du classeur

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

Code:

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 · 17 Décembre 2008

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 · 18 Décembre 2008

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 · 18 Décembre 2008

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

Code:

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 · 20 Décembre 2008

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 · 20 Décembre 2008

Re : proteger la fermeture du classeur

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

Code:

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 😎

proteger la fermeture du classeur

fantomas7878@hotmail.fr

Guest

JNP

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

fantomas7878@hotmail.fr

Guest

JNP

XLDnaute Barbatruc

fantomas7878@hotmail.fr

Guest

JNP

XLDnaute Barbatruc

Discussions similaires

proteger la fermeture du classeur

fantomas7878@hotmail.fr

Guest

JNP

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

fantomas7878@hotmail.fr

Guest

JNP

XLDnaute Barbatruc

fantomas7878@hotmail.fr

Guest

JNP

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency