|
 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
Publicidade
Compre com segurança, garantia e ótimos preços
|