Undgå at der indtastes formler

Generelt eller i en enkelt projektmappe / enkelt ark?

Enkelt ark og nogle gange kun enkelte områder

Hvis enkelt ark:

Dim ræk, kol
Private Sub Worksheet_Change(ByVal Target As Range)
    If Left(Cells(ræk, kol).Formula, 1) = "=" Then
        Cells(ræk, kol) = ""
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ræk = Target.Row
    kol = Target.Column
End Sub

Hvis områder - så skal disse defineres - evt. ved en farvelægning, der kan testes!

Lad os antage at jeg vil forhindre formler i området a15:e16 - hvordan ville det så se ud?

Hvis dette område i arket får den Gule baggrundsfarve (ColorIndex = 6) - hvilket så kunne betyde, at her må der ikke indlægges formler:

Dim ræk, kol, farve
Private Sub Worksheet_Change(ByVal Target As Range)
    If farve = 6 Then      'Hvis Gul ingen formel
        If Left(Cells(ræk, kol).Formula, 1) = "=" Then
            Cells(ræk, kol) = ""
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ræk = Target.Row
    kol = Target.Column
    farve = Target.Interior.ColorIndex
End Sub

Lige et øjeblik...(var lidt for hurtig) dit svar Supertekst var lige det jeg havde brug for, så derfor har jeg fået svar på det jeg søgte.
TAKKER så mange gange.

Selv tak.

en anden måde

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then
MsgBox " I " & Target.Address & " har du intastet en formel, TAST OM"
Target = ""
Target.Activate
End If
End Sub