Excel planilha vba sistema mostra o nivel de segurança das macros

Sáb, 27 de Novembro de 2010 19:44 Expedito Marcondes
Imprimir

 Saberexcel - o site de quem precisa aprender Macros Microsoft Excel VBA

Mostra o nível de segurança das macros

Saberexcel - dicas de Funções e Macros Microsoft Excel VBA


Esta macro retorna o nível de segurança atual no seu aplicativo Excel
conforme abaixo


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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel


 

Tags:
Última atualização em Ter, 23 de Agosto de 2011 08:53