web-dev-qa-db-fra.com

Comment faire pour supprimer l'avertissement de l'inspecteur de document dans Excel

J'exécute des scripts VBA sur une série de fichiers de type XLSM. Pendant que j'essaie d'automatiser mes processus, cet avertissement sur l'Inspecteur des documents m'arrête, ce qui signifie que je dois cliquer sur OK pour chaque fichier.

Existe-t-il un script que je peux exécuter à l’avance sur mes fichiers ou en intégrer un dans mon code afin de supprimer cet avertissement?


Message d'alerte

Document Inspector error

Faites attention! Certaines parties de votre document peuvent contenir des informations personnelles qui ne peuvent pas être supprimées par l'inspecteur des documents.

6
Tess in Oz

Solutions potentielles au message d'avertissement " Soyez prudent! Certaines parties de votre document peuvent inclure des informations personnelles qui ne peuvent pas être supprimées par l'inspecteur de document.".

Pour supprimer Inspecteur des documentswarning dans Excel 2016ou Excel 2013vous pouvez vérifier deux choses

  • Allez dans Fichierdans le coin supérieur gauche,
  • puis Options> Centre de gestion de la confidentialité> Paramètres du Centre de gestion de la confidentialité> Options de confidentialité
  • puis décochez la case la case à cocher indiquant " Supprimez les informations personnelles des propriétés du fichier lors de l'enregistrement",
  • puis cliquez sur OK.

Source

Ou

  • Allez dans Fichier> Info
  • et cliquez sur " Autoriser l'enregistrement de ces informations dans votre fichier".

La prochaine fois que vous enregistrez, il ne devrait plus y avoir d'avertissement.

Source

6
Pimp Juice IT

Ma solution

Au lieu de désactiver l'inspecteur de documents , ce qui semble difficile à faire en VB, je bloque simplement le message. Je ne me soucie pas vraiment du fichier source, je veux simplement copier les données de manière transparente afin que cela fonctionne correctement dans mon cas.

En ajoutant ce code au début de mon code, je ne reçois plus l'avertissement Document Inspector :

'Disable privacy settings warning
Application.DisplayAlerts = False
1
Tess in Oz