☰

Como remover o aviso do Inspetor de Documentos no Excel

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2016
Como remover o aviso do Inspetor de Documentos no Excel

Estou executando scripts VBA em uma série de arquivos do tipo XLSM. Enquanto tento automatizar meus processos, sou interrompido por este aviso sobre o Inspetor de Documentos, o que significa que preciso clicar em OK para cada arquivo.

Existe um script que eu possa executar em meus arquivos antecipadamente ou incorporar um em meu código que removerá esse aviso?

Mensagem de aviso

Erro do Inspetor de Documentos

Tome cuidado! Partes do seu documento podem incluir informações pessoais que não podem ser removidas pelo Inspetor de Documentos.

Responder1

Possíveis soluções para o "Tome cuidado! Partes do seu documento podem incluir informações pessoais que não podem ser removidas pelo Inspetor de Documentos." mensagem de aviso.

RemoverInspetor de Documentosaviso emExcel 2016ouExcel 2013você pode verificar duas coisas

  • Vá paraArquivono canto superior esquerdo,
  • entãoOpções > Central de confiabilidade > Configurações da central de confiabilidade > Opções de privacidade
  • entãodesmarcara caixa de seleção que diz "Remova informações pessoais das propriedades do arquivo ao salvar",
  • então bataOK.

Fonte

Ou

  • Vá paraArquivo > Informações
  • e clique em "Permitir que essas informações sejam salvas em seu arquivo".

Na próxima vez que você salvar, não haverá mais aviso.

Fonte

Responder2

Minha solução

Em vez de desabilitar oInspetor de Documentoso que parece difícil de fazer em VB, estou apenas bloqueando a própria mensagem. Eu realmente não me importo com o arquivo de origem, só quero copiar os dados deles perfeitamente, para que isso funcione perfeitamente no meu caso.

Ao adicionar este código ao início do meu código, não recebo mais oInspetor de Documentosaviso:

'Disable privacy settings warning
Application.DisplayAlerts = False

Responder3

abra o documento > alt+f11 > Módulo Este livro de trabalho e insira isto:

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

informação relacionada