Public Function CallXLSPadlockVBA(ID As String, Param1)
On Error Resume Next
Dim XLSPadlock As Object
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
If XLSPadlock = Null Then
CallXLSPadlockVBA = ""
Exit Function
End If
CallXLSPadlockVBA = XLSPadlock.PLEvalVBA(ID, Param1)
End Function
We use essential cookies to make this site work, and optional cookies to enhance your experience.