Thought someone might be interested as it was a long and hard search to finally get a startup sound in wma happening (mp3 file size are too large)
I wanted to make a professional app so in addition to the splash screen I added a startup sound. The wma file is obviously added at install time.
In Excel object ThisWorkbook Sub workbook_Open
I have a call to
Application.Run “startupsound”
The rest of the coding in standard modules is
Public Declare Function ShellExecute _
Lib “shell32.dll” _
Alias “ShellExecuteA” ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
Sub startupsound()
'This will play a start up sound saved as a companian file
Dim strFile As String
Dim strAction As String
Dim lngErr As Long
Dim XLSPadlock As Object
Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
strFile = XLSPadlock.PLEvalVar("EXEPath")
strFile = strFile & "INTRO.wma"
'strFile = “G:\Dropbox\Decisive Group\Business Plan\LOGO\INTRO.wma” ’ the file you want to open/etc.
strAction = “OPEN” ’ action might be OPEN, NEW or other, depending on what you need to do
Can you please advise if it is possible to have a customs text in the “Enter Activation Key” dialog box?
The reason I’m asking is, I do not have a website and I would like to be contacted via email so I can generate the License Key and email back to the user.
Support please can link this as this is not an workbook open event but an APi Im trying to get to work with your software. You may close the other open event as its an API issue thanks
This is the Excel macro -it works flawlessly in Excel but not in your software
Sub ChangeExelIcon()
'Get the icon handle.
'You can use the full path of the icon file, i.e.:
hwndIcon = ExtractIconA(0, “C:\Users\Christos\Desktop\MyApp\Icon.ico”, 0)
'Or the icon path relative to the current workbook, i.e.:
'hwndIcon = ExtractIconA(0, ThisWorkbook.Path & “$SIGN.ico”, 0)
'Check if the icon handle is valid.
If hwndIcon <> 0 Then
'Change the icon.
'For a big icon (32 x 32 pixels), use this line:
'SendMessageA Application.HWnd, WM_SETICON, ICON_BIG, hwndIcon
'For a small one (16 x 16 pixels), use the next line (typical case):
SendMessageA Application.hWnd, WM_SETICON, ICON_SMALL, hwndIcon
'Inform the user.
'MsgBox "Excel icon was changed successfully!", vbInformation, "Done"
End If
We tried the following without any luck
Option Explicit
Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal ClassName As String, ByVal WindowName As String) As Long
Declare Function ExtractIcon Lib “shell32.dll” Alias “ExtractIconA” (ByVal Instance As Long, ByVal ExeFileName As String, ByVal IconIndex As Long) As Long
Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hWnd As Long, ByVal Message As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const WM_SETICON = &H80
Public 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
I went back to my original macro and only tried pathtofile instead of Thisworkbook.Path but Im getting an error argument not optional
This is now 6 days and I cannot make this api work which work in all versions of excel
here is the code I tried that argument not optional error
Sub ChangeExcelIcon()
'The call below works fine when you explictly define the path to the file
'Call SetExcelIcon(“C:\Users\Christos\Desktop\MyApp\Icon.ico”)
'If you want to use excel’s “ThisWorkbook.path” you would need to
'call XLS function as described below.
'this line would have to be changed to call XLS Function PathToFIle
'hwndIcon = ExtractIconA(0, ThisWorkbook.Path & “$SIGN.ico”, 0) -This is the line that work in Excel
Dim XLSPadlock As Object
Dim hIcon As Long
hwndIcon = ExtractIconA(0, PathToFile = XLSPadlock.PLEvalVar(“EXEPath”) & “$SIGN.ico” ,0)
Dim file_name As String
file_name = "$SIGN.ico"
SetExcelIcon ("C:\Program Files\Test\$SIGN.ico")
End Sub
The line that work in Excel
hwndIcon = ExtractIconA(0, ThisWorkbook.Path & “$SIGN.ico”, 0) -This is the line that work in Excel
Here I am inserting the PathToFile This line after PathToFile
As the Woo kit is a bit clumsy, I tried to find a way to live with it. I made two versions of the kits: one for the 30-days trial workbook, the other is for the 365-day subscription. Both of them work fine with their own channel, however there is an annoying issue: the 365-day subscription users may use the free trial token to activate the workbook to get a free ride.
In order to prevent this, I put a slug, say ‘trial’, into the trial product to differentiate it to the registered one. However I’m still struggling to get the slug from the order. I put a pseudo-code into the MainController.php as shown in the screenshot, could someone spare a bit of time to give me a clue how to make it work. I would highly appreciate it.
Some of my clients after the last update of Windows 10 began to send
that they can not now save changes to protected files (Files/Save).
Before this, there were no such problems.
The number of appeals is growing, and I do not know what to do about it.
Excel gives a message like this:
================================
Format of the file FS17A400. does not match its extension. File may be damaged or unsafe. Open it if and only if you trust the source of the file.
Are you sure you still want to open this file ?
After you click Yes, the table closes and Windows tries to fix the problem.
We tried to disable Antivirus and the defender of Windows. But nothing
helps. But in fact everything worked before the update!
Previously, there were no such problems. I’m worried that the number
of appeals is growing and all of them are related to the update. How
can this problem be solved ?
Support quick question on this. If you dont allow manual activations for people with no internet access which will make your app an 100% internet app my question I would like to know -if you choose not to allow manual activations…is the manual activations module still compiled in the exe and just hidden OR if you choose not to allow manual activations will that be totally excluded. The software manual does not make this clear.What will be compiled and what not ?
I have this problem just today.
I recompiled my Excel project file after some update into Exe file.
When executing the exe file, Norton Security reported SONAR.Heuristic.170 was found and deleted the file.
I scanned my Excel project file but no virus was reported.
Anyone facing the similar issues?
I tested my compiled workbook on different machines with different configurations to see how it behaves. The workbook works well on most of testing machines, one failed. That’s ok to me since the failure is just because the machine is missing some components, BUT the there is an issue happened with the VBA compiler where I saved my secret strings to tie the DLL module into the compiled workbook - the debugger of the XLSPadlock VBA compiler kicked in and exposed all my secret strings in plain texts though I had tried to hide them by using some old tricks ie. using CHR() function to replace the strings combined with whatever encryption techniques. Please see attached screenshot.
The debugging information is helpful as it helps to pin down where the errors are, BUT I really don’t want it to show the STACK CONTENT as it fails the security of my workbook.
Is there anyway to prevent the stack content from showing up, And/Or totally turn off the debugger?
By the way, I really want to have an extra security layer by using the dongle as mentioned in my earlier post. Please let me know when it is available as my project is being stuck at this point.
I’ve been struggling with this for a long time and wondered if anyone else has come up with a solution? Basically I am trying to save a new file using VBA but want it to be saved in the same file as the original exe file. In a standard Excel file the following code works: -
Dim Fnme As String
With ThisWorkbook
Fnme = Left(.FullName, InStr(.FullName, “.”) - 1) & _
"_" & Format(Now, “dd mmm yyyy_hh_mm_ss”) & " SUBMISSION" & ".xlsx"
End With
At one stage I think the following worked in an XLSPadlock protected file but it no longer does: -
With ThisWorkbook
Dim Fnme as String
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
PathToFile = XLSPadlock.PLEvalVar(“EXEPath”) & Filename
Fnme = Left(.PathToFile, InStr(.PathToFile, “.”) - 1) & _
"_" & Format(Now, “dd mmm yyyy_hh_mm_ss”) & " SUBMISSION" & ".xlsx"
End With
Has anyone managed to get something similar to work? Any help would be much appreciated.
XLS Padlock 2017.0 brings support for recent Windows 10 (Falls Creator) and Excel updates, and much more. Upgrade is strongly recommended for registered users with an active maintenance.
What’s new
Improved support for Windows 10 Falls Creator Update (version 1709).
Improved compatibility with Excel 2016 click-to-run (version 1710) and Excel 2013 click-to-run editions.
Fixed slow loading of protected Excel workbooks on some computers.
.DAT and auto-save files are no more created in the same folder as the EXE file by default. There is also a new advanced option to keep this behavior if you want.
“Assign macro” is now disabled if you don’t allow access to VBE.
New advanced option: Do not disable Protect/Unprotect Sheet menu.
New translation .SIL files available in Slovenian and Croatian.
New VBA helper code to retrieve XLS Padlock System ID from VBA.
New advanced option to disable display of debugging information in case of runtime errors detected by the VBA compiler.
New VBA helper code to allow other Excel instances to access secure workbook and companion files (see user guide).
Improved support for High DPI screens and multi-monitors.
Fixed: right click was sometimes no more working on worksheet tabs.
Fixed: sometimes, license files could not be created.
Fixed: validation could wrongly expire keys with a given number of runs.
Updated user guide (added new sections about using arrays and error handling in VBA compiler, new VBA code extensions…)
Updated core components.
Minor improvements.
XLS Padlock is software for protecting your Excel workbooks, VBA code and formulas.
XLS Padlock works as an Excel compiler that allows you to turn your Excel workbooks into secure applications (XLS to EXE). A lot of security options and customization possibilities. Learn more about our Excel workbook protection software.
The macro below copy data from the 2nd workbook opened and paste in the 1st workbook opened.
Because the 1st workbook is now an .exe file the macro is not working.
How can I fix the macro, considering Workbooks(1) is now .exe file?
Sub TransferData()
Workbooks(1).Sheets(“Logbook”).Range(“A11:C367”).Value = Workbooks(2).Sheets(“Logbook”).Range(“A11:C367”).Value
End Sub
Support just a stupid question but I want the correct way. On your new releases what are the correct way. Example -first uninstall version 3.0 then run 2017’s setup or can you jump and simply run 2017 upgrade without uninstalling the old version. Please can you just clarify that.Will your software automatically uninstall the old version ?
How can you allow only a certain range to be protected but then a certain part can be edited. See below. In the exe to be compiled this is the settings -this overwrite excel protection
The red columns I would like to protect and only allow the orange columns to be updated -how can I achieve this on the compiled file. Formula protection only protect formulas -in my case I want to block any amendmend of the red columns data only allowing the orange ranges to be edited in excel.Can this be done support ??? Keep in mind my save settings above
I see XLS Padlock has an integration with WooCommerce, but haven’t seen any information about Wix.
My website have been built with Wix and I am wondering how can I sell my XLS Padlock spreadsheet using my Wix website.
Perhaps XLS Padlock Activation Kit can be used? I haven’t purchased my XLS Padlock yet, I just want to be sure it will work, and looks like all information about the Activation Kit is in a page only available for registered customers.
Could you please provide more info on the Activation Kit and if it is possible to add to a Wix website?
Can you please explain how to come past the way to get the clients hardware SysID key for the hardware locked keys…Currently you ask them for the key but this is too much manual work…is there a way to automate this process ? You need a way to pass that sysID key to a csv file…then that csv must be imported into Woocommerce.I just want to find out if you are working on a way to automate this process.Documentation are quite scarce on this -hope you can give an idea how we can achieve and automate this process
I have an Ocx file as a companion file I need to register on 32bit and 64bit windows.Do you have a tutorial the showcase of registering the ocx file for all versions of Excel ?
