نجوم المشاركات

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

السلام عليكم ورحمة الله وبركاته كل عام وأنتم إلى الله أقرب...آمين بارك الله بكم جميعاً.. حقيقة غيابك أستاذنا أقلقنا ...الحمد لله على عودتك بالسلامة.

كل عام و انتم جميعا بخير عودا حميدا استاذنا الفاضل / عادل حنفي و نتمنى وجودك دائما بيننا

أخي وحبيبي في الله عادل حنفي كل عام وأنت بخير ونتمنى تواجدك فيما بيننا على الدوام ..فقد رجعت وانقطعت مرة أخرى تقبل وافر تقديري واحترامي

وعليكم السلام استاذ محمد الفكرة نفسها .. لكن بما ان الورقة 3 بها صفان فارغان قبل الجدول .. فقط قم باضافة +2 كما في الصيغة الاتية =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(ورقة3!B:B)+2;"الانتقال إلى آخر صف")

المثال المرفق يبين كيفية اختيار بيانات من مجال محدد عن طريق كومبو و اظهار النتيجة كصف فى مكان آخر و لأن هذه الطريقة تعيد القيمة فى خلية واحدة فقط فقد تم الاستعانة بالدالة vlookup لعرض باقي القيم أولا : من تخصيص اليقونات اضغط علي صندوق الادوات Toolbox و ختار القائمة المنسدلة combo box و ضعها فى ورقة العمل اختار القائمة المنسدلة بالزر الايمن ثم Format Control control وحدد مجال الادخال و النتيجة ( راجع المثال ) combo1.xlsx

لا اعرف اذا كان هذا المطلوب بالضبط tekrar one_time 1.rar

عليكم السلام اخي الغالي ابو يوسف هل يزيد مجرد صف واحد الذي يسببه صف الاجمالي بالاسفل اذا كان كذلك فضع المعادلة هكذا =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(الجدول1[[#All];[الاسم ]])+1;"الانتقال إلى آخر صف") باضافة +1 فقط بدلا من +2 لتجنب زيادة صف الذي سببه الاجمالي اما اذا كان غير ذلك فياريت ترفق ملف به نفس الجدول الذي تعمل عليه ببيانات وهميه تقبل تحياتي

حبيبي ياسر الله يخليك المنتدي منور بيكم وكل سنه وانت بكل خير تحياتي

وانت بالف صحة وسلامة حبيبي ا / عادل عودا حميدا نورت المنتدى تقبل فائق احترامي

Sub UpdateFooter_Header1() Dim SH As Worksheet For Each SH In Worksheets With SH .PageSetup.RightHeader = Sheets("البيانات").Range("Q3").Value & Chr(13) & Range("Q4").Value .PageSetup.CenterHeader = Sheets("البيانات").Range("P1").Value & Chr(13) & Range("R1").Value .PageSetup.LeftHeader = Sheets("البيانات").Range("Q5").Value & Chr(13) & Range("Q6").Value .PageSetup.RightFooter = Sheets("البيانات").Range("A1000").Value .PageSetup.CenterFooter = Sheets("البيانات").Range("b1000").Value .PageSetup.LeftFooter = Sheets("البيانات").Range("c1000").Value End With Next End Sub

الاخ ناصر سعيد اضغط علي الرابط لتحميل فيديو شرح البروجرز بار

في موضوع لاخي الكريم // مؤمن جمعة (عمل لوحه UserForm بترحيل بيانات) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=49583&hl= وطلبه لتصميم برنامج لمتابعة حركة السيارات وتسجيل العمليات المتعلقة ونظرا لان عنوان الموضوع لا يدل علي محتواه وبعد اذن ادارة المنتدي طرحت الموضوع بشكل منفصل حتي يكون في متناول الجميع ولسهولة البحث بعد ذلك بالمنتدي الكريم ويمكن تعديل القاعدة لتتلائم مع شركات تاجير السيارات واضافة حساب كيلومترات السيارة وتكلفة الايجار علي حسب الحاجة وادعوا الله ان يكون الموضوع فيه الفائدة للسائل او الباحث شرح موجز لوظائف الفورم ولا تنسونا بدعوة بظاهر الغيب بصلاح الحال متابعة السيارات.rar

السلام عليكم ورحمة الله وبركاته نبدء بشرح برنامج Omar_Progress وهو عباره عن فورم وموديول كود الموديول يتم التعديل فيه كالاتى اللوب الموجود به ( For ..Next) يعدل ليكون هو اللوب للبرنامج الخاص بك كالاتي هذا اللوب () سيكون اللوب الرئيسي لبرنامجك مع تغير قيم ( Start_Counter و End_Counter ) لتكون هي قيم اللوب الخاص لبرنامجك او او استبدال متغيرات ( For … Next) وهي ( Start_Counter و End_Counter ) بمتغيرات البرنامج الخاص بك ( For … Next) فقط لا غير Sub Omar_Progress() ' Dim Per As Single, x As Double End_Counter = 50 '========================================================================================== For Start_Counter = 1 To End_Counter O_Omar_Progress_O.Caption = Space(12) & Start_Counter & Space(3) & "مـن إجمـالـى" & Space(3) & End_Counter Per = Start_Counter / End_Counter O_Omar_Progress_O.Label_Bar.Caption = Format(Per, "00%") MyProgress Per DoEvents '========================================================================================== ' My Code '========================================================================================== Next ' End Sub Omar_1.rar

جرب هذه المغادلة في الخلية A2 و اسحب نزولاً (تعمل على 2007) =IF(B2<>"",SUBTOTAL(103,$B$2:B2),"")

عليكم السلام نحن كمسلمين و لله الحمد اجابتنا للرسالة "بسم الله الرحمن الرحيم","الله اكبر" دائماً نعم ولا مجال لخيار آخر. اما الموضوع الخاصة بنموذج ، الصق الكود التالي If MsgBox("هل تريد فتح النموذج في وضع ملء الشاشة", vbYesNo, "الرسالة") = vbNo Then MsgBox "No" Else DoCmd.Maximize End If

جرب هذا الملف tekrar one_time.rar

نعم استعلام اجرائي Database3.rar

جزء من المطلوب تحياتى الاسماء المكررة _معدل_g (2).rar

السلام عليكم : أسأل الله بالتوفيق والعافية للعاملين على هذا المنتدى لما ينشروه من العلم

السلام عليكم و رحمة الله و بركاته اخي انظر الاستعلام الحقل الاول يرجع تاريخ تقريبي من تاريخ الحالي كما تفضل الاخ ابو خليل و الآخر (1/1/سنة تاريخ الحالي ناقص Age) Database3.rar

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

جزاك الله خيرا على الرد السريع للأسف هذه الدالة تعمل على 2010 و أنا عندي 2007 سأنزل 2010 الآن و سأجربها فورا شكرا لك

ضع في الخلية A2 الصيغة الاتية واسحب لاسفل =AGGREGATE(3;7;$A$1:A1)

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

السلام عليكم اخي الحبيب العالي ابو البراء تحياتي واشواقي وانا من يخسر بالبعاد عنكم وكل عام وانت بخير اخي الحبيب أ/ جلال الجمال اسعدني مروك وكلماتك ويشرفني دائما ان اكون بينكم وكل عام وانت بخير اخي الحبيب ابو يوسف اشكرك اخي الحبيب ولا تقلق علي غالي عليك ابدا ربنا يبارك فيك وكل عام وانت بخير

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...أما بعد: السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام... تابعت مؤخراً طرق متعددة للارتباطات التشعبية وكان أحدها يوصلك سريعاً إلى آخر خلية تمت الكتابة بها في عمود لأحد أساتذتنا الكرام =HYPERLINK("#"&"ورقة1"&"!"&"b"&COUNTA(ورقة1!B:B);"الانتقال إلى آخر صف") وقد كانت معادلة رائعة لكنها ضمن نطاق لا جدول ... ما أرغبه هو النتيجة ذاتها ولكن ضمن جدول لا نطاق وقد أرفقت ملفاً يبين المطلوب وهو أن نقوم بالورقة2 بإدراج ارتباط تشعبي يبرز آخر اسم في الجدول ضمن الورقة3 والسلام عليكم ورحمة الله وبركاته.. ارتباط تشعبي متقدم.rar

الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

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

تفضل اخي الغالي =HYPERLINK("#"&"اليومية"&"!"&"d"&COUNTA(مبيع17[[#All];[الاسم Account Name]])+12;"الانتقال إلى آخر صف") ارتباط تشعبي.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة التنبه عند تكرار قيمة تم ارفاق كود الحل من الفاضل/ محمد طاهر و لا تنسونا من صالح الدعاء تحياتى CheckBuplicated (1).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة عمل قائمة منسدلة بدون كود تم ارفاق كود الحل من الفاضل/ محمد طاهر و لا تنسونا من صالح الدعاء تحياتى Form1 عمل قائمة منسدلة بدون كود.rar

السلام عليكم احسنت اخي عبد السلام واسمح لي بالمشاركة اخي Kel1110 جرب الملف المرفق test.rar

السلام عليكم اخي عمر الحسيني بارك الله بكم , انا خبرتي قليلة ويمكن لم اقوم بتطبيقه بالشكل الصحيح اشكر تعاونك معي وفقكم الله اخي عبد السلام ابو العوافي جزاكم الله خيرا .كود رائع ويعمل بشكل صحيح وفقكم الله شكرا لتعاونكم معي

حقيقة لازلت افكر في هذه المعضلة .. المرفق يبين ان 0.15*3 يساوي 0.45 عن طريق المعادلات بينما لا يساويه عن طريق الاكواد .. 0.45 not equel 0.45.rar

الا خ مصطفى محمود مصطفى اخي انا اعمل علي اوفيس 11 وهو يعمل جيد

الاخ طاهر محمد الخ أبو حنــــين طريقه اخري بالمرفقات 1_مشتريات - جديد.rar

استاذنا ياسر .. القيمة هي ناتج ضرب 0.15*3 يعني القيمة هي 0.45 .. جربت كل الطرق التي اعرفها وغيرت انواع المتغيرات ولم اعرف السبب اخونا مصطفى .. الكود يعمل بشكل جيد الا في هذه القيمة .. للتغلب علي المشكلة قم بكتابة القيمة يدويا ولا يزال هذا الخطأ يشغل تفكيري ..

جرب هذا الكود Sub salim() Dim rg As Range Dim m, i As Integer Range("j8:j500").ClearContents m = 8 For i = 3 To 7 Step 2 Set rg = Range(Cells(8, i), Cells(500, i)).SpecialCells(xlCellTypeConstants, 23) rg.Copy Cells(m, "j") m = m + rg.Count + 1 Next End Sub

الا خ مصطفى محمود مصطفى استخدم هذا الكود قبل الطباعة Sub CopyHeadersFooters() ' Dim Sh As Worksheet Sheets("البيانات").Select With ActiveSheet.PageSetup lh = .LeftHeader ch = .CenterHeader rh = .RightHeader lf = .LeftFooter cf = .CenterFooter rf = .RightFooter End With For Each Sh In Worksheets With Sh.PageSetup .LeftHeader = lh .CenterHeader = ch .RightHeader = rh .LeftFooter = lf .CenterFooter = cf .RightFooter = rf End With Next ' End Sub

تم جلب البيانات لكن ان تظهر البيانات على شكل جدول هذا ليس لي به علم مشتريات - جديد.rar لكن يمكن التحايل بهذه الطريقة لرسم الحدود الرأسية للجدول مشتريات - جديد2.rar

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

البروجرز بار الثالث و الرابع والخامس وتستخدم بنفس الاسلوب الاول Omar_3_5.rar ملحوظه : مؤشرات التقدم الخمس صناعة عربية مصرية 100% لكم مني كل تحية الاخ أبو يوسف شكرا لك اخي هذا اكثر مما استحق فهذه البرامج من مكتبتي وقد انشأتهم منذ عدة سنوات سابقه

البروجرز بار الثاني ويستخدم بنفس الاسلوب السابق Omar_2.rar

أساتذتى وإخوتى الكرام .. الملف التالى حول احد الدوال البحثيه .. Find.. الملف يتناول شرح وسائط الدالة .. اتمنى ان يمثل إضافه بسيطة .. المرفقـــات Find_2.rar

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

ربط عمود فى ورقة1 بعمود بورقة 2 بحيث لو حصل اضافة او حذف او تعديل يتاثر بية ولكم جزيل الشكر

أليك أخي المطلوب وأنا تحت أمرك وأهلا بك أخا عزيزا بين أخوتك ربط عمود بأخر.rar

ماذا تفعل لو أردت أن تنفتح ملفات الاكسيل الجديدة و بها خصائص معينة تختارها بنفسك كاعداد معين للصفحة أو تنسيق معين أو اضافة فى الرأس أو التذييل Header & Footer الخ ... تقوم بعمل ما تريد من تعديلات علي ملف خالي ثم تحفظه فى c:\Program Files\Microsoft Office\Office10\XLStart او مسار الأوفس لديك و تختار نوع الملف template قالب أي بالامتداد xlt و تختار الاسم Book و هذا معناه أن الملف Book.xlt سيكون القالب الذي يتم بناء عليه فتح الملفات الجديدة Book1.xls مثلا و بهذا توفر كل الاعدادات التي تقوم بها كل مرة فى ملفات الاكسيل ملاحظة : عند اختيار النوع template يتغير المسار تلقائيا الي المسار الافتراضي للقوالب فيراعي اعادة المسار الي المسار السابق

عندما نقوم بحماية ورقة العمل ، كيف يمكننا إستثناء بعض الخلايا من الحماية ؟؟ الإجابة : عن طريق استثناؤها من الحماية في الاكس بي Tools protection allow users to edit ranges ثم عرف المجال الذي تريد أو اختار الخلية و من القائمة المختصرة للماوس Format Cell و أزل خيار Locked ثم طبق الحماية علي ورقة العمل ستجد أن الخلية مستثناة من الحماية أي تقوم بعمل إستثناء للخلايا من الحماية عن طريق إختيارها ثم إختيار خصائص ، و حماية ، و الغاء تأمينها ثم عندما تطبق الحماية علي ورقة العمل ، تكون هذه الخلايا قد أستثنيت منها بالفعل