الأخوة الكرام . السلام عليكم .
هذا الكود يختص بمنع الحماية من أعتراضها لأى ماكرو موجود بالملف من التنفيذ .. أى إن كان هناك ماكرو مثل ماكرو التصفية مثلاً الموجود
بالملف المرفق فأنه لايعمل إذا كانت الورقة محمية .. أما هذا
الكود يحمى الورقة وفى نغس الوقت يعمل على منع الحماية من
أعتراضها لتنفيذ الماكرو .. وكل ما طلبته وهو واضح جداً .. إلغاء الباس ورد من الكود .. ؟
وأيضا الكود يحمى جميع أوراق الملف For Each MySheet فهل يمكن تحديد أوراق معينة لحمايتها ؟
ولتوسيع الاستفاده للأخوة هناك طريفتين للكود
أولهما
كود الحماية فى ماكرو الفتح وهو المستخدم فى حالتنا هذه (Sub AUTO_OPEN)
Sub AUTO_OPEN()
MyPassword = "123"
For Each MySheet In ActiveWorkbook.Sheets
MySheet.Protect _
Password:=MyPassword, _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True, _
AllowFiltering:=True, _
AllowSorting:=True
Next MySheet
End Sub
ثانيهما
كود الحماية يوضع فى حدث فتح الملف Private Sub Workbook_Open()
Private Sub Workbook_Open()
MyPassword = "123"
For Each MySheet In ActiveWorkbook.Sheets
MySheet.Protect _
Password:=MyPassword, _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=True, _
UserInterfaceOnly:=True
Next MySheet
End Sub
وهذا ما أمدنا به أخوتنا فى المنتدى