Protéger un bouton de commande par MP
Bonjour à tous,
Dans l'UserForm « PERMIS ET FORMATIONS » je voudrai protéger le bouton « ENREGISTRER » pr un mot de passe. Je pensais passer par une nouvelle afin de pouvoir paramétrer son aspect.
Pourriez-vous m'aider ? Petite précision je suis débutant, alors si vous pouviez également, me détailler le cheminement, ce serai super
Amicalement,
Mon fichier: https://www.cjoint.com/?3ChqR7BOOUR
Toubabou
Dans l'UserForm « PERMIS ET FORMATIONS » je voudrai protéger le bouton « ENREGISTRER » pr un mot de passe. Je pensais passer par une nouvelle afin de pouvoir paramétrer son aspect.
Pourriez-vous m'aider ? Petite précision je suis débutant, alors si vous pouviez également, me détailler le cheminement, ce serai super
Amicalement,
Mon fichier: https://www.cjoint.com/?3ChqR7BOOUR
Toubabou
6 réponses
-
Bonjour
J'ais changer les format des cellules par vb
ton userform ne sert cas la modifiction
http://cjoint.com/?3CirNKBFmEk
si ton progamme nais pas fini on ne mes pas de mots de passe -
Bonjour Maurice,
Effectivement c'est plus pratique, mais je n'ai pas trouvé comment protéger le bouton enregistrer?
Amicalement,
Jean-Marie -
Bonjour
j'ais changer ton UserForm je pense que ses plus pratique
http://cjoint.com/?3Chu7u1DlbD
A+
Maurice -
Bonjour
deja mettre au point userForm tu a limité ta combox dur
example :Dim Ctrl As Control Dim L As Long Dim I As Long Private Sub UserForm_Initialize() With ComboBox1 .Clear For L = 12 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row .AddItem Feuil1.Range("A" & L) Next End With End Sub Private Sub ComboBox1_Change() L = ComboBox1.ListIndex + 12 With Feuil1 For I = 1 To 26 Controls("CheckBox" & I) = IIf(.Cells(L, I + 4) = "", 0, 1) Next TextBox1.Value = .Cells(L, 4) End With End Sub
A+
Maurice -
Bonjour,
Oups, Mille pardons.
Je voulais écrire:
Je pensais passer par un nouveau UserForm
Pardon
Toubabou -
ModérateurBonjour
Tu dis "Je pensais passer par une nouvelle afin de"
euh... une nouvellel quoi ?
Tu peux bloquer l'accès d'un bouton avec un mot de passe (si j'ai bien compris ce que tu souhaites.
Quelque chose comme ça :
Private Sub CommandButton1_Click()
Dim mdp As String
debut:
mdp = InputBox("Mot de passe ?", "Mot de passe")
If mdp = "toto" Then
Me.CommandButton1.Enabled = True
'\\mettre ici ce que doit faire le bouton
ElseIf mdp = "" Then Exit Sub
Else
MsgBox "Ce n'est pas le bon mot de passe, recommencez !"
GoTo debut
End If
End Sub
m@rina
