Excel另存为对话框

Question

我有代码以具有默认名称，并为其添加时间戳。 那很好。 现在，我正在尝试创建一个另存为对话框，该对话框会弹出以允许用户查看新文件名并编辑路径以保存它。 在下面的第2部分中给我一个错误：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim sFileName As String
Dim sDateTime As String
Dim txtFileName As String

'0. Set new filename with timestamp.
With ThisWorkbook
    sDateTime = " (" & Format(Now, "yyyy-mm-dd hhmm") & ").xlsm"
    sFileName = "2018 Testy" & sDateTime

'1. Check of Save As was used.
If SaveAsUI = True Then
    Cancel = True

  '2. Call up your own dialog box.  Cancel out if user Cancels in the dialog box.
   txtFileName = Application.GetSaveAsFilename(sFileName, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm", , "Save As XLSM file")
    If txtFileName = "False" Then
        MsgBox "Action Cancelled", vbOKOnly
        Cancel = True
        Exit Sub
    End If

  '3. Save the file.
   Application.EnableEvents = False
    ThisWorkbook.SaveAs FileName:=txtFileName, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Application.EnableEvents = True

End If

End Sub