Connect Form Control Button with Public Function

[The_Steward]

I need to understand how to connect a form control button to a public function. I am attempting to create a button for users to 'save as' an exe file that can only be opened by a specific application.

I am still learning VBA and trying to use a public function for the first time. I have spent some time going through posts and trying to put the pieces together but just still don't understand how to make it work.

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

Any help or suggestions are very welcome.

 

[Micron]

Application.COMAddIns is the collection of add-ins. Why would you be trying to save that or any of its members as a file?

 

[The_Steward]

Application.COMAddIns is the collection of add-ins. Why would you be trying to save that or any of its members as a file?

Because the add in "GXLS.GXLSPLock" creates an exe application that saves files as XLSCE and can only be opened using the application created by the add in

I had created this sub which saves files as XLSCE but it wasn't linked to add in so didn't work.

Sub CommandButton1_Click()
Dim fName As Variant
fName = Application.GetSaveAsFilename(, fileFilter:="Excel Files (*.xlsce), *.xlsce", Title:="Save As")
If fName = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=fName
End Sub

 

[Micron]

Sorry, no idea what to do to accomplish what you're trying to do.