مشكلة قص او نسخ ولصق خلايا من شيت الى شيت اخر

[شبل ليث]

السلام عليكم اعضاء المنتدى المبعين

عند محاولتي (قص او نسخ) خلايا من شيت (نقل) لاعادتها الى شيت (الملاك) اختفى تفعيل زر (اللصق) ولم اتمكن من تفعيله

يرجى مساعدتي في حل هذه المشكلة 

مع التقدير 

ملاك 2020 للتعديل.xlsm

[حسين مامون]

السلام عليكم

سبب مشكلتك اظن هذا الكود فعندما تنتقل الى شيت "ملاك" ينشط الكود ويلغي عملية اللصق

Private Sub Worksheet_Activate()
  ScreenOn
End Sub

Sub ScreenOn()
  Application.Calculation = xlAutomatic
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

 

[شبل ليث]

السلام عليكم

شكرا للاستاذ حسين مامون للمساعدة

هل اقوم بحذف الكود المذكور اعلاه ام سيؤثر ذلك على العمل