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,