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

leguminosea · 5 Mart 2021

Aşağıdaki gibi olabilir.

Kod:

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 · 5 Mart 2021

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

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

leguminosea

Korhan Ayhan

Administrator