حماية الأوراق

[Akram Galal]

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

أريد كود يقوم بحماية الأوراق جميعا بباسوورد

وكود أخر لإلغاء حماية الأوراق جميعا

جزاكم الله خيرا

[ابوحمزه المصرى]

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

Dim IN_SH As Worksheet
On Error Resume Next
For Each pro In Worksheets
If pro.ProtectScenarios = False Then
pro.Protect "123"
End If
Next pro
End Sub

Dim UN_SH As Worksheet
On Error Resume Next
For Each pro In Worksheets
If pro.ProtectScenarios = TRUE Then
pro.UNProtect "123"
End If
Next pro
End Sub

 

[Akram Galal]

بارك الله لك أخي صلاح

كود ممتاز

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز صلاح المصري

في الكود أعلنت عن المتغير IN_SH من النوع ورقة عمل .. ولم تستخدمه في الكود ، واستخدمت المتغير pro بدلاً منه ولم تعلن عنه ... اضبط الكود يا كبير

جزاكم الله خير الجزاء ..أيوا كدا عايز أشوف شغلك في المنتدى يا أبو الصلح

تقبل وافر تقديري واحترامي

[ابوحمزه المصرى]

دائماً نتعلم منك ياكبير .. ماشاء الله على قوة المتابعه والملاحظة .. بارك الله فيك

التعديل

Dim INSH As Worksheet
On Error Resume Next
For Each INSH In Worksheets
If INSH.ProtectScenarios = False Then
INSH.Protect "123"
End If
Next INSH
End Sub

Dim UNSH As Worksheet
On Error Resume Next
For Each UNSH In Worksheets
If UNSH.ProtectScenarios = TRUE Then
UNSH.UNProtect "123"
End If
Next UNSH
End Sub

 

[ياسر خليل أبو البراء]

وبردو نسيت تضع اسم الإجراء الفرعي .. الكود داخل ع الحامي !! أرجو أن تتقبل ملاحظاتي

وفيه ملحظة بالنسبة للنوعية دي من المتغيرات يفضل أن نطلق سراحها في نهاية الكود بهذه الجملة

Set INSH=Nothing

[ابوحمزه المصرى]

كده تمام

Sub IN_SH ()
Dim INSH As Worksheet
On Error Resume Next
For Each INSH In Worksheets
If INSH.ProtectScenarios = False Then
INSH.Protect "123"
End If
Next INSH
Set INSH=Nothing
End Sub
Sub UN_SH ()
Dim UNSH As Worksheet
On Error Resume Next
For Each UNSH In Worksheets
If UNSH.ProtectScenarios = TRUE Then
UNSH.UNProtect "123"
End If
Next UNSH
Set UNSH=Nothing
End Sub

 

[ياسر خليل أبو البراء]

أخي الحبيب صلاح

عارف إني غلبتك معايا ..باقي حاجة تافهة كدا بس حاول تتعود عليها عشان يكون الكود سهل لما نحب نقراه ..

استخدم مفتاح التاب لضبط أسطر الكود أو ادخل على الموضوع التالي لمعرفة كيفية ضبط أسطر الكود في الشكل

من هنا الموضوع

[ابوحمزه المصرى]

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

تم تعديل مارس 8, 2016 بواسطه صلاح المصرى

[أبوبسمله]

جزاك الله كل خير اخى صلاح

وجزاك الله كل خير اخى ابو البراء

بس انا زعلان ياعنى واخد بالك من صلاح وسايبنى ههههههههههههههه اوعى تزعل ياصلاح احنا بنهرج

بس اوعى تضرب ياابوالبراء هههههههههههههههههه حبيبى

 

[ياسر خليل أبو البراء]

أخي الغالي أحمد

كلكم إخواني وعلى عيني وعلى رأسي ..وبعدين أنا واخد بالي من كله (مراقبك وهراقبك)

تقبل تحياتي

[محي الدين ابو البشر]

منذ ساعه, ياسر خليل أبو البراء said:

أخي الحبيب صلاح

عارف إني غلبتك معايا ..باقي حاجة تافهة كدا بس حاول تتعود عليها عشان يكون الكود سهل لما نحب نقراه ..

استخدم مفتاح التاب لضبط أسطر الكود أو ادخل على الموضوع التالي لمعرفة كيفية ضبط أسطر الكود في الشكل

من هنا الموضوع

Sub IN_SH()
    Dim INSH As Worksheet
    On Error Resume Next
    For Each INSH In Worksheets
        If INSH.ProtectScenarios = False Then
            INSH.Protect "123"
        End If
    Next INSH
    Set INSH = Nothing
End Sub
Sub UN_SH()
    Dim UNSH As Worksheet
    On Error Resume Next
    For Each UNSH In Worksheets
        If UNSH.ProtectScenarios = True Then
            UNSH.Unprotect "123"
        End If
    Next UNSH
    Set UNSH = Nothing
End Sub

بعد استخدام البرنامج الجميل من حضرتك يصبح هكذا

شكراً لك وبارك الله بك وجزاك كل خير

[أبوبسمله]

2 ساعات مضت, ياسر خليل أبو البراء said:

أخي الغالي أحمد

كلكم إخواني وعلى عيني وعلى رأسي ..وبعدين أنا واخد بالي من كله (مراقبك وهراقبك)

تقبل تحياتي

حبيبى يا ابوالبراء وجزاك الله كل خير اعانك الله علينا

طبعا فى كود انا مستنى تعليقك عليه وحاسس ان فيه جزء غلط بس من غيرضرب

من غير ضرب بقا الله هههههههههههههههههه

جزاك الله كل خير يا ابوالبراء

[ياسر خليل أبو البراء]

أخي الحبيب محي الدين

جزيت خيراً بمثل ما دعوت لنا وزيادة

والحمد لله أن تم المطلوب على ما يرام ..

البرنامج بالفعل جميل جداً ويسهل قراءة الكود بشكل كبير

 

أخي العزيز أحمد

من إمتى بضرب ..!! أنا لسه في المرحلة الأولى موصلناش لمرحلة الضرب ... بس أكيد ممكن نوصل لمرحلة الضرب والقسمة والجمع والطرح وضرب الأسس وفك الأقواس والتربيع والتكعيب إلخ إلخ