Excel vba aplicativo mostra o nível de segurança das macros

Sex, 31 de Dezembro de 2010 10:10 Expedito Marcondes
Imprimir

Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA, mostra o nível de segurança atual no seu aplicativo MS Excel
 

Sub Teste_Nivel_Segurança()
  MsgBox Nivel_Seguranca
End Sub

 Function Nivel_Seguranca()
'para Excel 2000 et 2002,2003 a função retorna

' 1 -> nivel de segurança Baixo
' 2 -> nivel de segurança Médio
' 3 -> nivel de segurança Alto

Dim Cle2000$, Cle2002$, Cle2003$, WSH

 Cle2000 = "HKCU\Software\Microsoft\Office\9.0\Excel\Security\Level"
 Cle2002 = "HKCU\Software\Microsoft\Office\10.0\Excel\Security\Level"
 Cle2003 = "HKCU\Software\Microsoft\Office\11.0\Excel\Security\Level"

Set WSH = CreateObject(”WScript.Shell”)
Select Case Val(Application.Version)

Case 9
      Nivel_Seguranca = WSH.RegRead(Cle2000)
Case 10
      Nivel_Seguranca = WSH.RegRead(Cle2002)
Case 11
      Nivel_Seguranca = WSH.RegRead(Cle2003)
Case Else
      Nivel_Seguranca = "Versão d’Excel não conhecida "
End Select

End Function


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos SaberExcel

Tags:
Última atualização em Sáb, 13 de Agosto de 2011 17:20