ricdam
New member
Hi there,
I’m struggling to make these two VBAs to work together.
What location or code I need to put inside the sub SaveSecureWorkbookToFile to save in the same location of the exe file?
I’m using:
I’m struggling to make these two VBAs to work together.
What location or code I need to put inside the sub SaveSecureWorkbookToFile to save in the same location of the exe file?
I’m using:
AndPublic Function PathToFile(Filename As String)
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
PathToFile = XLSPadlock.PLEvalVar(“EXEPath”) & Filename
Exit Function
Err:
PathToFile = “”
End Function
and to call:Public Function SaveSecureWorkbookToFile(Filename As String)
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLS.GXLSPLock”).Object
SaveSecureWorkbookToFile = XLSPadlock.SaveWorkbook(Filename)
Exit Function
Err:
SaveSecureWorkbookToFile = “”
End Function
ThanksSub Test_Save()
SaveSecureWorkbookToFile (WHAT SHOULD I PUT HERE)
End Sub
Last edited: