Excel planilha vba senhas inputbox para acessar planilha

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(i , "F").Value = "" Then Rows(i ).Delete
         If Cells(i , "G").Value = "" Then Rows(i ).Delete
         If Cells(i , "H").Value = "" Then Rows(i ).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)

Tags: