validation yapılmış hücrede paste kabulü

[xlsx]

Selam Arkadaşlar
a1' boşsa b1-c1-d1- gibi hücrelere veri girişine izin vermemesi için a1 hücresinin countblank formülü ile boş olup olmaması durumuna göre b sütununda validation yaptım ve a1deki boş sayısını kontrol edip boşsa b1e girmesine izin vermiyor.
Ancak b1 hücresine bir farklı hücreden veri alıp yapıştırılınca bu denetim ortadan kalkıyor.
paste'i de kabul etmemesi için ne yapabilirim.
a1 boşsa b1e paste de yapılmasın

 

[conari]

Hücreleri Kilitleyin /(seçim)
Ve A1 hücresinin değişimine
makro yazarak kilidi açın veya kapatın.
Koduda ekleyim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
       If Range("a1").Value <> "" Then
       ActiveSheet.Unprotect
           Else
           ActiveSheet.Protect
      End If
End Sub

 

[xlsx]

kodlama kullanmadan çözümü mümkün mü?
benim paste sorunu haricinde dosya sorunsuz çalışıyor ancak paste olayının nasıl önleneceğini de öğrenmek isterim..
Kodlar için teşekkürler.
bu kodları da kendi dosyamda kullanacagım.