Excel planiha vba acesso vbe senha tecla alt f11

Seg, 27 de Junho de 2011 17:19 Expedito Marcondes
Imprimir

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

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