أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil تعديل الكود ليتم حفظ الصوة باسم الخلية مع تاريخ اليوم  اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم حل مشكلة طرحها أخونا أبو الحسن في سؤال له ، وهو كيف ..



16-09-2019 07:46 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 offline 

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

إخواني وأحبابي في الله


atBbJ_Logo

أقدم لكم حل مشكلة طرحها أخونا أبو الحسن في سؤال له ، وهو كيف يمكن اكتشاف كسر الحماية لورقة عمل .. أي أنه إذا كان لديك ورقة عمل محمية بباسورد 123 ، وجاء أحد المحترفين وكسر حماية ورقة العمل (سواء أزال الحماية بشكل نهائي أو أزال الحماية ووضع كلمة سر جديدة) >> كيف يمكن اكتشاف ذلك بالأكواد؟
هذا ما سنعرفه بالتفصيل في الفيديو

** لا تضع الكود في المصنف الذي تريد اكتشاف كسر الحماية فيه ، لكي لا يتعرف من يريد كسر الحماية على الطريقة التي اتبعتها ​

وأترككم مع الشرح في الفيديو



*** إذا أعجبكم الفيديو لا تنسوا الضغط على زر إعجاب Like وعمل اشتراك بالقناة Subscribe وتفعيل زر الجرس ليصلكم كل جديد

r5g5o_YouTube


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد وتقديم / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: محمد أبو عبدو، hassona229، ali mohamed ali، محمد الدسوقى، منير القدسي، نصر الإيمان،





16-09-2019 08:17 صباحا
مشاهدة مشاركة منفردة [1]
محمد أبو عبدو
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 27-08-2017
رقم العضوية : 247
المشاركات : 179
الجنس : ذكر
تاريخ الميلاد : 13-4-1966
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 521
الاعجاب : 56
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
ما شاء الله لا قوة إلا بالله.
جزاك الله خير الجزاء أستاذي الفاضل، وبارك الله فيك، وزادك الله علما ونفع بك.
وجعل هذا العمل الطيب في ميزان حسناتك، وكتبه لك صدقة جارية.

أثارت هذه المشاركة إعجاب: YasserKhalil،




16-09-2019 08:18 صباحا
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
بارك الله فيك أخي الحبيب محمد وجزيت خيراً على دعائك الطيب المبارك

أثارت هذه المشاركة إعجاب: محمد أبو عبدو،




16-09-2019 09:44 صباحا
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1335
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 53
قوة السمعة : 6133
الاعجاب : 874
 Online 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
موضوع رائع جزاك الله كل خير استاذ ياسر وزادك الله من فضله

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


16-09-2019 10:06 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
بارك الله فيك أخي الحبيب علي ومشكور على مرورك العطر





16-09-2019 12:48 مساء
مشاهدة مشاركة منفردة [5]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 293
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 576
الاعجاب : 30
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
جزاكم الله خيرا 
على الرد على استفساري

أثارت هذه المشاركة إعجاب: YasserKhalil،




16-09-2019 03:15 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
وجزيت خيراً أخي العزيز أبا الحسن وأرجو أن يكون الفيديو قد أفادك وأفاد غيرك ...





16-09-2019 03:58 مساء
مشاهدة مشاركة منفردة [7]
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
جزاكم الله خيرا على كل ماتقدمه وفيه منفعة للناس وجعله الله فى ميزان حسناتك 

أثارت هذه المشاركة إعجاب: YasserKhalil،




16-09-2019 04:32 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
وجزيت بمثل ما دعوت لي وزيادة أخي الكريم عبد الرحمن ..
 





17-09-2019 11:16 مساء
مشاهدة مشاركة منفردة [9]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 293
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 576
الاعجاب : 30
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
سؤال بخصوص هذا الكود 
اذا افترضنا ان الورقة اسمها  Ali_1
فأين سيتم التغيير فى الكودين 

وهل يمكن تطبيق هذا الكلام على اكثر من ورقة 
كمثال الورقة 
Ali_1 Ali_2 Ali_3





17-09-2019 11:47 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7895
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 421
قوة السمعة : 22867
الاعجاب : 2123
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
نعم أخي أبو الحسن ..يمكن إنشاء أكثر من نطاق مخفي وكل نطاق سيكون باسم معين أنت تحدده ، وكلمة سر أنت تحددها
المثال في الفيديو لنطاق واحد مخفي وهي Sheet1Pass ويمكن أن تسميه كما شئت ، والباسورد 123 يمكن وضع أي كلمة سر





18-09-2019 12:28 صباحا
مشاهدة مشاركة منفردة [11]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 293
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 576
الاعجاب : 30
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
يوجد مشكلة عند التطبيق 
ما الخطأ فى الكود 
مع العلم ان كلمة المرور هى   _{A#_f^z5Pr8
والمرقة المراد التطبيق عليه اسمها  Ali_1


 

Sub Create_Hidden_Named_Range_If_Not_Exists()
    Dim sPass As String
    
    sPass = "Sheet1Pass|_{A#_f^z5Pr8'}"
    
    If Not IsError(Evaluate(Split(sPass, "|")(0))) Then
        MsgBox "Named Range Exists", vbExclamation
    Else
        ThisWorkbook.Names.Add Name:=Split(sPass, "|")(0), RefersToR1C1:=Split(sPass, "|")(1), Visible:=False
    End If
End Sub

Sub Check_If_Worksheet_Password_Changed_By_Hidden_Named_Range()
    Dim ws As Worksheet, sPass As String
    
    Set ws = ThisWorkbook.Worksheets("Ali_1")
    sPass = Mid(ThisWorkbook.Names("Sheet1Pass").Value, 2)
    
    If ws.ProtectContents = True Then
        On Error Resume Next
        ws.Unprotect sPass
    
        If Err <> 0 Then
            MsgBox "Password Changed For The Worksheet: " & ws.Name, vbExclamation: Err = 0
        Else
            ws.Protect sPass
            MsgBox "Congratulations! No Change In Worksheet: " & ws.Name, vbInformation
        End If
    Else
        MsgBox "No Password For The Worksheet: " & ws.Name, vbExclamation
    End If
End Sub





18-09-2019 12:34 صباحا
مشاهدة مشاركة منفردة [12]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 293
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 576
الاعجاب : 30
 offline 
look/images/icons/i1.gif اكتشف كسر حماية ورقة العمل Check If Worksheet Password Changed
يتم عمل النطاق فعلا
لكن عند تشغيل الكود
Check_If_Worksheet_Password_Changed_By_Hidden_Named_Range

تظهر الرسالة 
Password Changed For The Worksheet
​ومعناه حدوث تغيير ، رغم انها نفس كلمة المرور !






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج حماية الخصوصية Privacy Eraser Free rima1977
1 43 rima1977
حماية المعادلات في كل أوراق العمل Protect Formulas In All Sheets YasserKhalil
12 349 YasserKhalil
السماح للمستخدمين بالتعديل فى نطاق معين فى حالة حماية الشيت Omar2
4 77 YasserKhalil
الهدية الثالثة طريقة لحماية ال VBE محمود الشريف
41 2694 YasserKhalil
هل يمكن اكتشاف كسر الحماية والحماية بكلمة مرور اخري مختلفة أباالحسن
4 106 YasserKhalil

الكلمات الدلالية
اكشتف ، حماية ، ورقة ، العمل ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 12:32 صباحا

أعلن هنا
أعلن هنا
أعلن هنا