VBA: Umbenennen eines kopierten Arbeitsblatt

Question

ich diese Codezeile haben, dass ein Arbeitsblatt in eine neue Arbeitsmappe kopiert:

OrderForm.Copy ' copy worksheet to new workbook 

Die neue Arbeitsmappe zeigt sich als Buch n .xlsx:

---

Beim Speichern das ist, was oben zeigt:

I Es ist in Ordnung, wenn es als Buch n auf der Titelleiste angezeigt wird und ich möchte es nicht automatisch speichern, aber was ich möchte, ist ein Standardname (auch standardmäßig .xlsx), wenn der Benutzer beschließt zu speichern es, wie folgt aus:

Answer 1

Verwenden sie das Ereignis Before den Benutzer Einsparung zu erfassen, dann einen eigenen Dialog mit einem Anfangswert zeigen (wie so):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Dim fName As String 

    Cancel = True 

    fName = Application.GetSaveAsFilename("Default Name", _ 
     "Excel Workbook (*.xlsx), *.xlsx," & _ 
     "Macro Enabled Workbook (*.xlsm), *xlsm") 
    ThisWorkbook.SaveAs fName 
End Sub