Sayfa Koruma olmadan hücre içeriğini korumak

[winstoncash]

Merhaba,

Bir sayfadaki bir hücrenin veya aralık içindeki bir hücrenin (örneğin a1:a10) içeriği değiştirilmek istendiğinde bir msgbox açılıp "bu değişikliği yapma yetkiniz yoktur" şeklinde uyarı ile engelleyebilir miyiz? Yani hücrede "ahmet" yazıyorsa, değiştirildiğinde uyarı verip geri "ahmet"e çevirmek istiyorum. mümkün müdür?

 

[Cengiz Demir]

Worksheet_Change yada Worksheet_SelectionChange olarak araştırın.
Oralara eklenecek kodlarla istediğinizi yapabilirsiniz sanırım.
Vakti olan bir üstad da bakabilir sanırım.

 

[winstoncash]

Worksheet_Change yada Worksheet_SelectionChange olarak araştırın.
Oralara eklenecek kodlarla istediğinizi yapabilirsiniz sanırım.
Vakti olan bir üstad da bakabilir sanırım.

hocam zaten aradaki kodu yapamadım. inşallah yardımcı olacak bir üstad çıkar.

 

[necati]

Merhaba, sayfa koduna şunları yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
    
        Application.Undo
    MsgBox "Bu hücreye veri girişi kısıtlanmıştır!", vbCritical
End If
Application.EnableEvents = True

End Sub