|
Hallo,
ich bin auf der Suche nach einem VBA Code, welches alle Powerquery-Abfragen und Verbindungen sowie vorhandene Powerquery-Modelle einer Arbeitsmappe löscht oder alternativ alle Daten aus dem Powerquery-Modell entfernt.
Hintergrund ist, dass die Empfänger der Arbeitsmappe keinen Zugriff auf die im PowerQuery enthaltenen Informationen, erhalten dürfen.
Über Chat GPT bin ich auf folgenden Code gestoßen:
_
Sub DeletePowerQueryDataModel()
Dim wb As Workbook
Dim mdl As Model
Set wb = ThisWorkbook
Set mdl = wb.Model
If Not mdl Is Nothing Then
mdl.DataModelConnection.Delete
End If
End Sub
_
Leider führt der Code zu folgenden Fehler: "Laufzeitfehler '5': Ungültiger Prozeduraufruf oder ungültiges Argument
Da ich nur rudimentäre VBA-Kenntnisse habe und bei der Suche im Internet nichts Hilfreiches finden konnte, hoffe ich auf eure Unterstützung.
Auch zu Hinweise über ähnliche Beiträgen wäre ich sehr dankbar.
Ich verwende Office 365 auf einem Windows 64bit System.
Viele Grüße,
Kai
|