السلام عليكم
الاخ الكريم / eyad.elmekawy
بارك الله فيك
لكي تعيد النسخ واللصق الى شيت الاكسيل حسب الكود المستخدم
ضع الاكواد التاليه في حدث ThisWorkbook بدلا من الموجودة لديك الآن وقارن بين الملفين ستجد ان التغيير تم مابين True و False للتشغيل والايقاف
في وجود الكود بالملف دون الحاجة لحذفه
جرب وابلغني بالنتائج ....
Option Explicit
Private Sub Workbook_Activate()
Call ToggleCutCopyAndPaste(True)
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call ToggleCutCopyAndPaste(True)
End Sub
Private Sub Workbook_Deactivate()
Call ToggleCutCopyAndPaste(True)
End Sub
Private Sub Workbook_Open()
Call ToggleCutCopyAndPaste(True)
End Sub
جزاك الله خيرا
1كود لاعادة عدم النسخ واللصق.rar