Bom dia galera!

Pessoal, alguém sabe como resolver a questão abaixo?

Ao abrir a Planilha, tenho um evento "Open" que ao abrir a planilha ele solicita uma senha, a ser digitada no Inputbox, ... ao passo que a mesma senha e o nome de uma planilha... até aí blz...
o problema é validar se a senha está errada.

*na aba "Capa" tem uma lista com todas as senhas, que por sua vez é o nome de todas as plans... porém não estou conseguindo inserir o segundo Loop... pois toda a vez que o "For" valida linha por linha e a senha está incorreta, da mesma forma linha por linha ele retorna o "MsGBox" com a senha incorreta.

*Aos nobres colegas fera em VBA, alguém tem alguma ideia de como trazer apenas uma vez a mensagem de "Senha incorreta" ??

Segue código e planilha em anexo

Novamente vlw

Private Sub Workbook_Open()

Sheets("capa").Select
Call Ocultar_planilhas
vresp = InputBox("Digite a senha de abertura")

For a = 1 To 33
    If vresp = Cells(a, 1) Then
        Sheets(vresp).Visible = True
        MsgBox "Bem Vindo"
        Exit For
    ElseIf vresp = "#Admin#" Then
        MsgBox "Bem vindo Administrador"
        Call Exibir_planilhas
        Exit For
    ElseIf vresp = "#Gestora" Then
        MsgBox "Bem vindo Administrador"
        Call Exibir_planilhas_Gestao
        Exit For
    End If
Next
    For b = 2 To 33
        If vresp <> Cells(b, 1) Then
            MsgBox "Senha incorreta ou em branco"
        End If
Next

End Sub