Private Sub UserForm_Initialize()
' Élimination du bouton de fermeture de la barre de titre de l'UserForm
'************************************************************************************************
Me.Caption = " Impitoyable Mot de Passe"
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
'************************************************************************************************
Me.TextBoxMotPasse.SetFocus 'sélectionne, dès l'ouverture de l'USF, le TextBox "TextBoxMotPasse"
Me.TextBoxMotPasse.PasswordChar = "*" 'cryptage du mot de passe
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Stop_Code = True 'arrète le défilement du texte dans le TextBox "TextBoxMotPasse"
End Sub
Private Sub CommandButton1_Click() 'CommandButton "OK"
If TextBoxMotPasse = "zaza" Then
Unload USF_MotDePasse2 'ferme l'USF "USF_MotDePasse2"
ElseIf TextBoxMotPasse = "" Then
Me.TextBoxMotPasse.SetFocus
Else 'on s'est planté dans le mot de passe
Dim phrase As String, phrase1 As String, phrase2 As String, w As Double, temp As Double
phrase = "! ! ! Code définitivement erroné, coquin de sort ! ~ Au 3ème essai infructueux, le terriblissime virus " & Chr$(34) & "Armageddon-ZZ Top 666" & Chr$(34) & " détruira irréversiblement votre PC et, par la même occasion, anihilera ipso facto fissa votre belle-mère... ! ! ! "
TextBoxMotPasse.ForeColor = &HFF& 'le texte du message défilant dans le TextBox "TextBoxMotPasse" est rouge
Stop_Code = False
Do
TextBoxMotPasse.Value = phrase
TextBoxMotPasse.PasswordChar = ""
w = 0.1
temp = Timer
Do While Timer < temp + w
If Stop_Code = True Then Exit Do
DoEvents
Loop
phrase1 = Right(phrase, Len(phrase) - 1)
phrase2 = Left(phrase, 1)
phrase = phrase1 & phrase2
Loop Until Stop_Code = True
TextBoxMotPasse.ForeColor = 0 'le texte dans le TextBox "TextBoxMotPasse" redevient noir
End If
End Sub