نزع حماية الخلايا بالماكرو

[زاكي بوشلاغم]

السلام عليكم اريد نزع الحماية على الخلايا في  العمود AE5حتى  AE186عن طريق  الماكرو  حيث  حاولت كم من مرة بدون جدوى   وتخرج  لي  عبارة EURR MACROارجو شرح كيفية النزع  لكي  اقوم  بنزع في  عدة  ملفات وشكرا 

تذكير طريق  الحماية بالماكرو  .. اخي اريد نزع عمود AE5حتىAE186 فقط اوريد طريقة  كيفية نزع الحماية للملفات اخرى. 

ghبرنامج الراتب.rar

[محمد يوسف ابو يوسف]

تفضل

ghبرنامج الراتب.XLS

[محمد يوسف ابو يوسف]

شرح كيفية نزع الحماية ...

ادخل علي

 Feuil2 Calcul paie

ستجد هذا الكود
 

Private Sub Worksheet_SelectionChange(ByVal Tr As Excel.Range)
Set Rng = Range("E5:E186,G5:G186,I5:I186,N5:N184,P5:P186,R5:R186,V5:V186,X5:X186,Y5:Y186,Z5:Z186,AB5:AB186,AC5:AC186,AE5:AE186,AF5:AF186,AH5:AH186,AI5:AI186,AM5:AM189,AO5:AO189,AR5:AR189,AV5:AV189,AX5:AX189,AZ5:AZ186,BA5:BA186,C5:C186")
If Not Intersect(Tr, Rng) Is Nothing Then
   Tr.Offset(0, 1).Select
   Set Rng = Nothing
End If
End Sub

 

قم بإزالة هذا الجز

,AE5:AE186