مسح الخلايا والشيت محمي

[bachiri401]

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

من فضلكم اريد الربط بين اكواد VBA هل ممكن عمل ذلك في الملف المرفق واذا كان يوجد امثلة اخرى بارك الله فيكم للاستفادة

الملف المرفق به كودين كود حذف وكود حماية اريد جعل كود الحماية ينفذ مباشرة بعد كود الحذف

حماية وحذف.xlsm

[محمد هشام.]

ما الغرض من فك حماية جميع اوراق العمل لتقوم بافراغ الخلايا المحددة على ورقة عمل واحدة 

جرب هدا 

Sub Protect()
Dim x As Worksheet
Set x = ActiveSheet
Application.ScreenUpdating = False
x.Unprotect "bac20022002"
With Selection
   .ClearContents
End With
 x.Protect "bac20022002"
Application.ScreenUpdating = True
End Sub

 

[mahmoud nasr alhasany]

احسنت ا/ محمد هشام