Excel planiha vba senha inputbox constant var acesso planilha

Qua, 23 de Fevereiro de 2011 06:06 Expedito Marcondes
Imprimir

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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



  Baixe o exemplo de Planilha contendo a macro acima
Excel vba senhas inputbox constant var acesso planilha (26.17 KB)

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