Come si blocca una cella excel al verificarsi di una condizione?

Allora sicuramente sto sbagliando qualcosa, ho sicuramente dimenticato un pezzo. se io scrivo la formula in alto (vedi foto) e trascino giu mi compare solo VERO e FALSO e riesco a scrivere dentro senza blocchi o errori.

ciao

basta scrivere

=B4="si

e impedisce di scrivere

poi puoi scrivere un messaggio

nella convalida

o preferisci il vba?

![](https://learn-attachment.microsoft.com/api/attachments/1d1fb5d2-9f5a-4433-8ffc-5d02bcaaa63d?platform=QnA

"vedi che ci sia la spunta in

messaggio errore"

scusa forse la chiave alla mia soluzione è in questa frase che ho letto dopo ma non trovo la spunta indicata. intanto grazie per il suo tempo

Ciao Luca,

Buongiorno semplifico all'osso la mia necessità.

Mi piacerebbe che al verificarsi di una codizione X una cella Y si bloccasse in maniera che nessuno sbagli a scriverci sopra. Vedi esempio qui sotto, ora nell'esempio le celle grigie ovviamente sono solo colorate, ma quello che mi servirebbe è che queste venissero proprio bloccate. Grazie in anticipo!

Oltre all'ottimo suggerimento di Gianfranco, per bloccare le celle di interesse nel caso in cui le celle corrispondenti nella colonna precedente contengano una determinata parola chiave, ad esempio Sì, provare come segue

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng As Range, rCell As Range 

Dim vOld As Variant 

Const sIntervallo As String = **"C4:C20"            '<<=== Modifica** 

Const sParola\_Chiave As String = **"Sì"             '<<=== Modifica** 

Set Rng = Intersect(Me.Range(sIntervallo), Target) 

If Not Rng Is Nothing Then 

    On Error GoTo XIT 

    Application.EnableEvents = False 

    For Each rCell In Rng.Cells 

        With rCell 

            If UCase(.Offset(0, -1).Value) = UCase(sParola\_Chiave) Then 

                Application.Undo 

                Call MsgBox(Prompt:="La cella " & .Address(0, 0) & " è bloccata !!", \_ 

                    Buttons:=vbInformation, \_ 

                    Title:="REPORT") 

                Exit For 

            End If 

        End With 

    Next rCell 

End If 

XIT:

Application.EnableEvents = True 

End Sub

'<<========  

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

Potresti scaricare il mio file di prova Luca20220727.xlsm

===

Regards,

Norman