Mot de passe pour userform
Résolu
abdellah_tadjine
Messages postés
203
Statut
Membre
-
cs_Le Pivert Messages postés 8437 Statut Contributeur -
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
j'ai un formulaire qui s'ouvre directement sur mon userform sans passer par excel
je cherche un code pour introduit un mot de passe qui empêche d'ouvrir mon userform si le mot de passe n'est pas correcte.
et j'utilise se code pour l'ouverture automatique de userform :
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
Application.Visible = False
UserForm1.Show 0
End Sub
qui est introduit dans "thisworkbook"
mon probleme c'est que je voudrai qu'avant l'ouverture de mon userform automatique qu'il demande d'introduire un mot de passe... merci pour votre aide.
j'ai un formulaire qui s'ouvre directement sur mon userform sans passer par excel
je cherche un code pour introduit un mot de passe qui empêche d'ouvrir mon userform si le mot de passe n'est pas correcte.
et j'utilise se code pour l'ouverture automatique de userform :
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
Application.Visible = False
UserForm1.Show 0
End Sub
qui est introduit dans "thisworkbook"
mon probleme c'est que je voudrai qu'avant l'ouverture de mon userform automatique qu'il demande d'introduire un mot de passe... merci pour votre aide.
A voir également:
- Mot de passe pour userform
- Trousseau mot de passe iphone - Guide
- Mot de passe - Guide
- Mot de passe administrateur - Guide
- Mot de passe bios perdu - Guide
- Voir mot de passe wifi android - Guide
3 réponses
Bonjour,
Peut être en créant un nouvel userform qui, si le champ mot de passe est rempli, ouvrira ton userform1 donc dans ton code thisworkbook ça ne sera plus userform1.show mais userformMotDePasse.show ;)
Peut être en créant un nouvel userform qui, si le champ mot de passe est rempli, ouvrira ton userform1 donc dans ton code thisworkbook ça ne sera plus userform1.show mais userformMotDePasse.show ;)
abdellah_tadjine
Messages postés
203
Statut
Membre
6
mille merci fabien25000......j'ai fait ce que vous m'avez dit ca marche a merveuil...!!!!!!
yg_be
Messages postés
24281
Statut
Contributeur
1 584
>
abdellah_tadjine
Messages postés
203
Statut
Membre
bonjour, peux-tu marquer comme résolu?
Bonjour,
A la place de créer des userforms j'utiliserais les possibilités d'Excel avec une inputbox pour gérer le mot de passe et éventuellement une msgbox pour avertir que le mot de passe est erroné
code à coller dans la Thiswokbook en remplacement de l'ancien
le mot de passe provisoire est titi à éventuellement changer
A+
Mike-31
Je suis responsable de ce que je dis, pas de ce que tu comprends...
A la place de créer des userforms j'utiliserais les possibilités d'Excel avec une inputbox pour gérer le mot de passe et éventuellement une msgbox pour avertir que le mot de passe est erroné
code à coller dans la Thiswokbook en remplacement de l'ancien
Private Sub Workbook_Open()
Dim resultat As String
On Error Resume Next
resultat = InputBox("Veuillez vous identifier !", "Pour lancer le chrono", "Mot de passe administrateur") 'La variable stocke la valeur entrée dans l'InputBox
If resultat = "titi" Then ' ------- teste le mot de passe
UserForm1.Show
Else
MsgBox "mot de passe erroné", , "affichage Userfom1 refusé"
End If
End Sub
le mot de passe provisoire est titi à éventuellement changer
A+
Mike-31
Je suis responsable de ce que je dis, pas de ce que tu comprends...
Bonjour à tous,
Tout a fait d'accord avec Mike-31 que je salue.
Mais cela ne suffit pas, car un coup de Ctrl Pause et l'on crée un bug qui ouvre les macros.
Si l'on désactive les macros dans les options nouveau bug.
Ensuite si l'on ouvre avec open office on a accès au mot de passe. Donc j'ai caché le mot de passe. Les initiés le trouveront facilement.
De toutes les façons Excel est facile à craquer!
J'ai fait un exemple qui résistera aux néophytes:
http://www.cjoint.com/c/GGDkiR37etQ
Bonne programmation
Tout a fait d'accord avec Mike-31 que je salue.
Mais cela ne suffit pas, car un coup de Ctrl Pause et l'on crée un bug qui ouvre les macros.
Si l'on désactive les macros dans les options nouveau bug.
Ensuite si l'on ouvre avec open office on a accès au mot de passe. Donc j'ai caché le mot de passe. Les initiés le trouveront facilement.
De toutes les façons Excel est facile à craquer!
J'ai fait un exemple qui résistera aux néophytes:
http://www.cjoint.com/c/GGDkiR37etQ
Bonne programmation