Se password errata, blocca operazione successiva

Buon pomeriggio
Mi rivolgo a voi esperti perchè ho provato ma non ne vengo a capo:

Ho creato un pulsante che mi toglie la protezione al foglio Excel ed è la parte inferiore della macro.
Per essere sicuro di essere solo io a togliere la protezione, volevo avere prima di eseguire tale operazione, un'altra password.
Nel caso fosse errata, ovviamente, non dovrebbe proseguire e bloccare il tutto senza togliere la protezione.
C'è un comando appropriato ?
Grazie mille anticipatamente.


Sub Elimina_Password()
Dim a As String
a = InputBox(" Riservata all'Amministratore")
If a = "pippo" Then
UserForm1.Hide
Else
MsgBox ("Password errata")
End If




Dim i As Integer
For i = 2 To 24
With Sheets(i)
.Unprotect "roberto"
End With
Next i
End Sub

ciao

Else
MsgBox ("Password errata")
exit sub

Grazie mille

Scusate....vorrei capire se c'è un sistema sempre per proteggere questa password.
Facendo ALT+F11 si ha accesso al VBA Project e li si vede tutto ovviamente ....
mi sono informato ed è possibile inserire una password proprio cliccando sopra VBA Project, tasto dx ---> Proprietà di VBA Project e qui inserire una password.
Effettivamente funziona..... prima di accedere a questo VBA Project ti chiede la password ma...... ogni volta che apro e chiudo il file excel, si crea un nuovo VBA Project e questi nuovi non sono protetti !
Come potrei fare ?
Avete qualche idea ?

Roberto B., 21/09/2017 15.33:

---

...... ogni volta che apro e chiudo il file excel, si crea un nuovo VBA Project e questi nuovi non sono protetti !
Come potrei fare ?
Avete qualche idea ?

---

Ne sei proprio sicuro? Io non credo sia così (se ho capito bene).

In un file di Excel il progetto VBA è sempre unico.

...effettivamente ...... ora provando e riprovando...sempre uno ne rimane ! Questa mattina si moltiplicavano !
Misteri.... meglio così....
Grazie

.... ricollegandomi alla prima domanda della protezione tasto,
ora quando esce il riquadro ed inserisco la password, quest'ultima è visibile......sarebbe possibile far comparire solo visibilmente gli asterischi in maniera da non visualizzare la password ?
Grazie mille

Sub Elimina_Password()
Dim a As String
a = InputBox(" Inserire Password")
If a = "pippo" Then
UserForm1.Hide
Else
MsgBox ("Password errata :(")
Exit Sub
End If

Dim i As Integer
For i = 2 To 24
With Sheets(i)
.Unprotect "pluto"
End With
Next i
End Sub

Se usi una InputBox no.

Devi crearti una userform con una TextBox ed un pulsante e l'annesso codice.

Tra le proprietà della textbox trovi PasswordChar dove puoi impostare un carattere (solitamente un asterisco) che verrà visualizzato quando digiti la password.

Grazie mille.
Ora provo