Senha com 3 Tentativas

 

Nesse exemplo temos um arquivo padrão com apenas uma informação na 1º planilha.

 

 

senha001

 

Salvaremos o arquivo como: 3tentativas lembrando de salvar como Pasta de Trabalho Habilitada para Macro do Excel.

 

 

senha002

 

Precisamos acessar o Visual Basic Editor, para digitarmos o código da macro, que irá relacionar as planilhas. Para tanto podemos pressionar as teclas Alt + F11, ou usar o comando

 

 

senha003

 

A janela do VBA será aberta.

 

 

senha004

 

Vamos inserir a macro na pasta de trabalho, para que a macro seja executada ao iniciar o arquivo. Clique 2 vezes sobre essa pasta de trabalho.

 

 

senha005

 


 

Ao iniciar o modulo da pasta, altere de Geral para Workbook.

 

 

senha006

 

Automaticamente aparecerá o código

 

 

senha007

 

Onde está o cursor, vamos inserir o seguinte código:

 

 

‘Criação de Variáveis

   

    ‘cont é a variável que contará a quantidade de tentativas

    Dim cont As Integer

    ‘quant é a quantidade

    Dim quant As Integer

    ‘variável para senha

    Dim senha As String

   

‘quantas vezes poderá tentar

quant = 3

 

‘cont contará apartir de zero

cont = 0

 

‘volta para tentar mais uma vez

volta:

 

‘Permite que o usuário digite a senha

senha = InputBox(“Digite a senha”)

 

‘Caso a senha esteja certa uma mensagem será apresentada

If senha = “123” Then

MsgBox “Seja bem vindo”

 

‘senão

Else

cont = cont + 1

 

‘se o numero de tentativas alcançar a quantidade permitida

If cont >= quant Then

 

‘o arquivo será fechado sem salvar

ActiveWorkbook.Close SaveChanges:=False

End

 

‘senão mostra a mensagem de quantidadades de tentaivas

Else

MsgBox “Você tem ” & quant – cont & ” tentativa(s)”, , “Atenção”

 

‘se estiver errado pode tentar mais uma vez

GoTo volta

 

End If

End If

 

Feche o Visual Basic Editor.

 

Salve o arquivo.

 

Feche o arquivo e abra novamente.

 

Ao iniciar um inputbox, solicitará a senha

 

 

senha0082

 

Se a senha estiver errada, um msgbox informará o erro.

 

 

senha009

 

Você poderá tentar mais 2 vezes, senão o arquivo será fechado sem salvar.

Comentários
Fabio Vianna
Siga-Me

Fabio Vianna

Modela planilhas deste 1994 e ministra treinamentos desde 1997.
Especialista em Modelagem Profissional de Planilhas, incluindo Dashboards no Excel.
Fabio Vianna
Siga-Me

Últimos posts por Fabio Vianna (exibir todos)

Receba nossa Agenda

Cadastre-se para receber nossa agenda de treinamentos.

Obrigado :)