Signature electronique

Public motdepasse As String

Sub Signer_Opé()


Dim nomope As String
Dim cellope As Range
Dim plagederecherche As Range

''''''''''recherche Cellule Opératuer pour signer dans la bonne case
Cells.Find(What:="Opérateur", After:=Cells(1, 1), LookAt:=xlWhole, MatchCase:=True, SearchFormat:=False).Activate
'''''''''' Decalage d'une case à droite
ActiveCell.Offset(0, 1).Select
'''''''''' Quel est le nom dans la cellule ?
nomope = ActiveCell.Value

''''''''''Chargement de la fenetre "mot de passe" avec champ de texte crypté
Load MotDePasse2
MotDePasse2.Show

''''''''''Recherche correspindance nom opérateur et mot de passe

If nomope = "XXXXXX XXXXXXXXX" And motdepasse = "labolg" Then
ActiveCell.Offset(0, 1).Value = "OK"
End If

If nomope = "XXXXXX XXXXXXXXX" And motdepasse = "labofp" Then
ActiveCell.Offset(0, 1).Value = "OK"
End If

If nomope = "XXXXXX XXXXXXXXX" And motdepasse = "labovf" Then
ActiveCell.Offset(0, 1).Value = "OK"
End If

If nomope = "XXXXXX XXXXXXXXX" And motdepasse = "laboep" Then
ActiveCell.Offset(0, 1).Value = "OK"
End If

If nomope = "XXXXXX XXXXXXXXX" And motdepasse = "labotd" Then
ActiveCell.Offset(0, 1).Value = "OK"
End If

If nomope = "XXXXXX XXXXXXXXX" And motdepasse = "laboeb" Then
ActiveCell.Offset(0, 1).Value = "OK"
End If

End Sub



Private Sub Annuler_Click()
    Unload Me
End Sub

Private Sub Ok_Click()
motdepasse = Me.Passe
Unload Me

End Sub

Private Sub UserForm_Initialize()
    Me.Passe.PasswordChar = "*"
End Sub

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Annuler_Click()
    Unload Me
End Sub

Private Sub Ok_Click()
motdepasse = Me.Passe
Unload Me

End Sub

Private Sub UserForm_Initialize()
    Me.Passe.PasswordChar = "*"
End Sub