تعديل علي كود منع النسخ واللصق

[وائل الاسيوطي]

السلام عليكم ورحمه الله وبركاته

الكود لاخي عبدالله باقشير وذكرنا به اخي الكريم مختار الصعيدي

كنت اود التعديل ليمنع النسخ واللصق عن الملف كاملا ماعدا صفحه واحده متاح فيها النسخ واللصق

Disable Enable Cut copy paste .rar

[ياسر العربى]

يامعلم خليك ايزي كدا 

وحط مرفق  احنا هندور على ملفات

[الـعيدروس]

تلصق الكود في حدث الورقة 

Private Sub Worksheet_Activate()
   '' الصفحه المراد السماح بالنسخ
With Application
  .ScreenUpdating = False
  .Calculation = -4135
      Call ToggleCutCopyAndPaste(True) ''
  .ScreenUpdating = True
  .Calculation = -4105
End With
End Sub

 

 

وهكذا تلصق الكود في الورقة المراد منع النسخ

Private Sub Worksheet_Activate()
   '' الصفحه المراد منع بالنسخ
With Application
  .ScreenUpdating = False
  .Calculation = 4135
     Call ToggleCutCopyAndPaste(False) ''
  .ScreenUpdating = True
  .Calculation = -4105
End With
End Sub

 

 

او هكذا تحط الكود في حدث Thisworkbook

حط اسماء الاوراق التي تريد منع النسخ فيها

 

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
       Case "ورقة1", "ورقة2", "ورقة3", "ورقة4", "ورقة5", "ورقة6", "ورقة7", "ورقة78"
       '' الاوراق الذي تود منع النسخ فيها
       With Application
           .ScreenUpdating = False
            .Calculation = 4135
              Call ToggleCutCopyAndPaste(False) ''
            .ScreenUpdating = True
           .Calculation = -4105
       End With
       Case Else ''
       With Application
          .ScreenUpdating = False
            .Calculation = -4135
               Call ToggleCutCopyAndPaste(True) ''
            .ScreenUpdating = True
          .Calculation = -4105
        End With
End Select
End Sub

 

[وائل الاسيوطي]

7 minutes ago, ياسر العربى said:

يامعلم خليك ايزي كدا 

وحط مرفق  احنا هندور على ملفات

معلش النت فصل وانا برفع الملف

[ياسر العربى]

العملية بسيطة خالص

نحط دا في تنشيط الشيت المراد تفعيل النسخ فيه
Private Sub Worksheet_Activate()
Call ToggleCutCopyAndPaste(True)
End Sub

و هذا في حدث اذا كان الشيت غير نشط يقفل النسخ 
Private Sub Worksheet_Deactivate()
Call ToggleCutCopyAndPaste(False)
End Sub

مطبق علي شيت 3 في المرفق

Disable Enable Cut copy paste .rar

تم تعديل ديسمبر 1, 2015 بواسطه ياسر العربى