Block SaveAs Panel in Excel 2013

Question

Hi All,
I have used the following script for several years now, but on porting something across to Excel 2013 it no longer works as desired and the SaveAs Panel opens regardless.
The script I use is:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strMsgBoxTitle As String
Dim strMsgBoxBody As String
Dim vbvMsgBoxStyle As VbMsgBoxStyle
Dim vbvMsgBoxResult As VbMsgBoxResult
If UserClass = 3 Then
strMsgBoxTitle = "ProjectCalc"
strMsgBoxBody = "Save as new version?"
vbvMsgBoxStyle = vbYesNo + vbQuestion + vbDefaultButton2
vbvMsgBoxResult = MsgBox(strMsgBoxBody, vbvMsgBoxStyle, strMsgBoxTitle)
If vbvMsgBoxResult = vbYes Then
Application.Run "ResetForNewVersion"
Else
GoTo SaveProject
End If
Else
GoTo SaveProject
End If
Exit Sub
SaveProject:
ThisWorkbook.Saved = True
Cancel = True
Application.Run "SaveProject", 1
End Sub
Before the MsgBox appears, the SaveAs panel now opens in 2013 as per the screen grab below.  It makes no difference if I move the "Cancel = True" to the top or even pull the SaveAsUI = False command out of the "SaveProject" Sub and
put this as line one in this sub either.  The SaveAs Panel still opens.
This is a file that's opened from a template ".XLTM"
Once you select any random location to save, the scripts take over and takes the user to the correct directory regardless of what they choose, so they end up wasting time browsing through to a directory only then to find that the system has
taken them somewhere else regardless.
I've searched here for the solution, I've Googled for the solution and everyone is using the solution I already have in place.  Only it no longer works as the panel appears to activate before the BeforeSave function.
Help please!

Answer 1

Hi Antony,
I can reproduce this issue in *.xltm file by using the code you post. Based on my understanding, the end user will usually use the ".xlsm" file, and as I tested, this issue did not exist in the ".xlsm" file. So I think you could use ".xlsm"
file as a quick workaround.
Sorry for the inconvenience and thanks for your understanding.
​Best Regards,
Edward
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.