اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

في هذه الحالة يمكن عمل الفرز عن طريق الكود .. وداخل الكود سيتم إزالة الحماية في بداية الكود ثم إرجاع الحماية بعد الفرز

ارفق ملف ليساعدك الأخوة الكرام

قام بنشر

في هذه الحالة يمكن عمل الفرز عن طريق الكود .. وداخل الكود سيتم إزالة الحماية في بداية الكود ثم إرجاع الحماية بعد الفرز

ارفق ملف ليساعدك الأخوة الكرام

ارفق ملفك للإطلاع عليه .. قم بحذف أية بيانات قد تكون حساسة واستبدلها بأية بيانات مثلا الاسماء خليها اسم 1 ، اسم 2 وهكذا

  • Like 1
قام بنشر

الأخ الكريم

يرجى تغيير اسم الظهور للغة العربية

 

إليك الملف التالي ..طبعاً ملفك محمي بكلمة سر وحضرتك لم تذكر كلمة السر وكان باستطاعتي كسر حمايته ، فقمت بعمل ورقة مشابهة تماماً لورقة العمل الخاصة بك ، وعملت حماية لها بكلمة السر 1

قبل عمل الحماية تمت إزالة الحماية عن الخلية F3 عن طريق كليك يمين Format Cells ثم من التبويب Protection قمت بإزالة علامة الصح من جانب الخيار Locked ، حيث أن هذه الخلية بها قائمة منسدلة للجان حتى يمكنك الاختيار منها

إليك الكود مرفق معه الشرح (لا تنسانا من دعائك)

Sub AllowFilterInProtectedSheet()
'يقوم الكود بالسماح بعمل فلترة للبيانات في ورقة عمل محمية
'--------------------------------------------------------
'تعريف المتغير لورقة العمل
    Dim WS As Worksheet
'تعيين الورقة النشطة
    Set WS = ActiveSheet
'بدء التعامل مع ورقة العمل النشطة
    With WS
'إزالة الحماية عن ورقة العمل بكلمة السر 1 ، والتي تعتبر كلمة السر لورقة العمل
        .Unprotect Password:=1
'إزالة الفلترة في ورقة العمل في حالة وجود فلترة للبيانات مسبقاً
        .AutoFilterMode = False
'[F3] وشرط الفلترة هو النطاق [H] فلترة البيانات تبعاً للحقل الثامن
        .Range("A4:H4").AutoFilter Field:=8, Criteria1:=.Range("F3").Value
'إلغاء الفلترة في حالة أن شرط الفلترة فارغ
        If .AutoFilterMode And IsEmpty(.Range("F3")) Then .Range("A4:H4").AutoFilter
'إعادة الحماية بنفس كلمة السر مرة أخرى
        .Protect Password:=1, UserInterfaceOnly:=True
    End With
End Sub

إذا أعجبك الحل يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

تقبل تحياتي

Allow Filter In Protected Sheet.rar

  • Like 1
قام بنشر

شكرا جزيلا على المساعدة - انا بجد اسف اني لم اضع كلمة السر لانني نسيت هذا الموضوع - اما بالنسبة للكود فلم اجربه و لكن لي طلب اخير في الشيت اللي انا ارفقته و هو ربط القائمة المنسدلة في صفحة مناداه 2 بصفحة بيانات التلاميذ و يا ريت حضرتك المنسدلة تعلمني ازاي اعمل القائمةو ربطها بالصفحة - يعني المطلوب اني لما اختار من القائمة 2 تظهر عندي لجنة 2 و هكذا - انا عارف ان طلباتي كتير - تحملني - كلمة سر الشيت - 111 -

قام بنشر

الاخ / ابو مرمر

اليك الملف محمى و يمكن التصفية على اى عمود

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

ام بخصوص الطلب الثانى لم افهمه

الصف الرابع.rar

قام بنشر

حضرتك دا شيت كنترول انا عاوز اعمل قائمة منسدلة على الجانب الشمال يعني ماتتطلعش في الطياعة يكون مرتبط برقم اللجنة اللي في صفحة بيانات التلاميذ ( على فكرة انا اللي بحدد التلاميذ اللي في كل لجنة في صفحة بيانات التلاميذ ) القائمة لما اغير الرقم اللي فيها يظهر عندي في الجدول اللي في صفحة كشوف المناداه2 التلاميذ اللي في اللجنة المحددة -

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information