Home Excel - Dicas Microsoft Excel VBA Excel VBA - Senhas Excel planilha vba senha proteger desproteger registrando

Excel planilha vba senha proteger desproteger registrando

E-mail Imprimir PDF

SaberExcel o site das Macros

Esses Macros e procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), protege todas as folhas de planilhas na abertura do livro com uma senha pré-definida por uma variável, quando o usuário for desproteger as folhas de planilhas, por meio de uma entrada de dados(inputbox)
se digitar a senha errado, insere na folha de planilha o horario, senha digitada e mensagem de frustração de tentativa, se for a senha verdadeira,
insere (****) e emite a mensagem seja bem vindo.  Espero que o exemplo seja útil. Fique com Deus, E_Marcondes
(*)  - no final da página faça o download do exemplo.


EM UM MÓDULO COMUM (STANDARD) INSIRA O MACRO:
'Excel protecão definido usando UserInterface para macro permitir trabalhos na folha de planilha

Sub proteger_planilhas()
Dim vPlanilhas As Worksheet
Dim vSenha As String
 
 vSenha = "saber"

 For Each vPlanilhas In ActiveWorkbook.Sheets
   Acesso Livre AO EXEMPLO E AOS CODIGOS  - Registrados (REGISTRE-SE!) 
    Next vPlanilhas
End Sub

  

NO MÓDULO DE EDIÇÃO DA FOLHA DE CÓDIGO  DO OBJETO FOLHA DE PLANILHA INSIRA O PROCEDIMENTO:

Private Sub cmbDESPROTEGER_Click()
proteger_planilhas
Dim vAcesso As String
 vAcesso = InputBox("Ente com sua senha [saber]", "Desproteger todas as folhas de planilha")
 
  If vAcesso = "saber" Then
    Acesso Livre AO EXEMPLO E AOS CODIGOS  - Registrados (REGISTRE-SE!) 
 End If
 
End Sub

 

'exemplo de Move Mouse.
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Resposta As String
Resposta = MsgBox("Deseja conectar com nosso site ?", vbYesNo + vbQuestion, "Saberexcel - site das macros")
If Resposta = vbYes Then
   ThisWorkbook.FollowHyperlink "
http://www.saberexcel.com/", , True
End If
End Sub


NO MÓDULO DE EDIÇÃO DA FOLHA DE CÓDIGO DA FOLHA DO OBJETO WORKBOOK(LIVRO) INSIRA O PROCEDIMENTO:

Private Sub Workbook_Open()
proteger_planilhas
End Sub




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




       Acesso Livre - Registrados (REGISTRE-SE!)
  Baixe o exemplo de planilha contendo os procedimentos e e macros acima
Excel planilha vba senha proteger desproteger registrando (66.65 KB)


Publicidade
Compre com segurança, garantia e ótimos preços

Eletrônicos - Submarino.com.br

Última atualização em Ter, 23 de Agosto de 2011 08:40  

Comentários  

 
# 13/03/2011 10:30
Excelente exemplo, fantástico, me serviu muito bem. Obrigado e Parabéns pelo site, que é ótimo, na minha opinião o melhor site de excel existente.
Mário - Florianóplis(SC )
Responder | Responder com citação | Citação
 

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_counterHoje3987
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23493
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37222
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460051
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