Excel bestand digitaal ondertekenen

[basblok]

Geacht forum,

Ik heb een bestandje dat door een aantal mensen moet worden ingevuld en daarna aan mij retour moet worden gezonden.
Hoe kan ik ervoor zorgen dat iedere ontvanger ( namen in kolom M ) het formulier Digitaal kan ondertekenen?
In kolom AA staan de e-mailadressen van de betreffende personen.

Bij voorbaat dank voor de reactie.

 

[popipipo]

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    
'    ###########################################################
'    ##  usernaam dmv dubbel klikken invoeren                 ##
'    ###########################################################
    
    
    If Not Intersect(Target, ActiveSheet.Range("unaam")) Is Nothing Then
          Application.ScreenUpdating = False
          ActiveSheet.Unprotect
            If Target.Value = "" Then
               With ActiveCell
                 .Value = Environ("username")
                 .Font.Name = "Verdana"
                 .Font.Size = 12
                   Target.Offset(1, 0).Select
               End With
                ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
                Application.ScreenUpdating = True
         Else
If MsgBox("Wilt u de PARAAF echt wijzigen?", vbYesNo + vbDefaultButton2, Title:="Paraaf wijzigen!") = vbNo Then
            Target.Offset(1, 0).Select
                ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
                Application.ScreenUpdating = True
         Else
          Application.ScreenUpdating = False
          ActiveSheet.Unprotect
               With ActiveCell
                 .Value = Environ("username")
                 .Font.Name = "Verdana"
                 .Font.Size = 12
                   Target.Offset(1, 0).Select
               End With
                ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False
                Application.ScreenUpdating = True
    End If
  End If
End If
End Sub

Door dubbel klikken komt je naam waarmee je inlogt in de computer in de geselecteerde cel te staan.

 

[basblok]

Ik denk dat ik iets niet goed heb gedaan, graag zou ik willen weten wat. zie afbeelding.

 

[basblok]

Als ik dus klik op de blauwe cel ( M22 ) zou daar mijn naam moeten komen?

 

[popipipo]

Er stond een naam bereik in die heb ik veranderd in S5:S16

 

[snb]

Of bedoel je dit ?

Sub M_snb()
    ActiveWorkbook.Signatures.AddSignatureLine "{00000000-0000-0000-0000-000000000000}"
End Sub

 

[basblok]

Ik vermoed dat ik niet geheel duidelijk ben.
Het is de bedoeling dat de mensen die in kolom M staan het ontvangen formulier terug moeten sturen naar mij nadat ze het hebben ingevuld en ondertekend. Dus nadat er een wijziging heeft plaatsgevonden.
Tot nu toe werkt geen enkele van de ontvangen opties.

 

[popipipo]

In kolom S staat toch je inlognaam als je dubbel klikt.
Dit versta ik tenminste voor ondertekenen.
Kolom S kun je natuurlijk veranderen naar kolom M maar dan is het wat onduidelijker wie ondertekent.

 

[edmoor]

Leg eens uit wat je bedoelt met "ondertekenen".
Digitaal ondertekenen is een aparte procedure waarbij ook een certificaat nodig is.

 

[basblok]

Dat is precies wat ik eigenlijk bedoel, maar begrijp uit jouw reactie dat dit niet mogelijk is?

Het gaat er in ieder geval om dat als iemand het bestandje weer naar mij stuurt, er een soort handtekening of iets dergelijks zichtbaar moet zijn als zijnde dat het naar waarheid is ingevuld.

Sorry als ik niet duidelijk ben.

 

[popipipo]

er een soort handtekening of iets dergelijks zichtbaar moet zijn

Dat doet mijn bestandje toch?

 

[basblok]

Als ik dubbel klik in de cel S5 dan gebeurt er niets - in ieder geval nu niet.

 

[edmoor]

Je zal ze de procedure moeten uitleggen:

Add or remove a digital signature for Microsoft 365 files - Microsoft Support

Learn about digital signatures, digital IDs, and signature lines to use in Word, Excel, and PowerPoint.

support.microsoft.com

 

[popipipo]

Als ik dubbel klik in de cel S5 dan gebeurt er niets

Bij mij doet het bestandje uit #5 het wel.

 

[basblok]

Misschien zit het probleem dat ik het als een alleen lezen bestandje heb geopend?
Wil je het nog een keer beschikbaar stellen?

 

[snb]

War zou dat toch betekenen 'alleen lezen' ?

 

[popipipo]

Wil je het nog een keer beschikbaar stellen?

Opnieuw downloaden is voldoende