Speichern ohne Makros & Verlinkungen
21.03.2019 15:14:47
Al
ich habe mir ein Makro zusammengebaut, mit dem ich eine Exceldatei ausgeben möchte ohne Makros & Verlinkungen. Ich wollte in Erfahrung bringen, ob die folgenden Erweiterungen möglich sind:
1. Es sollen bestimmte Tabellenblätter (Daten und dok_verz) noch gelöscht werden.
2. Das Löschen der shapes & der Verlinkungen soll sich nur auf das Tabellenblatt "ONSHORE" beschränken.
Code:
Sub Augabe()
MsgBox "Gespeichert im selben Verzeichnis, ohne Makro & Verlinkungen"
Dim wb As Workbook, ws As Worksheet, sh As Shape
Set wb = Workbooks.Add(xlWBATWorksheet)
wb.Sheets(1).Name = "deleteMe"
For Each ws In ThisWorkbook.Worksheets
ws.Copy After:=wb.Sheets(wb.Sheets.Count)
Next
For Each Link In wb.LinkSources(xlLinkTypeExcelLinks)
wb.BreakLink Name:=Link, Type:=xlLinkTypeExcelLinks
Next
For Each ws In wb.Worksheets
ws.UsedRange.Formula = ws.UsedRange.Value
For Each sh In ws.Shapes
sh.Delete
Next
Next
Application.DisplayAlerts = False
wb.Sheets("deleteMe").Delete
wb.SaveAs Replace(ThisWorkbook.FullName, ".xlsm", "_" & ".xlsx"), xlOpenXMLWorkbook
' wb.SaveAs Replace(ThisWorkbook.FullName, ".xlsm", "_" & Format(Date, "yyyymmdd") & ".xlsx"), _
xlOpenXMLWorkbook
Application.DisplayAlerts = True
wb.Close False
End Sub
Danke für die Mühe.
Gruß
Al
Anzeige