Using EXE + application XPLAPP Bundle with desactivation

J

jav2110

New member
I have tried to implement the option to deactivate that comes in the user guide, but when combining the option with EXE + application XPLAPP Bundle, I get this message:
Captura de pantalla 2024-05-31 064607

The user guide comes with this example:

Public Sub StartDeactivation()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
XLSPadlock.PLDeactivate
Err:
End Sub
’ You can then invoke the sub thanks to a macro assigned to a button for instance:
Sub AskForDeactivation()
Dim response As Integer
Code: 
' Ask the user if they really want to deactivate the application
response = MsgBox("Do you really want to deactivate the application?", _
vbQuestion + vbYesNo, “Confirm Deactivation”)
Code: 
' Check the user's response
If response = vbNo Then
    ' If the user selects "No," exit the procedure
    Exit Sub
Else
    ' If the user selects "Yes," you can call the deactivation function here
     Call StartDeactivation
     Application.Quit
End If
End Sub
 
Looks like this is a bug. We’ll fix this in the next update.
Thank you for the report!
In the meanwhile, you can modify the VBA code to call the EXE file + passing the -deact switch.
Code: 
Public Function GetEXEFilename()
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
GetEXEFilename = XLSPadlock.PLEvalVar("EXEFilename")
Exit Function
Err:
GetEXEFilename = ""
End Function

Sub CallEXEWithDeactSwitch()
    Dim exePath As String
    Dim exeSwitch As String
    Dim command As String
    
    ' Define the path to your EXE file
    exePath = GetEXEFilename()
    
    exeSwitch = "-deact"
    
    command = """" & exePath & """ " & exeSwitch
    
    Shell command, vbNormalFocus
End Sub
 
Hi…I just purchased the latest version xlspadlock 2024 because of the new features exe+.xplapp bundle…but when I try to run or test my created exe workbook…it didn’t open…after clicking my licensed agreement…nothing happens.please help on this.
 
Could you please send us your XPLAPP file for review? If yes, you can zip it and upload the archive to https://wetransfer.com
This is a free file hosting service: after upload, they will give you a URL. Please send us this URL so that we can download the Zip archive.
Send the URL with our ticket system or with the Private Message feature on this forum. Thank you.
 
Thank you for your quick response. I think I already know the root problem…Everytime I include/put licensed agreement which is part of the customize features, the workbook won’t open…but if i will not include the licensed agreement the exe workbook can be open…It would be very nice if I can at least add the license agreement., even if not to include the customized icon…Whats important for me is the license agreement, for my legal safe to customers. Please consider this…Thank you.
 
Last edited:
You must log in or register to reply here.
Back
Top