Saving other workbooks from vba

G

gcacinfotech

New member
i want to generate reports in xls format from my code . i want to save these files as normal excel files . i added following code given at point not 11.8 of xlspadlock user guide

Dim xlspadlock As Object
Set xlspadlock = Application.COMAddIns(“GXLS.GXLSPLock”).Object
xlspadlock.setoption option:=“1”, Value:=“1”

however i get following error meesage

run time error ‘9’
Subscript out of range at line no 2 of above code

please help
 
The code snippet is incomplete. From the guide:
image

You have to trap such a runtime error 9 because the xlspadlock object is not available before you compile your workbook with XLS Padlock.
 
have done the trapping . the reports gets generated and get saved as normal save . however even after saving the workbook generated as normal excel files . a dialog box open for secure save
code used by me is as follows

fs = Application.GetSaveAsFilename(inm, " (*.xls), .xls")
gs = ActiveWorkbook.Path
gs1 = WorksheetFunction.Concat(gs, “\gtsr”)
Workbooks.Add (gs1)
Set sws = ActiveWorkbook
On Error Resume Next
xlspadlock.setoption option:=“1”, Value:=“1”
sws.SaveAs Filename:=CStr(fs)
sws.Close
xlspadlock.setoption option:=“1”, Value:=“0”
 
the workbook i generated from vba code got saves as normal excel file successfully . however after that above window asking for secure save opens unnecessarily . Please resolve
 
gcacinfotech said:
On Error Resume Next
xlspadlock.setoption option:=“1”, Value:=“1”
sws.SaveAs Filename:=CStr(fs)
Click to expand...
Your code is incomplete. The definition of the xlspadlock object is missing: see our code in previous post.
 
i have included following code at module level
since i need to generat excel sheets from two different subs

Public xlspadlock As Object

the code is otherwise working fine , the excel reports i am generating are getting saved as normal excel file. only problem is opening of un required secure save window
 
please see the matter and resolve

when i have copied the code given in your guide the excel genrated gets saved as normal excel file
after that a secure save dialouge box opens which user have to cancel to move further
 
gdgsupport said:
xlspadlock.setoption option:=“1”, Value:=“1”
Click to expand...
As explained, if the dialog box still pops up, that means the setoption wasn’t called. DO not define the xlspadlock object globally but locally just before using it.
 
You must log in or register to reply here.
Back
Top