Purpose: get local save folder path

This lets you retrieve the path to the local folder where XLS Padlock stores your application’s settings and secure save files.

Insert the following code:

Public Function GetStoragePath()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
GetStoragePath = XLSPadlock.PLEvalVar("SPath")
Exit Function
Err:
GetStoragePath = ""
End Function
 

 

The previous code can be tested with:

 

Sub Test_GetStoragePath()
 MyPath = GetStoragePath
 MsgBox (MyPath)
End Sub