SaveCopyAs with new filename from two cells

[jarzack]

I'm still new to learning VBA.

I have a SharePoint that will hold an Excel template. I want to force a user to use SaveCopyAs instead of Save As. I would like for the new filename to come from cells J3, J9 and have a - as a separator. Any suggestions?

Thanks in advance!

 

[KOKOSEK]

Hmm. Theoretically user can always SaveAs if he wants. Until you do not block it in some way (VBA doable but on sharepoint? I am too familiar with scripts).
Saving with new filename from based on cells values is not a problem:

Something like:

Sub SlaintheMhath()

Dim FPath As String, FName As String

    FPath = "C:\Users\UserName\MyFolderSynchronisedWithShareDrive\"    ' User has to have synchronised folder with sharepoint folder

    FName = Range("J3").Value & " " & Range("J9").Value & ".xlsm"

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveCopyAs Filename:=FPath & FName

    Application.DisplayAlerts = True

End Sub