☰

So entfernen Sie die Dokumentinspektor-Warnung in Excel

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2016
So entfernen Sie die Dokumentinspektor-Warnung in Excel

Ich führe VBA-Skripte für eine Reihe von Dateien des Typs XLSM aus. Während ich versuche, meine Prozesse zu automatisieren, werde ich durch diese Warnung zum Dokumentinspektor aufgehalten, was bedeutet, dass ich für jede Datei auf „OK“ klicken muss.

Gibt es ein Skript, das ich vorab für meine Dateien ausführen oder in meinen Code einbetten kann, um diese Warnung zu entfernen?

Warnmeldung

Fehler im Dokumentinspektor

Seien Sie vorsichtig! Teile Ihres Dokuments können persönliche Informationen enthalten, die vom Dokumentinspektor nicht entfernt werden können.

Antwort1

Mögliche Lösungen für das „Seien Sie vorsichtig! Teile Ihres Dokuments können persönliche Informationen enthalten, die vom Dokumentinspektor nicht entfernt werden können." Warnmeldung.

Zu entfernenDokumentinspektorWarnung inExcel 2016oderExcel 2013Sie können zwei Dinge überprüfen

  • Gehe zuDateiin der oberen linken Ecke,
  • DannOptionen > Trust Center > Trust Center-Einstellungen > Datenschutzoptionen
  • DannHäkchen entfernendas Kontrollkästchen "Beim Speichern persönliche Informationen aus den Dateieigenschaften entfernen",
  • dann drückeOK.

Quelle

Oder

  • Gehe zuDatei > Informationen
  • und klicken Sie auf "Erlauben Sie die Speicherung dieser Informationen in Ihrer Datei".

Beim nächsten Speichern sollte keine Warnung mehr erscheinen.

Quelle

Antwort2

Meine Lösung

Anstatt dieDokumentinspektorwas in VB schwierig zu machen scheint, ich blockiere nur die Nachricht selbst. Die Quelldatei ist mir eigentlich egal, ich möchte nur nahtlos Daten daraus kopieren, also wird das in meinem Fall problemlos funktionieren.

Wenn ich diesen Code an den Anfang meines Codes anfüge, erhalte ich nicht mehr dieDokumentinspektorWarnung:

'Disable privacy settings warning
Application.DisplayAlerts = False

Antwort3

Öffnen Sie das Dokument > Alt+F11 > Modul Thisworkbook und geben Sie Folgendes ein:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Application.DisplayAlerts = True
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.DisplayAlerts = False
End Sub

verwandte Informationen