Cómo eliminar la advertencia del Inspector de documentos en Excel

Cómo eliminar la advertencia del Inspector de documentos en Excel

Estoy ejecutando scripts VBA en una serie de archivos de tipo XLSM. Mientras intento automatizar mis procesos, esta advertencia sobre el Inspector de documentos me detiene, lo que significa que tengo que hacer clic en Aceptar para cada archivo.

¿Existe algún script que pueda ejecutar en mis archivos con anticipación, o incrustar uno en mi código, que elimine esta advertencia?


Mensaje de advertencia

Error del inspector de documentos

¡Ten cuidado! Partes de su documento pueden incluir información personal que el inspector de documentos no puede eliminar.

Respuesta1

Posibles soluciones al "¡Ten cuidado! Partes de su documento pueden incluir información personal que el inspector de documentos no puede eliminar." mensaje de advertencia.

Para eliminarinspector de documentosadvertencia enexcel 2016oexcel 2013puedes comprobar dos cosas

  • Ir aArchivoen la esquina superior izquierda,
  • entoncesOpciones > Centro de confianza > Configuración del Centro de confianza > Opciones de privacidad
  • entoncesdesmarcarla casilla de verificación que dice "Eliminar información personal de las propiedades del archivo al guardar",
  • luego golpeaDE ACUERDO.

Fuente

O

  • Ir aArchivo > Información
  • y haga clic en "Permita que esta información se guarde en su archivo".

La próxima vez que guardes no debería haber más advertencias.

Fuente

Respuesta2

Mi solución

En lugar de desactivar elinspector de documentoslo cual parece difícil de hacer en VB, simplemente estoy bloqueando el mensaje. Realmente no me importa el archivo fuente, solo quiero copiar datos sin problemas para que esto funcione bien en mi caso.

Al agregar este código al inicio de mi código, ya no obtengo elinspector de documentosadvertencia:

'Disable privacy settings warning
Application.DisplayAlerts = False

Respuesta3

abra el documento> alt+f11> Módulo Thisworkbook ingrese esto:

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

información relacionada