Condividi tramite

EXCEL VBA come Inserire una password con caratteri non visibile (******) ad una richiesta in una routine

Anonimo
2016-04-16T05:15:14+00:00

Ciao a tutti,

credo che la domanda spieghi il tutto.

Quando lancio una marco per proseguire mi chiede una password, vorrei non risultasse visibile ma che comparissero asterischi o caratteri vuoti

ciao & grazie

Max

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

6 risposte aggiuntive

Ordina per: Più utili
  1. Anonimo
    2016-04-17T06:34:32+00:00

    Sei troppo generico e noi non abbiamo il tuo file.

    Vediamo se ho capito....

    Se stai scrivendo di una TextBox ActiveX inserita direttamente sul foglio, seleziona la TextBox (1), vai in Modalità progettazione (2), seleziona Proprietà (3), metti un asterisco nella Proprietà PasswordChar (4).

    Se invece la TextBox si trova su una UserForm, procedimento più o meno simile

    Selezioni la TextBox (1), selezioni le Proprietà (2), metti un asterisco alla Proprietà PasswordChar (3).

    La risposta è stata utile?

    1 persona ha trovato utile questa risposta.
    0 commenti Nessun commento
  2. Anonimo
    2016-04-17T07:12:35+00:00

    Non utilizzare InputBox.

    Crea una semplice UserForm con una TextBox e un pulsante di conferma.

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2016-04-17T06:51:19+00:00

    Ciao Mauro,

    allora clicchi su una figura/ immagine, quello che vuoi e ti si apre un MsgBox che ti domanda " inserisci la Password"

    Tu la inserisci e ti deve mostrare solo gli asterischi

    vedi qui sotto

    '-------------------------------------

    LEM = LEM & "INSERISCI PASSW:" & vbLf & vbLf

        LEM = LEM & "8 - ESCI" & vbLf & vbLf

        LEM = InputBox(LEM, "")

       If LEM = "8" Then

       End

       End If

        If LEM <> "pippo" Then

     End

       End If

    '-----------------------------------------

    Ciao & grazie

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2016-04-17T06:13:00+00:00

    Ciao David,

    sorry ma quando indica ...

    1. In the Properties sheet, in the Object list, click TextBox1.

    non so proprio come muovermi, alias in excel 2010 dove trovo le Properties sheet ?

    Ciao & grazie

    La risposta è stata utile?

    0 commenti Nessun commento