Bonjour à tous & à toutes,
Salut Fermo, j'espère que ceci t'aidera je l'ai repris d'un de mes fichier - A adapter à ton prog :
A placer dans un module de ton workbook :
Sub AutoOpen()
Dim mydate
mydate = Date
If mydate < #12/31/2003# Then
Load UserForm2 ==> Lance mon programme
UserForm2.Show
End
ElseIf mydate >= #12/31/2003# Then
Load UserForm4 ==> ton USF demandant le Password
UserForm4.Show
End If
End Sub
A placer dans le Code du USF4
Private Sub OK_Click()
If Txt1.Value = "Fermo" Then ==> Mettre dans PasswordChar de la propriété Txt1 *
End
ElseIf Txt1.Value <> "Fermo" Then
MsgBox "Vous n'avez pas l'autorisation d'accès", vbOKOnly, "Mise à jour"
Close
Unload UserForm4
End If
End Sub
Fonctionne sur 97 & 2000
N'hésites pas et fais moi savoir si cela fonctionne, pour une fois que je peut être utile ...
A ++
Eric C