اعتراض الحماية لتنفيذ الماكرو اعتراض الحماية لتنفيذ الماكرو

[samycalls2020]

السلام عليكم ..
المرفق به كود لعدم اعتراض الحماية لتنفيذ الماكرو وهو ما أمدنا به الأساتذة الأجلاء أكرمهم الله.
هذا الكود يحتوى على باسورد لألغاء الحماية 123 .. هل من الممكن إلغاء الباسورد ؟

وأيضا الكود لجميع أوراق الملف  For Each MySheet  فهل يمكن تحديد أوراق معينة ؟

كل الشكر ..

اعتراض الحماية لتنفيذ الماكرو.rar

تم تعديل أغسطس 6, 2017 بواسطه samycalls2020

[محمد الورفلي1]

السلام عليكم جرب بهذا الشكل

علي اعتبار الرقم السري 123

Sub WW()
ActiveSheet.Unprotect "123"

ActiveSheet.Range("$D$6:$K$27").AutoFilter Field:=1

ActiveSheet.Protect "123"
End Sub

 

[samycalls2020]

وعليكم السلام ..

هذا هو الكود المقصود 

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

       

المرفق به كود لعدم اعتراض الحماية لتنفيذ الماكرو وهو ما أمدنا به الأساتذة الأجلاء أكرمهم الله.
هذا الكود يحتوى على باسورد لألغاء الحماية 123 .. هل من الممكن إلغاء الباسورد ؟

وأيضا الكود لجميع أوراق الملف  For Each MySheet  فهل يمكن تحديد أوراق معينة ؟

تم تعديل أغسطس 6, 2017 بواسطه samycalls2020

[samycalls2020]

للرفع

[ابن الملك]

أخى العزيز

الطلب غير واضح

[samycalls2020]

الأخوة الكرام . السلام عليكم .

هذا الكود يختص  بمنع الحماية من أعتراضها لأى ماكرو موجود بالملف من التنفيذ .. أى إن كان هناك ماكرو مثل ماكرو التصفية مثلاً الموجود

بالملف المرفق فأنه لايعمل إذا كانت الورقة محمية .. أما هذا 

الكود يحمى الورقة وفى نغس الوقت يعمل على منع الحماية من

أعتراضها لتنفيذ الماكرو .. وكل ما طلبته وهو واضح جداً .. إلغاء الباس ورد من الكود .. ؟

وأيضا الكود يحمى جميع أوراق الملف  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

وهذا ما أمدنا به أخوتنا فى المنتدى

 

تم تعديل أغسطس 6, 2017 بواسطه samycalls2020

[samycalls2020]

هل أصبح الموضوع أكثر وضوحاً ..  أم لم أوفق فى شرح ما أريد ..

[samycalls2020]

للرفع

[samycalls2020]

Sub ss() 'يعمل على ورقة واحده بعد أن يوضع فى حدثها'
Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets("DD").Protect _
        DrawingObjects:=True, _
        Contents:=True, _
        Scenarios:=True, _
        AllowFiltering:=True, _
        AllowSorting:=True, _
        UserInterfaceOnly:=True
End
End Sub

DD اسم الورقة

محاوله لقصر الكود على ورقه معينه مع إلغاء الباس ورد .. جربوه وأفيدونى ..

[samycalls2020]

سبحان الله وبحمده .. سبحان الله العظيم

[samycalls2020]

للرفع