Soru Sayfa koruma macrosunu revize etmek.

[Garuramon]

Merhaba ,
EK' li dosyada kullanmış olduğum macro hücreyi seçmeye engel olarak düzgün olarak çalışıyor. Bu macroyu; sayfaya tıkladığı zaman değildi de hücre içeriği değiştirilmek istendiği zaman çalışmasını sağlayabilir miyiz.

 

[Muzaffer Ali]

Sayfanın kod bölümündeki kodları silin aşağıdakileri kopyalayın.

Dim OncekiDeger As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Target.Value = OncekiDeger
    MsgBox prompt:="Hücre içinde, veri değiştirme izniniz yok! - E.Ö", _
    Buttons:=vbOKOnly + vbCritical, Title:="YASAK BÖLGE"
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OncekiDeger = Target.Value
End Sub

 

[Garuramon]

Sayfanın kod bölümündeki kodları silin aşağıdakileri kopyalayın.

Dim OncekiDeger As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Target.Value = OncekiDeger
    MsgBox prompt:="Hücre içinde, veri değiştirme izniniz yok! - E.Ö", _
    Buttons:=vbOKOnly + vbCritical, Title:="YASAK BÖLGE"
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OncekiDeger = Target.Value
End Sub

Sayın @dalgalikur ,

Düzenlemiş olduğunuz macro düzgün çalışıyor. Zaman ayırdığınız için çok teşekkür ederim. Hakkınızı helal ediniz.

 

[Muzaffer Ali]

Rica ederim. Helal olsun. Kolay gelsin.