Programmatically signing Excel VBA Macro

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,
We want to sign a bunch of files with excel macros
programmatically.
Anyone knows of C#.Net or VB.Net solution?
Fileformat is excel 2007 (Open XML).

Thanks,
Mike
 
To clarify the request:
The step "Visual Basic => Tools => Digitial Signature"
have to be automated.
 
This is from the VBA help file. However, it requires that a digital
signature certificate be in existence.

Example
The following example prompts the user to select a digital signature with
which to sign the active document in Microsoft Word. To use this example,
open a document in Word and pass this function the name of a certificate
issuer and the name of a certificate signer that match the Issued By and
Issued To fields of a digital certificate in the Digital Certificates dialog
box. This example will test to make sure that the digital signature that the
user selects meets certain criteria, such as not having expired, before the
new signature is committed to the disk.

Function AddSignature(ByVal strIssuer As String, _
strSigner As String) As Boolean

On Error GoTo Error_Handler

Dim sig As Signature

'Display the dialog box that lets the
'user select a digital signature.
'If the user selects a signature, then
'it is added to the Signatures
'collection. If the user doesn't, then
'an error is returned.
Set sig = ActiveDocument.Signatures.Add

'Test several properties before commiting the Signature object to disk.
If sig.Issuer = strIssuer And _
sig.Signer = strSigner And _
sig.IsCertificateExpired = False And _
sig.IsCertificateRevoked = False And _
sig.IsValid = True Then

MsgBox "Signed"
AddSignature = True
'Otherwise, remove the Signature object from the SignatureSet collection.
Else
sig.Delete
MsgBox "Not signed"
AddSignature = False
End If

'Commit all signatures in the SignatureSet collection to the disk.
ActiveDocument.Signatures.Commit

Exit Function
Error_Handler:
AddSignature = False
MsgBox "Action cancelled."
End Function
 
Thanks for your answer - but:
The code you pasted below signs the _document_'s content.
What we need is a signature of the vba macros inside the document.
(Developer>Tools>Digital Signature).
This creates a file inside Open XML as vbaProjectsignature.bin file and
relates to vbaProject.bin file.

In contrast the document's signature (which is created with code below)
is stored as a standard XML-Signature [file sig2.xml].

Nevertheless, thanks a lot for your response.
rgds,
Mike
 
I'm having the same problem and it seems that there is nothing on internet
about that elsewhere...
Did you find any solution ??

Thanks
--
Thibaut

bow said:
Thanks for your answer - but:
The code you pasted below signs the _document_'s content.
What we need is a signature of the vba macros inside the document.
(Developer>Tools>Digital Signature).
This creates a file inside Open XML as vbaProjectsignature.bin file and
relates to vbaProject.bin file.

In contrast the document's signature (which is created with code below)
is stored as a standard XML-Signature [file sig2.xml].

Nevertheless, thanks a lot for your response.
rgds,
Mike

JLGWhiz said:
This is from the VBA help file. However, it requires that a digital
signature certificate be in existence.

Example
The following example prompts the user to select a digital signature with
which to sign the active document in Microsoft Word. To use this example,
open a document in Word and pass this function the name of a certificate
issuer and the name of a certificate signer that match the Issued By and
Issued To fields of a digital certificate in the Digital Certificates dialog
box. This example will test to make sure that the digital signature that the
user selects meets certain criteria, such as not having expired, before the
new signature is committed to the disk.

Function AddSignature(ByVal strIssuer As String, _
strSigner As String) As Boolean

On Error GoTo Error_Handler

Dim sig As Signature

'Display the dialog box that lets the
'user select a digital signature.
'If the user selects a signature, then
'it is added to the Signatures
'collection. If the user doesn't, then
'an error is returned.
Set sig = ActiveDocument.Signatures.Add

'Test several properties before commiting the Signature object to disk.
If sig.Issuer = strIssuer And _
sig.Signer = strSigner And _
sig.IsCertificateExpired = False And _
sig.IsCertificateRevoked = False And _
sig.IsValid = True Then

MsgBox "Signed"
AddSignature = True
'Otherwise, remove the Signature object from the SignatureSet collection.
Else
sig.Delete
MsgBox "Not signed"
AddSignature = False
End If

'Commit all signatures in the SignatureSet collection to the disk.
ActiveDocument.Signatures.Commit

Exit Function
Error_Handler:
AddSignature = False
MsgBox "Action cancelled."
End Function
Click to expand...
Click to expand...
 
Alas no ... I'm still searching for a solution.

Thibaut Blanchin said:
I'm having the same problem and it seems that there is nothing on internet
about that elsewhere...
Did you find any solution ??

Thanks
--
Thibaut

bow said:
Thanks for your answer - but:
The code you pasted below signs the _document_'s content.
What we need is a signature of the vba macros inside the document.
(Developer>Tools>Digital Signature).
This creates a file inside Open XML as vbaProjectsignature.bin file and
relates to vbaProject.bin file.

