Hücrede belli metin yazıyorsa değiştirmeyi önlemek

[pNouma]

Kıymetli Hocalarım merhaba,

Sayfada M sütununda "Ödendi" yazıyorsa bunun değiştirilmesini önlemek istiyordum

Örnek: M3 hücresinde "Ödendi" yazıyorsa bunu değiştirmek istesek bile; takrar "Ödendi" olarak yazılması

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim deger As String
   
    If Target.Column = 13 Then
    
        deger = Target.Value
        
        If Not deger Like "Ödendi" Then
            Target.Value = deger
        End If

    End If
    
End Sub

yardımlarınız için şimdiden teşekkürler,
iyi haftalar dilerim.

 

[Muzaffer Ali]

Merhaba.

Dim Deger As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("M")) Is Nothing Then
        Application.EnableEvents = False
        If Target.Text = "Ödendi" Then Deger = "Ödendi"
        If Deger = "Ödendi" And Target.Text <> "Ödendi" Then
            MsgBox "'Ödendi' işlemi değiştirilemez.", vbExclamation
            Application.Undo
        End If
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Deger = Target.Text
End Sub

 

[pNouma]

Merhaba.

Dim Deger As String

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("M")) Is Nothing Then
        Application.EnableEvents = False
        If Target.Text = "Ödendi" Then Deger = "Ödendi"
        If Deger = "Ödendi" And Target.Text <> "Ödendi" Then
            MsgBox "'Ödendi' işlemi değiştirilemez.", vbExclamation
            Application.Undo
        End If
        Application.EnableEvents = True
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Deger = Target.Text
End Sub

Teşekkür ederim Muzaffer Hocam
iyi çalışmalar dilerim.