vba : "bloccare" cursore su colonna "A" e scrivere solo "X"

[karug64]

Salve a tutti.
E' possibile "bloccare" il cursore su una colonna non permettendo di spostarsi sulle altre.
In sostanza vorrei che l'utente potesse scrivere solo la lettera "X" sulla colonna "A" e quindi se provasse a spostarsi su "B" "C" ecc ecc il cursore non dovrebbe andarci.

Grazie

[Anthony47]

Ad esempio puoi proteggere tutto il foglio eccetto colonna A, e poi proteggere disabilitando la possibilita' di selezionare le celle protette...
Quanto alla X lo fai con la convalida da elenco (un elenco un po' corto).

Ciao

[karug64]

Ad esempio puoi proteggere tutto il foglio eccetto colonna A, e poi proteggere disabilitando la possibilita' di selezionare le celle protette...
Quanto alla X lo fai con la convalida da elenco (un elenco un po' corto).

Ciao

Ciao.
Cosi facendo il cursore andrebbe anche su B, C ecc ecc anche se non ne permetterebbe la modifica.
Suppongo, quindi, che non si possa bloccare su A....

[Anthony47]

Devi provare, e vedrai che con la protezione del foglio puoi bloccare la possibilita' di selezionare le celle protette; basta togliere una spunta...

[scossa]

Salve a tutti.
E' possibile "bloccare" il cursore su una colonna non permettendo di spostarsi sulle altre.
In sostanza vorrei che l'utente potesse scrivere solo la lettera "X" sulla colonna "A" e quindi se provasse a spostarsi su "B" "C" ecc ecc il cursore non dovrebbe andarci.

Metti questi codici nel modulo di classe del foglio interessato:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value <> "X" Then
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column <> 1 Or Target.Cells.Count > 1 Then
    Application.EnableEvents = False
    Me.Cells(Target.Row, 1).Select
    Application.EnableEvents = True
  End If
End Sub

[Anthony47]

Sempre "ad esempio", per la "X" nelle celle (oltre alla Convalida o alla macro Worksheet_Change suggerita da Scossa):
-selezioni le celle in cui vuoi limitare alla X e applichi una formattazione:
--tab Numero, tipo Personalizzato
--come "Tipo" inserisci

Codice: Seleziona tutto

"X";"X";"X";"X"

--Ok
In questo modo qualsiasi cosa venga digitata si vedrà sempre X.
Ribadisco "si vedrà", perche' invece il contenuto sara' sempre quello digitato.

Ciao a tutti.

[karug64]

Salve a tutti.
E' possibile "bloccare" il cursore su una colonna non permettendo di spostarsi sulle altre.
In sostanza vorrei che l'utente potesse scrivere solo la lettera "X" sulla colonna "A" e quindi se provasse a spostarsi su "B" "C" ecc ecc il cursore non dovrebbe andarci.

Metti questi codici nel modulo di classe del foglio interessato:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Value <> "X" Then
    Application.EnableEvents = False
    Target.ClearContents
    Application.EnableEvents = True
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column <> 1 Or Target.Cells.Count > 1 Then
    Application.EnableEvents = False
    Me.Cells(Target.Row, 1).Select
    Application.EnableEvents = True
  End If
End Sub

La soluzione funziona, ma nell'evento SelectionChange c'e' gia l'istruzione di cui al topic http://www.pc-facile.com/forum/viewtopic.php?f=26&t=101558 che non funziona piu' ...