MDP à une date prédéfinie

[atomique]

Bonjour,

Est il possible de protéger un document Excel pour qu'à une date prédéfinie un mot de passe soit demandé

Merci

 

[Temjeh]

Re : MDP à une date prédéfinie

Bonjour

Oui à mettre dans le workbok open pour le rendre inutilisable après la date avec avertissement et le demo celui-là avec un password:

Private Sub Workbook_Open()
If Date > CDate("01/01/2008") Then
MsgBox ("pas autorisé")
Application.Quit
ActiveWorkbook.Close
Else
'ici facultatif
MsgBox ("Attention, fichier non valide après 01/01/2008")
End If
End Sub

Je te donne un demo pour password 1234 et le demande après 1/1/2008
Après la date ...userform et password

Temjeh

 

[atomique]

Re : MDP à une date prédéfinie

Merci beaucoup Temjeh C'est franchement super sympa de ta part

 

[atomique]

Re : MDP à une date prédéfinie

pour modifier le mot de passe, c'est ou ?

Merci

 

[Temjeh]

Re : MDP à une date prédéfinie

Bonjour

ALT+F11
Affiche la fenêtre de propriété ...
Clic 2 coups sur userform1
Clic 2 coups sur le bouton valider et le code est en dessous

Dim password
password = TextBox1.Value
If Not (password = "1234") Then
MsgBox "Mauvais mot de passe"
TextBox1 = ""
TextBox1.SetFocus
Exit Sub
Else
MsgBox " SVP ne rien modifier sans être qualifier."
Unload Me
UserForm2.Hide
End If
A+

Temjeh

 

[atomique]

Re : MDP à une date prédéfinie

sa fonctionne tres bien

Merci 😎

 

[JYLL]

Re : MDP à une date prédéfinie

Bonsoir Atonique, Temjeh et le forum,

Tu peux aussi aller dans la propriété de ta texte box:

PasswordChar et y mettre une * ce qui aura por résultat quand tu entreras ton MDP tu ne verras que des étoiles dans la saisie. * ou autre caractère comme @.

Tu peux aussi faire cela:

Private Sub TextBox1_Change()
TextBox1.PasswordChar = Chr(Rnd * 100 + 32)
End Sub

le caractère change à chaque lettre entrée.

Bon test.