Hilfe beim Speichern in eine alte Version
12.11.2014 11:24:06
Elmar
kann mir jemand sagen, wie ich das Makro ändern muss, wenn ich aus Excel 2010 heraus die Datei so erstellen lasse (klappt auch alles), sie soll aber nicht in der aktuellen 2010er Versin gespeichert / erstellt werden, sondern in der Version für Excel 2003, damit die User mit 2003 das auch öffnen können.
Wäre echt dankbar für eine schnelle Hilfe...
Grüße
Elmar
Sub Excel_Workbook_via_Outlook_Senden_Stuttgart()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String, wksMail As Worksheet
Set wksMail = Sheets("Stuttgart V") 'zu versendendes Blatt
AWS = Environ("USERPROFILE") & "\" & wksMail.Name & ".xls"
'temporäre Mappe erstellen
wksMail.Copy
With ActiveWorkbook
ActiveSheet.Protect Password:="Bavaria99", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True
' ActiveSheet.EnableSelection = xlUnlockedCells
.SaveAs AWS
.Close
End With
usw.