protection zone de texte ou bouton de commande par mot de passe

[christophe90]

Bonjour le forum,

Est-ce possible de protéger une zone de texte ou un bouton de commande par un mot de passe. Càd que qd on clique dessus, on doit taper un mot de passe pour que la macro s'exécute.

Merci d'avance
Cordialement
Christophe

 

[Kotov]

Re : protection zone de texte ou bouton de commande par mot de passe

Bonsoir Christophe,

Je te propose une macro basique sur le principe suivant (vois l'exemple et le fichier joints) :
- définir un mot de passe (MDP)
- insérer à la macro lié à ton bouton, une boite de dialogue (inputbox qui demande le mot de passe à l'utilisateur (stocké dans la variable R)
- de comparer R (saisie) à MDP (mot de passe)
- Si R = MDP alors la véritable macro se lance (MaMacro)
- Si R <> MDP la macro se termine (on peut éventuellement rajouter la fermeture du fichier au bout de 3 faux codes)

On peut faire la même chose avec une macro liée à une zone de texte.
Je te joins également un fichier exemple.

Const MDP = "Sésame, ouvres-toi"

Private Sub CommandButton1_Click()
Dim R As Variant
R = InputBox("Veuillez saisir le mot de passe : ", "Accès protégé..")
If R = MDP Then
    MaMacro
Else
    Exit Sub
End If
End Sub

Sub MaMacro()
MsgBox "ma macro se lance", vbInformation, "Mot de passe correct "
End Sub

Il faut également que tu protèges ton code source
A noter que cette "pseudo protection" n'est efficace que pour des débutants.
N'importe quel "Excellien" un tant soit peu expérimenté la contourne aisément.

Bonne soirée
Kotov

 

[p'tit lulu]

Re : protection zone de texte ou bouton de commande par mot de passe

Bonjour,

en voilà un fil intéressant ! j'ai bien réussi à transposer l'exemple à un de mes fichiers, mais comment faire pour le bloquer au bout de 3 faux codes ? l'idée serait de fermer le classeur et de le bloquer a la prochaine ouverture avec marqué code forcé, veuillez rentrer votre code.... Par contre , si le boutton en question n'a pas été forcé, ne pas mettre de code à l'ouverture classique...

Merci à tous !!!!

 

[Guiv]

Re : protection zone de texte ou bouton de commande par mot de passe

Bonjour Christophe,
Une autre solution avec des caractères "*" pour la saisie.
Pour ce qui est de tout bloquer au bout de 3 fausses saisies, je ne vois pas trop l'intérêt, à moins de devoir protéger des trucs ultra confidentiels et dans ce cas, il faudra de toute façon adopter un système de protection plus sophistiqué
Cordialement
Guiv

 

[p'tit lulu]

Re : protection zone de texte ou bouton de commande par mot de passe

Bonjour Guiv, c'est pour adapter à mon fichier dont une partie était sur un autre fil auquel tu as participé hier. Certaines fonctions (comme accéder aux tableaux des heures des employés) ne sera possible qu"à un responsable. Pour la possibilité de mettre quelquechose de plus sur, ce n'est pas la peine, ce fichier est destiné à un écran tactile donc avec une marge de manoeuvre limitée.
Bonne journée !

 

[Kotov]

Re : protection zone de texte ou bouton de commande par mot de passe

Bonjour P'titlulu, Guiv,

J'ai modifié la macro pour que le fichier se ferme automatiquement à partir de 3 faux codes, mais, comme le dit également Guiv, si ca peut "calmer" un débutant, ce n'est absolument pas une protection efficace contre quelqu'un d'expérimenté.

Const MDP = "Sésame, ouvres-toi"
[color=red]Public N As Byte[/color]

Private Sub CommandButton1_Click()
Dim R As Variant
[color=red]If N > 2 then 
       With ActiveWorkbook
           .Save
           .Close
       End With
     
Else[/color]

R = InputBox("Veuillez saisir le mot de passe : ", "Accès protégé..")
      If R = MDP Then
           MaMacro
      Else
          [color=red] N = N + 1[/color]
      Exit Sub
      End If
[color=red]End If [/color]

End Sub

Sub MaMacro()
MsgBox "ma macro se lance", vbInformation, "Mot de passe correct "
End Sub

Bonne journée
Kotov

 

[p'tit lulu]

Re : protection zone de texte ou bouton de commande par mot de passe

bonjour,

ça ne marche pas ... je dois mal transposer le code à mon dossier mais dans le doute , quelqu'un peut me dire si ce code est bon ?

bonne soirée !