Boite de dialogue

Bonjour ,

Je veux une boite de dialogue qui demande a l'ouverture

admin :

mots de passe

Bonjour abdermino, le forum,

Un exemple:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 Feuil1.Protect Password:="admin"   'protège la feuille à la fermeture du classeur, mdp = admin

End Sub

Private Sub Workbook_Open()

Dim title
title = "veuillez saisir votre mot de passe"

reponse = InputBox("Mot de passe", title, "ici le mot de passe ...") 'boite de dialogue pour saisir mot de passe

If reponse <> "admin" Then
    MsgBox ("Accès refusé. Veuillez saisir un mot de passe valide") 'si mdp différent de admin, message accès refusé
Else
    Feuil1.Unprotect "admin"  'si mot de passe ok, on enlève protection de la feuille
End If
End Sub

Cordialement,

Bonjour ,

meme si le mots de passe est faux , il me donne l'accés au ficfier .

Re,

A tester: si mdp incorrect, on quitte

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 Feuil1.Protect Password:="admin"   'protège la feuille à la fermeture du classeur, mdp = admin

End Sub

Private Sub Workbook_Open()

Dim title
title = "veuillez saisir votre mot de passe"

reponse = InputBox("Mot de passe", title, "ici le mot de passe ...") 'boite de dialogue pour saisir mot de passe

If reponse <> "admin" Then
    MsgBox ("Accès refusé. Veuillez saisir un mot de passe valide") 'si mdp différent de admin, message accès refusé

Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True

Else
    Feuil1.Unprotect "admin"  'si mot de passe ok, on enlève protection de la feuille
End If
End Sub