Bonjour
J'ai imaginé un principe de signature numérique de documents qualités.
Mais je n'ai que des bases en VBA, insuffisantes pour mener à bien mon projet.
Je cherche à réaliser une petite appli sous excell :
A l'ouverture : bonjour "nom", poste info "nomposteinfo", vous souhaitez générer une signature numérique en tant que rédacteur, vérificateur ou approbateur, ou vous logger en tant qu'admin (sélection par case à cocher + mot de passe pour admin).
Une boite de dialogue s'ouvre alors pour le générateur, demande la référence du document à signer, et génère un code aléatoire commençant par R pour le mode rédacteur, V pour vérif et A pour approbateur.
Ce code est inscrit sur un onglet caché, sur la ligne "nom", "nomposteinfo", "heure de génération", "code".
L'opérateur copie ce code depuis la boite de dialogue et le colle sur son document à signer.
L'onglet caché n'est dévoilable que sous admin.
Le code aléatoire suivant la première lettre imposée (R, V ou A), pourrait être composé de 8 caractères alphabétiques minuscules ou majuscules, ce qui donnerait par exemple RsTmPJaxW.
Ainsi, la signature est tracée (journal), et unique par opération.
Merci à vous pour votre aide.
Au fait, voici un bout de code pour la partie détection nom nomposteinfo et heure fourni par Boisgontier sur un autre fil...(Encore merci à lui)
thierry
Sub auto_open()
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub
Sub auto_close()
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Environ("username")
Sheets("espion").[A65000].End(xlUp).Offset(0, 3) = Environ("computername")
Sheets("espion").Visible = xlVeryHidden
End Sub
Sub affiche_espion()
mp = InputBox("Mot de passe?")
If mp = "jacques" Then
Sheets("espion").Visible = True
End If
End Sub
J'ai imaginé un principe de signature numérique de documents qualités.
Mais je n'ai que des bases en VBA, insuffisantes pour mener à bien mon projet.
Je cherche à réaliser une petite appli sous excell :
A l'ouverture : bonjour "nom", poste info "nomposteinfo", vous souhaitez générer une signature numérique en tant que rédacteur, vérificateur ou approbateur, ou vous logger en tant qu'admin (sélection par case à cocher + mot de passe pour admin).
Une boite de dialogue s'ouvre alors pour le générateur, demande la référence du document à signer, et génère un code aléatoire commençant par R pour le mode rédacteur, V pour vérif et A pour approbateur.
Ce code est inscrit sur un onglet caché, sur la ligne "nom", "nomposteinfo", "heure de génération", "code".
L'opérateur copie ce code depuis la boite de dialogue et le colle sur son document à signer.
L'onglet caché n'est dévoilable que sous admin.
Le code aléatoire suivant la première lettre imposée (R, V ou A), pourrait être composé de 8 caractères alphabétiques minuscules ou majuscules, ce qui donnerait par exemple RsTmPJaxW.
Ainsi, la signature est tracée (journal), et unique par opération.
Merci à vous pour votre aide.
Au fait, voici un bout de code pour la partie détection nom nomposteinfo et heure fourni par Boisgontier sur un autre fil...(Encore merci à lui)
thierry
Sub auto_open()
Sheets("espion").[A65000].End(xlUp).Offset(1, 0) = Now
End Sub
Sub auto_close()
Sheets("espion").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("espion").[A65000].End(xlUp).Offset(0, 2) = Environ("username")
Sheets("espion").[A65000].End(xlUp).Offset(0, 3) = Environ("computername")
Sheets("espion").Visible = xlVeryHidden
End Sub
Sub affiche_espion()
mp = InputBox("Mot de passe?")
If mp = "jacques" Then
Sheets("espion").Visible = True
End If
End Sub