Senha 3 tentativas

Senha com 3 Tentativas

 

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

 

 

 

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

 

 

 

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

 

 

 

A janela do VBA será aberta.

 

 

 

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.

 

 

 

 

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

 

 

 

Automaticamente aparecerá o 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

 

Feche o Visual Basic Editor.

 

Salve o arquivo.

 

Feche o arquivo e abra novamente.

 

Ao iniciar um inputbox, solicitará a senha

 

 

 

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

 

 

 

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