In contrast the document's signature (which is created with code below)
is stored as a standard XML-Signature [file sig2.xml].

Nevertheless, thanks a lot for your response.
rgds,
Mike

JLGWhiz said:
This is from the VBA help file. However, it requires that a digital
signature certificate be in existence.

Example
The following example prompts the user to select a digital signature with
which to sign the active document in Microsoft Word. To use this example,
open a document in Word and pass this function the name of a certificate
issuer and the name of a certificate signer that match the Issued By and
Issued To fields of a digital certificate in the Digital Certificates dialog
box. This example will test to make sure that the digital signature that the
user selects meets certain criteria, such as not having expired, before the
new signature is committed to the disk.

Function AddSignature(ByVal strIssuer As String, _
strSigner As String) As Boolean

On Error GoTo Error_Handler

Dim sig As Signature

'Display the dialog box that lets the
'user select a digital signature.
'If the user selects a signature, then
'it is added to the Signatures
'collection. If the user doesn't, then
'an error is returned.
Set sig = ActiveDocument.Signatures.Add

'Test several properties before commiting the Signature object to disk.
If sig.Issuer = strIssuer And _
sig.Signer = strSigner And _
sig.IsCertificateExpired = False And _
sig.IsCertificateRevoked = False And _
sig.IsValid = True Then

MsgBox "Signed"
AddSignature = True
'Otherwise, remove the Signature object from the SignatureSet collection.
Else
sig.Delete
MsgBox "Not signed"
AddSignature = False
End If

'Commit all signatures in the SignatureSet collection to the disk.
ActiveDocument.Signatures.Commit

Exit Function
Error_Handler:
AddSignature = False
MsgBox "Action cancelled."
End Function



:

Hi,
We want to sign a bunch of files with excel macros
programmatically.
Anyone knows of C#.Net or VB.Net solution?
Fileformat is excel 2007 (Open XML).

Thanks,
Mike
Click to expand...
Click to expand...
Click to expand...
 
OK... :-(
I will let you know if I finally find something.

--
Thibaut


bow said:
Alas no ... I'm still searching for a solution.

Thibaut Blanchin said:
I'm having the same problem and it seems that there is nothing on internet
about that elsewhere...
Did you find any solution ??

Thanks
--
Thibaut

bow said:
Thanks for your answer - but:
The code you pasted below signs the _document_'s content.
What we need is a signature of the vba macros inside the document.
(Developer>Tools>Digital Signature).
This creates a file inside Open XML as vbaProjectsignature.bin file and
relates to vbaProject.bin file.

In contrast the document's signature (which is created with code below)
is stored as a standard XML-Signature [file sig2.xml].

Nevertheless, thanks a lot for your response.
rgds,
Mike

:

This is from the VBA help file. However, it requires that a digital
signature certificate be in existence.

Example
The following example prompts the user to select a digital signature with
which to sign the active document in Microsoft Word. To use this example,
open a document in Word and pass this function the name of a certificate
issuer and the name of a certificate signer that match the Issued By and
Issued To fields of a digital certificate in the Digital Certificates dialog
box. This example will test to make sure that the digital signature that the
user selects meets certain criteria, such as not having expired, before the
new signature is committed to the disk.

Function AddSignature(ByVal strIssuer As String, _
strSigner As String) As Boolean

On Error GoTo Error_Handler

Dim sig As Signature

'Display the dialog box that lets the
'user select a digital signature.
'If the user selects a signature, then
'it is added to the Signatures
'collection. If the user doesn't, then
'an error is returned.
Set sig = ActiveDocument.Signatures.Add

'Test several properties before commiting the Signature object to disk.
If sig.Issuer = strIssuer And _
sig.Signer = strSigner And _
sig.IsCertificateExpired = False And _
sig.IsCertificateRevoked = False And _
sig.IsValid = True Then

MsgBox "Signed"
AddSignature = True
'Otherwise, remove the Signature object from the SignatureSet collection.
Else
sig.Delete
MsgBox "Not signed"
AddSignature = False
End If

'Commit all signatures in the SignatureSet collection to the disk.
ActiveDocument.Signatures.Commit

Exit Function
Error_Handler:
AddSignature = False
MsgBox "Action cancelled."
End Function



:

Hi,
We want to sign a bunch of files with excel macros
programmatically.
Anyone knows of C#.Net or VB.Net solution?
Fileformat is excel 2007 (Open XML).

Thanks,
Mike
Click to expand...
Click to expand...
Click to expand...
 
In message <[email protected]>
at 06:46:03 on Fri said:
To clarify the request:
The step "Visual Basic => Tools => Digitial Signature"
have to be automated.
Click to expand...
Mmmm, it kinda defeats the whole point of what digital certificates are
for doesn't it if you could sign files external to the one running the
program
 
Back
Top