Hücre Silme Engelleme

[hakki83]

Merhaba hocalarımız,

Bir hücredeki verileri (örnek B2), sayfa koruma özelliği dışında, kodlar ile silmeyi engellemeyi yapabilir miyiz?

Teşekkürler.

 

[hasankardas]

Burada detaylı bilgi var

Belirli Hücrelerin, değiştirilmesini ve silinmesini Engelleme

Selam Arkadaşlar, Bir çalışma sayfasındaki A1:G2 haricindeki hücreleri kullanıcı "ergun.guler" değil ise silinmesini, eklenmesini, satır ve sütunların silinmesi, değiştirilmesi, eklemesi, çıkarılmasını engellemek istiyorum. Bunun için aşağıdaki kodu yazdım. Ancak, sadece uyarı vermesini...

www.excel.web.tr

 

[hakki83]

Teşekkürler fakat verdiğiniz linkte sayfa koruma kullanılmış.
Sayfa koruma olmadan sadece kodlarla yapabiliyor muyuz, bunu öğrenmek istemiştim.

 

[tamer42]

Teşekkürler fakat verdiğiniz linkte sayfa koruma kullanılmış.
Sayfa koruma olmadan sadece kodlarla yapabiliyor muyuz, bunu öğrenmek istemiştim.

dener misiniz

Dim prevValue As Variant

Private Sub worksheet_SelectionChange(ByVal target As Range)

    prevValue = target.Value
End Sub

Private Sub worksheet_change(ByVal target As Range)

If Len(prevValue) = 0 Then Exit Sub

    If target.Row > 1 And target.Column > 1 Then

        If target.Value <> prevValue Then
            target.Value = prevValue


            MsgBox "Düzenlemenize izin verilmiyor!", vbCritical + vbOKOnly

        End If

    End If

End Sub

 

[Korhan Ayhan]

Önerilen kod çoklu hücre işlemlerinde sağlıklı sonuç vermeyecektir.

 

[hakki83]

Önerilen kod çoklu hücre işlemlerinde sağlıklı sonuç vermeyecektir.

Korhan hocam sağ olunuz.

 

[hakki83]

dener misiniz

Dim prevValue As Variant

Private Sub worksheet_SelectionChange(ByVal target As Range)

    prevValue = target.Value
End Sub

Private Sub worksheet_change(ByVal target As Range)

If Len(prevValue) = 0 Then Exit Sub

    If target.Row > 1 And target.Column > 1 Then

        If target.Value <> prevValue Then
            target.Value = prevValue


            MsgBox "Düzenlemenize izin verilmiyor!", vbCritical + vbOKOnly

        End If

    End If

End Sub

Tamer42 hocam teşekkürler.
Tüm sayfa değil de sadece B2 hücresinde (silme engelleme) geçerli olacak şekilde yapar mısınız?

 

[tamer42]

Tamer42 hocam teşekkürler.
Tüm sayfa değil de sadece B2 hücresinde (silme engelleme) geçerli olacak şekilde yapar mısınız?

IF koşulunu

If target.Row =2  And target.Column =2 Then

şeklinde düzenleyebilirsiniz.

yada kodun başına

If Intersect(target, [B2]) Is Nothing Then Exit Sub

 

[hakki83]

Teşekkürler Tamer42 hocam.
Bilgisayara geçer geçmez hemen deneyeceğim.

 

[hakki83]

Hocam yalnız şunu fark ettim.
Kodunuzda birden fazla if ile başlayan satır var. Hangisini değiştirmem gerekiyor ?

 

[tamer42]

Hocam yalnız şunu fark ettim.
Kodunuzda birden fazla if ile başlayan satır var. Hangisini değiştirmem gerekiyor ?

If target.Row > 1 And target.Column > 1 Then

 

[hakki83]

If target.Row > 1 And target.Column > 1 Then

Tamer42 hocamız ilginiz için teşekkürler. Olmuştur fakat sadece B2’yi değil de birden fazla hücreyi seçince, B2 hücresi silinebiliyor. Bunu önleyebilir miyiz acaba?

(Bir de hocam sadece öğrenmek için, hani msgbox satırının en sonunda vbOkOnly kodunun vazifesi nedir?)

 

[tamer42]

Tamer42 hocamız ilginiz için teşekkürler. Olmuştur fakat sadece B2’yi değil de birden fazla hücreyi seçince, B2 hücresi silinebiliyor. Bunu önleyebilir miyiz acaba?

(Bir de hocam sadece öğrenmek için, hani msgbox satırının en sonunda vbOkOnly kodunun vazifesi nedir?)

worksheet_SelectionChange olayını aşağıdaki gibi düzenleyip çoklu seçimi engelelyebilirsiniz

Private Sub worksheet_SelectionChange(ByVal target As Range)

   If target.Count > 1 Then
      MsgBox "Üzgünüz, birden fazla seçime izin verilmiyor!.", vbCritical
      ActiveCell.Select
   End If

    prevValue = ActiveCell.Value
    
End Sub