Home Excel - Dicas Microsoft Excel VBA Excel VBA - VBE Excel planiha vba acesso vbe senha tecla alt f11

Excel planiha vba acesso vbe senha tecla alt f11

E-mail Imprimir PDF

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

Esses procedimerntos e macros do Aplicativo Microsoft Excel VBA, habilita e ou desabilita a tecla Alt+ F11, chamando uma outra macro que neste caso abre um formulário e pede uma senha para o acesso ao Módulo de Edição do VBA que é o VBE(visual Basic Editor).
-' os procedimentos estão ligados aos Eventos Workbook_SheetActivate (habilita as teclas) ao selecionar qualquer folha de planilha
e ou na abertura do livro. também ha uns botões para ativar e desativar as teclas para melhor entendimento do exemplo.
Espero que o exemplo passa ajudá-los. Fiquem com Deus, Expedito Marcondes

MACROS E PROCEDIMENTOS DESSE LIVRO
NO MÓDULO DE EDIÇÃO DO OBJETO WORKBOOK ...
'AO ABRIR O LIVRO HABILITARÁ A TECLA F11 COM OS PROCEDIMENTOS
Private Sub Workbook_Open()
Application.OnKey ("%{F11}"), "abrir_userform"
End Sub

'AO SELECIONAR QUALQUER FOLHA DE PLANILHA - HABILITARÁ A TECLA F11 COM OS PROCEDIMENTOS
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey ("%{F11}"), "abrir_userform"
End Sub
'-------------------------------------'
NO MODULO COMUM (STANDARD)
Sub habilitar_tecla()
Application.OnKey ("%{F11}"), "abrir_userform"
End Sub

Sub abrir_userform()

UserForm1.Show
End Sub

Sub ver_codigo()
SendKeys ("%{F11}")
End Sub

Sub desabilitar_tecla_f11()
Application.OnKey ("%{F11}")
End Sub
'-------------------------------------'
NO MODULO DE EDICAO DE CÓDIGO DO OBJETO USERFORM

Private Sub CommandButton1_Click()
'Application.OnKey ("%{F11}"), "permissao_negada" 'linha de código nao usada, somente como chamar um macro com a Funcão Onkey
UserTypedPassword = UserForm1.TextBox1.Text
If LCase(UserTypedPassword) = "entrar" Then
Unload Me
Application.OnKey ("%{F11}")
MsgBox ("Benvindo ao VBE"), vbInformation, "Saberexcel - o site das macros"
ver_codigo
Else
Beep
MsgBox ("Senha Incorreta - Acesso ao VBE"), vbCritical, "Vc nao tem autorização"
Application.OnKey ("%{F11}"), "abrir_userform"   'ao teclar Alt + F11 - chamará o userform (pedindo a senha) para acesso ao VBE.
UserForm1.TextBox1.SetFocus
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub




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




  Baixe o exemplo de planilha contendo os macros e procedimentos acima
Excel planiha vba acesso vbe senha tecla alt f11 (73.1 KB)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Última atualização em Sex, 26 de Agosto de 2011 08:53  

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_counterHoje4899
mod_vvisit_counterOntem4316
mod_vvisit_counterEsta Semana19346
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês33075
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10455904
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