How to prevent compilation of a field on condition based

Hi everybody,

I try to write the following VBA code in order to prevent the compilation of the fields "Imponibile" and "IVA" when "TipoDocumentazione"= Ricevuta (see attached image). Immagine.png

I have two types of problem:
1) the fields "Imponibile" and "IVA" can still be compiled
2) doing modification on other fields on excel file, the "non corresponding types - runtime error" appears

Where I am wrong?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim WSpese As Worksheet
    Dim Row As Long
    Dim strRicevuta As String
    Dim strFattura As String
    
    
    
    Set WSpese = Target.Worksheet
    strRicevuta = "Ricevuta"
    strFattura = "Fattura"
    
    Row = Target.Row
    
    
       
    If (Target.Column = 7 And Target.Value = strRicevuta) Then
        
        WSpese.Cells(Row, 8).Locked = True
        WSpese.Cells(Row, 9).Locked = True
    
    ElseIf (Target.Column = 7 And Target.Value = strFattura) Then
           
        Row = Target.Row
        WSpese.Cells(Row, 8).Locked = False
        WSpese.Cells(Row, 9).Locked = False
    
    Else
        
        
    End If
    
End Sub

Same behaviour...

It seems it works only in some situations.. (it make not sense, I know..).. see attached imageImmagine.png

Originally Posted by mikerickson

I thought that if the cell in column G said "Ricevuta" you wanted the cells in uncompleted, i.e. empty.

yes, I want that.

It seems there is something wrong in the code because actually I can fill the "Imponibile" and "IVA" fields; I attach the code

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Cells.Count = 1 And .Column = 7 Then
            If LCase(.Value) = "Ricevuta" Then
                With .EntireRow.Range("H1:I1")
                    Application.EnableEvents = False
                    .ClearContents
                    With .Validation
                        .Delete
                        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
                        xlBetween, Formula1:="=false"
                        .IgnoreBlank = True
                        .InCellDropdown = True
                        .ErrorMessage = "Il tipo'Ricevuta' impedisce l'introduzione di questo dato (si veda legenda)"
                        .ShowInput = False
                        .ShowError = True
                    End With
                    Application.EnableEvents = True
                End With
            End If
        End If
    End With
End Sub

and the table screenshot
Immagine.png