Protect sheets via VB6 automation

[Maurizio BELLANTONE]

Hi,
I try to use code below in order to protect sheets with a password to an
example file I want to add to an application.
When code run, because in the example file there are some macros, appear the
macro security warning: I must choose 'Disable Macros' but password is not
set.
There is somthing wrong in my code ?
There is another method in order to set password ?
TIA,

Maurizio Bellantone


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

Dim oXl As Excel.Application, myExampleFile As String, pwdF As String,
nameWbk As String

On Error Resume Next
myExampleFile = "c:\MyApps\MyExample.xls"
FileCopy myExampleFile, RTrim(myExampleFile) & ".backup"
pwdF = EncryptedPwd()
Set oXl = GetObject(myExampleFile): ', "Excel.Application")
If Err <> 0 Then
Set oXl = CreateObject("Excel.Application")
End If

nameWbk = GetFileNameFromPath(myExampleFile) ' extract only
the filename

' there are 2 sheets in the workbook
oXl.Workbooks(nomeWbk).Sheets("Calc_Sheet").Protect Password:=pwdF,
Drawings:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
oXl.Workbooks(nomeWbk).Sheets("Other_Sheet").Protect Password:=pwdF,
Drawings:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
oXl.Workbooks("Calc_Sheet.xls").Close SaveChanges:=True

oXl.Quit
Set oXl = Nothing

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

 

[Leith Ross]

Hello Maurizio,

Your code looks fine. You say you have to Disable Macros to run the
code. If macros are disabled your code (a macro) won't run. If the
code doesn't execute, you will not be able to password protect the
worksheets.

You can trry a couple of things. Either set your security to low, which
will any macro to run (a dangerous option) or self sign the macro which
will allow it to run because it is now recognized by Windows as safe.
If you are planning to use your code on a network you may require
additional permissions from your administrator.

Sincerely,
Leith Ross

 

[Maurizio BELLANTONE]

Thank you, I have some doubts.
How works macro signing ?
If I apply a certificate to a template file (xlt), each sheet based on that
template inherits signing ?
Do you have any idea of costs of signing ?

Maurizio Bellantone

"Leith Ross" <[email protected]> ha
scritto nel messaggio
news:[email protected]...