Excel: posso impostare una cella in modo che sia uguale a un determinato valore, indipendentemente da ciò che viene digitato?

Questo è per scherzare su qualcuno ... non sono sicuro che sia possibile fare quello che voglio. Stiamo facendo circolare un file Excel tra amici per selezionare i giocatori per un torneo di golf. Vorrei impostare una cella (chiamala A1) per mostrare un certo nome (chiamala Joe) indipendentemente da ciò che qualcuno digita in essa.

A1 dovrebbe essere vuoto fino a quando qualcuno tenta di digitare un nome in esso. Quando qualcuno digita un nome - qualsiasi nome - cambia automaticamente in Joe dopo aver premuto invio.

La formattazione condizionale non funziona poiché sembra indirizzare solo l'aspetto del valore nella cella A1.

Una formula non funziona perché vedrebbero qualcosa nella cella.

Correzione automatica - mentre avrebbe l'effetto esatto che sto cercando - non funziona b / c che è memorizzato sul mio computer e non trasferisce con il file.

Qualche idea?

Come alternativa senza macro, questo non cambierà il valore della cella, ma cambierà la visualizzazione della cella. Fai clic con il tasto destro sulla cella in questione, quindi fai clic su "Formato celle". Nella scheda dei numeri, fai clic su Personalizzato, quindi inserisci il seguente formato numerico personalizzato

"Joe";"Joe";"Joe";"Joe"

Spiegazione: I formati numerici di Excel hanno quattro parti, separati da punti e virgola. Il valore della cella determina quale parte del formato numerico viene utilizzata e il formato è simile al seguente:

[positive];[negative];[zero];[text] 

Poiché ogni sezione è una stringa codificata, "Joe" visualizzerà indipendentemente dall'input, anche se viene inserita una formula (a meno che quella formula non restituisca un errore). Solitamente i formati numerici vengono utilizzati per visualizzare numeri negativi in ​​rosso o allineare i valori in decimale o altri elementi cosmetici. Ma possono anche essere usati per pasticciare con i tuoi amici.

Inserire la seguente macro di eventi nell'area del codice del foglio di lavoro:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub
   Application.EnableEvents = False
      Range("A1").Value = "Joe"
   Application.EnableEvents = True
End Sub