Macro para detectar anti virus instalado no PC

Question

Ao rodar a macro para salvar a pasta de trabalho este anti-vírus da microsoft essentials esta impedindo de salvar.

Então queria uma macro no evento Private Sub Workbook_Open() para detectar se esta instalado no computador o anti vírus para emitir uma mensagem de alerta?

Obrigado.

Answer 1

Olá Josué,

Uma idéia seria verificar se o arquivo executável ou até mesmo a pasta deste antivírus está instalada no computador.

Utilize a função abaixo adaptando para a sua necessidade.

Sub Verifica_Arquivo()

Dim strPath As Variant

‘Arquivo que verificaremos
strPath = “C:\Users\PC\Documents\abc.txt”
If Dir(strPath) = vbNullString Then
strCheck = False
Else
strCheck = True
End If

If strCheck Then

Mensagem = MsgBox(“O arquivo: ‘” & strPath & “‘ foi encontrado!”, vbInformation)
‘Bloco de ação da Rotina caso o arquivo exista.

Else

Mensagem = MsgBox(“O arquivo: ‘” & strPath & “‘ não foi encontrado!”, vbCritical)
‘Bloco de ação da Rotina caso o arquivo não exista.

End If

End Sub

Answer 2

Desculpe-me pela demora em responder, só agora conseguir resolver adaptando o código para encontrar a pasta do antivírus. muito obrigado André. Resolvido.