Home Excel - Dicas Microsoft Excel VBA Excel VBA - Sistema Excel planilha vba testando nivel segurança vba

Excel planilha vba testando nivel segurança vba

E-mail Imprimir PDF

excel, vba, macros, nível, segurança, macros segurança, habilitar macros, nivel baixo, nível alto, nível médioSaberexcel - o site de quem precisa aprender macros MS excel VBA

Esses macros do aplicativo Microsoft Excel VBA, mostra o nível de segurança de suas macros ms excel vba.

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$, WSH
    Cle2000 = "HKCU \ Software \ Microsoft \ Office \ 9# \ Excel \ Security \ Level"""
    Cle2002 = "HKCU \ Software \ Microsoft \ Office \ 10# \ Excel \ Security \ Level"""
    Cle2003 = "HKCU \ Software \ Microsoft \ Office \ 11# \ 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 Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Última atualização em Dom, 27 de Novembro de 2011 09:31  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje4877
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana19924
mod_vvisit_counterSemana passada30982
mod_vvisit_counterEsse mês38112
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460941
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA