اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

السماح بفلترة البيانات مع حماية ورقة العمل


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

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

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

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

معلش انا بحاول عمل شيت كنترول و دي محاولة بس مش عارف اكملها انا عاوز اعمل تصفية لعمود اللجنة في صفحة كشوف النداء 2 و في نفس الوقت اعمل حماية علشان المعادلات اللي فيها ماتتغيرش

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

رابط هذا التعليق
شارك

الأخ الكريم

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

 

إليك الملف التالي ..طبعاً ملفك محمي بكلمة سر وحضرتك لم تذكر كلمة السر وكان باستطاعتي كسر حمايته ، فقمت بعمل ورقة مشابهة تماماً لورقة العمل الخاصة بك ، وعملت حماية لها بكلمة السر 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