none
Macro para detectar anti virus instalado no PC RRS feed

  • Pergunta

  • 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.

    quarta-feira, 14 de outubro de 2015 19:28

Respostas

  • 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

    • Marcado como Resposta Josué B segunda-feira, 19 de outubro de 2015 01:48
    quarta-feira, 14 de outubro de 2015 20:47

Todas as Respostas

  • 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

    • Marcado como Resposta Josué B segunda-feira, 19 de outubro de 2015 01:48
    quarta-feira, 14 de outubro de 2015 20:47
  • 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.
    segunda-feira, 19 de outubro de 2015 01:52