Home Excel - Dicas Microsoft Excel VBA Excel VBA - Senhas Excel planilha vba senhas inputbox para acessar planilha

Excel planilha vba senhas inputbox para acessar planilha

E-mail Imprimir PDF

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

Essa macros e procedimentos do Aplicativo Microsoft Excel VBA (Visual Basic Application), solicita uma senha por meio de uma inputbox (entrada de dados) quando o usuário tentar acessar determinada folha de planilha no livro, ocultando todas as linhas da folha de planilha, impedindo a visualização da mesma até que digite corretamente a senha.

Private Sub Worksheet_Activate()

 sbx = InputBox("Digite sua senha('1') para acessar a planilha", "Saberexcel - o site das macros")
   If sbx = "1" Then
      Saber1.Unprotect Password:="1"
      Saber1.Cells.EntireColumn.Hidden = False
  
Else
      MsgBox "Digitou a senha errada, tente novamente!", vbInformation, "Saberexcel - site das macros"
      Saber3.Select
  
End If
  
End Sub


Private Sub Worksheet_Deactivate()
  
On Error Resume Next
   Saber1.Cells.EntireColumn.Hidden = True
   Saber1.Protect Password:="1"
End Sub

 

COMPLEMENTO DOS CÓDIGOS PARA AUXILIAR NO TESTE DA PLANILHA.
Essa macro do aplicativo microsoft excel vba deleta linhas baseados em critério que são as linhas vazias nas colunas (F), (G), (H).
Observe que o loop (for next) verifica células vazias nas coluna(F,G,H) e deletam as linhas correspondentes. bem simples.

Sub Deletar_Linhas_Celulas_Branco()
    MsgBox ("Linhas onde houver células em branco na coluna(F:G:H) serão DELETADAS!!!!")
    vUltimaLinha = Cells.SpecialCells(xlLastCell).Row
    
    For i = vUltimaLinha To 1 Step -1
         '-----------'
         If Cells( , "F").Value = "" Then Rows().Delete
         If Cells(, "G").Value = "" Then Rows().Delete
         If Cells(, "H").Value = "" Then Rows().Delete
         '-----------'
    Next i
    
End Sub

Macro auxiliar para reazliação do teste na folha de planilha com senhas  ----
observe que essa macro copia dados em uma coluna e cola em outra planilha, tentei simplificar ao máximo,
para um melhor entendimento do Excel VBA.
Nos 
MÓDULOS - COMO FAZER - Programação Microsoft Excel VBA - Saberexcel  apresento tipo de programação bem simplificada e fácil

Sub copiar_colar_teste()
  Saber2.[A1:Q25].Copy Saber1.[A1]
End Sub

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





  Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba senhas inputbox para acessar planilha (28.8 KB)

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

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_counterHoje3909
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23415
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37144
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10459973
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