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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Expedito ,gostaria de parabenizar ,pelo bom atendimento e pela atenção que você teve comigo. As suas planilhas são mesmos fantásticas. Obrigado,e que Deus te abençoes....

Cirano Bispo
22 December 2012
Parabéns pelos produtos didáticos, gostei muito do curso completo ms excel vba, hoje estou praticando com macros, aprendi muito. Obrigado. Osvaldo São Paulo....

Osvaldo Oliveira
16 November 2011

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