| Descricao: |
 Saberexcel - site das macros
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), auxiliada por uma entrada de dados(inputbox), solicita uma senha ao usuário para acessar determinada Folha de Planilha no Livro.
Observe que usamos uma constante sbx, que poderá ser usada em todo o projeto vba, pra proteger e desproteger as folhas de planilhas.
Espero que o exemplo seja útil. Fiquem com Deus, E_Marcondes
Public Const sbx As String = "saber"
Sub Senha_Entrada()
ab = Application.InputBox("Digite a Senha para acessar a planilha(Plan2) .", "SENHA DE ENTRADA - 'saber' ", Type:=2)
If ab <> sbx Then
MsgBox ("Digitou a Senha Errada! - Senha é 'saber'"), vbCritical, "Saberexcel"
'insira algo aqui, ou apenas feche o livro,
Exit Sub
Else
MsgBox ("Seja bem vindo"), vbInformation, "Saberexcel"
Plan2.Visible = True
Plan2.Select
End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel
|