كود لحماية ملف الاكسل من الحذف او النسخ

[alaagold11]

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

أحتاج كود لمنع ملف اكسل من الحذف او النسخ

[Ali Mohamed Ali]

يمكنك وضع هذه الأكواد فى حدث ThisWorkBook

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub
 
Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub
 
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub
 
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

وهذا هو الملف

 

-منع القص او اللصق.xlsm

[الاهلاوى 2007]

اولا جزاك الله كل خير على هذا  العمل لكن الملف يحذف عادى

[alaagold11]

جزاك الله خيرا 

فعلا الملف بينحذف

[Ali Mohamed Ali]

إخوانى الكرام هذا الملف يلغى خاصية القص واللصق وليس عن امكانية حذف الملف ام لا

اذا كنت تريد برنامج لعدم حذف الملفات فعليك بتحميل وتسطيب هذا البرنامج وتفعيله دائما على جهازك -كما ان بالمرفقات فيديو لشرح البرنامج واعتقد ان هذا كل طلباتك

 

 

Prevent-حماية ملفاتك في الحاسوب من النسخ و القص و الحذف.rar