Soru Makro ile (Kopyala,Kes,Yapıştır) Engelleme,

[leguminosea]

Aşağıdaki gibi olabilir.

Sub Kilit()
Sheets("Sayfa1").Unprotect
Sheets("Sayfa2").Range("A1:A2").Copy
Sheets("Sayfa1").Range("A1:A2").Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("Sayfa1").Protect
End Sub

 

[Korhan Ayhan]

Bunun için ayrı bir makro tanımlayabilirsiniz.