Asterischi al posto di lettere

[scanacc]

Vorrei nella cella A1 inserire (di volta in volta) una password.
mentre la scrivo vorrei che comparissero degli asterischi al posto delle parole.
Ho trovato questo link ma non riesco a capire come far funzionare il tutto.
https://msdn.microsoft.com/it-it/library/d3223ht2(v=vs.85).aspx
Chi potrebbe aiutarmi?

[Marius44]

Ciao
non credo che nella cella A1 possano apparire asterischi. La procedura da te indicata si riferisce a "casella di testo"
creare una casella di testo Password con il controllo TextBox Windows Form

Puoi inserire una casella di testo adattandola alla cella A1 e poi applicare quel procedimento.

Ciao,
Mario

[Anthony47]

@scanacc: Hai poi risolto??

[scanacc]

Ho provato ma penso di non riuscire a fare precisamente quanto occorre. nel senso che non mi riesce

[Anthony47]

Non puoi farlo nelle celle.
Pero' puoi inserire in una cella una "Casella di testo" prelevandola dai controlli ActiveX; se mentre lo disegni tieni premuto il tasto Alt sara' piu' facile far combaciare i suoi bordi con la cella.
Poi, tra le sua "proprietà", alla voce PasswordChar scrivi *
Alla voce LinkedCell metti l'indirizzo della stessa cella coperta dalla casella di testo

Esci dalla "Modalita' progettazione" e prova a scrivere qualcosa nella cella (in realta' scriverai nella casella di testo).

Ciao

[scanacc]

Fatto ... e funziona!
Ora però devo dire ad una macro che vada a leggere ciò che è scritto su TextBox1 e non sulla cella X3
In pratica in una macro avevo scritto:

Codice: Seleziona tutto

myLogin = Sheets("Firme").Range("D1").Value
myPassw = Sheets("GERARCHIA").Range("X3").Value

ora ho provato a scrivere:

Codice: Seleziona tutto

myLogin = Sheets("Firme").Range("D1").Value
myPassw = Sheets("GERARCHIA").Range("TextBox1").Value

ma mi da debug ... mannaggia

[wallace&gromit]

Se segui esattamente quanto indicato da Anthony non hai questo problema: devi inserire la cella X3 come linked cell nelle proprietà della tua textbox, in questo modo la cella assumerà sempre il valore della textbox.

Se per qualche motivo tu volessi comunque riferirti alla textbox non devi chiamarla come "range" ma semplicemente con il suo nome:

Codice: Seleziona tutto

myPassw = Sheets("GERARCHIA").TextBox1.Value

[scanacc]

Grazieeeeeeeee.... In effetti cell inserendo X3 nella linked funziona tutto perfettamente!
Grazie di nuovo Wallace per la precisazione

[scanacc]

Grazie