|
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
|