password con asterischi

Hai un problema con Excel?

Nuova discussione

password con asterischi
di maxp72 data: 03/10/2013 13:55:27
Buongiorno
il quesito di oggi e' questo:
nella macro sotto, con una inputbox, vado a cambiare la password con cui viene aperto il mio file.
E' possibile oscurare i caratteri digitati nella inputbox?
ovvero che si vedano i classici asterischi? *****

Sub CAMBIA_PASSWORD_FILE()
Application.DisplayAlerts = False
Dim PWD As String
Dim REPWD As String
Dim Root As String
Dim FILE As String
Dim Percorso_assoluto As String
Dim WARNING_1 as integer

LINE_100:
PWD = InputBox(prompt:="Nuova PASSWORD", Title:="PASSWORD")

REPWD = InputBox(prompt:="Conferma Nuova PASSWORD", Title:="PASSWORD")

If REPWD = PWD Then

    Root = ActiveWorkbook.Path & ""
    FILE = ActiveWorkbook.Name
    Percorso_assoluto = Root & FILE
    ActiveWorkbook.SaveAs Filename:=Percorso_assoluto, Password:=PWD
    MsgBox "Password Modificata", vbOKOnly
Else
    WARNING_1 = MsgBox("Le Password non sono coincidenti", vbOKCancel)
    If WARNING_1 = vbOK Then GoTo LINE_100

End If
Application.DisplayAlerts = True
End Sub

di Vecchio Frac data: 03/10/2013 14:55:41
No, con InputBox non è possibile.
Dovrai crearti una tua InputBox: in pratica uno Userform con un controllo textbox, in cui intercetti ogni pressione di tasto e lo cambi con asterisco nel controllo di destinazione.
Ferma restando che, questa, è una soluzione debolissima, inefficace e rischiosa, soprattutto per le operazioni che riguardano password.

Vuoi Approfondire?