Hallo zusammen,
ist der folgende Code für Speichern unter richtig?
Private Sub Image59_Click() 'Speichern unter Button
Dim filesavename As Variant
If MsgBox(prompt:="Close without saving?", Buttons:=vbYesNo + vbQuestion) _
= vbNo Then
'++++++++++++++++++++++++++++++++++++++BEI NO
filesavename = Application.GetSaveAsFilename( _
fileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
If filesavename False Then
ActiveWorkbook.SaveAs filesavename
Application.ActiveWorkbook.Close 'Schliest nur Rechnungs-Datei, lässt andere offen
End If
End If
'++++++++++++++++++++++++++++++++++++++BEI YES
ThisWorkbook.Close SaveChanges:=False
Exit Sub
Wenn ich mit diesem Code speichern unter mache, kann ich bei der neu entstandenen Datei keine Makros
ausführen?!
Vielen dank für jede Art von Hilfe
MfG Patrick