My app backup problem

Hello
I want to save my apllication via the macro vba, while allowing (at the opening of the application), to the end user to choose the backup he wants open.
Also that the end user can create new backups with different names.
To do this, I used the following codes in the user guide:

Public Service SaveSecureWorkbookToFile (File name as a channel)
Dim XLSPadlock as an object
On the GoTo Err Error
Set XLSPadlock - Application.COMAddIns (“GXLS. GXLSPLock”). Object
SaveSecureWorkbookToFile - XLSPadlock.SaveWorkbook
Exit from the function
Err:
SaveSecureWorkbookToFile
End function
Sub-Test_Save()
SaveSecureWorkbookToFile (“C:Folder-Nom.xlsc”)
End sub

And the second (to create new backups)
Public Service SetSecureWorkbookFilename (Filename As a Channel)
Dim XLSPadlock as an object
On the GoTo Err Error
Set XLSPadlock - Application.COMAddIns (“GXLS. GXLSPLock”). Object
XLSPadlock.SetdefaultSaveFilename (file name)
SetSecureWorkbookFilename - “OK”
Exit from the function
Err:
SetSecureWorkbookFilename - "
End function
Sub-Test_SetFilename()
SetSecureWorkbookFilename (“C:Folder-Nom.xlsc”)
End sub

All these codes work well, however I want the names of the different backups to be variable and contained in the A6 cell of the TOTO sheet (“TOTO”). A6]. Value)
Also I would like in the second code not to appear the window “to record under excel”.

Thank you for helping me if he braids you