Ali Mohamed Ali

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

أحسنت أستاذ منير موفق ان شاء الله عمل ممتاز

أحسنت استاذ هشام بارك الله فيك وجزاك الله كل خير

وعليكم السلام -اهلا بك فى المنتدى ,لك ما طلبت fixed Time.xlsm

هذه العلامة طالما انك تريد من المعادلة العد فلابد من وضعها واذا جربت ازالتها فلم يخرج الناتج كما تريد

وعليكم السلام -يمكنك استخدام هذه المعادلة =SUMPRODUCT(--($H$10:$H$20=$N1),SUBTOTAL(2,OFFSET($G$10:$G$20,ROW($H$10:$H$20)-ROW(H10),0,1))) فلترة1.xlsx

بارك الله فيك ووفقك الله دائما الى مساعدة الأخرين

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

تفضل -يمكنك استخدام معادلة المصفوفة .... لا تنسى الضغط على Ctrl+Shift+Enter =MIN(IF($B$5:$B$21>=TODAY(),$B$5:$B$21)) اظهار التاريخ القادم2.xlsx

أحسنت استاذ سليم بارك الله فيك وزادك الله من فضله

بارك الله فيك استاذ أحمد

وعليكم السلام -طبعا اخى الكريم فى ملف اكسيل

وعليكم السلام-حاول استخدام هذا الكود Sub ProtectAll() Dim wBk As Workbook Dim sFileSpec As String Dim sPathSpec As String Dim sFoundFile As String sPathSpec = "C:\MyPath\" sFileSpec = "*.xls" sFoundFile = Dir(sPathSpec & sFileSpec) Do While sFoundFile <> "" Set wBk = Workbooks.Open(sPathSpec & sFoundFile) With wBk Application.DisplayAlerts = False wBk.SaveAs FileName:=.FullName, _ Password:="swordfish" Application.DisplayAlerts = True End With Set wBk = Nothing Workbooks(sFoundFile).Close False sFoundFile = Dir Loop End Sub أو جرب هذا Add password to all Excel workbook in folder او تلك Lock a Folder – In Windows – Excel Folder Lock Code أو هذا How to protect all workbooks in a folder at once in Excel?

بارك الله فيك أخى الكريم ونوت المنتدى

أحسنت استاذ سليم دائما مبدع -بارك الله فيك وزادك الله من فضله ووسع الله فى رزقك

جزاك الله كل خير وزادك الله من فضله

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

تفضل بعد اذن الأستاذ فايز problem sum if green erorr2.xls

تفضل لك ما طلبت Data.xlsm

بارك الله فيك وزادك الله من فضله

تفضل اخى الكريم فمثلا هذه هى معادلة جلب اسم الموظف من رقمه =INDEX(staff!$B$3:$B$7,MATCH(C1,staff!$A$3:$A$7,0)) اول جزء من المعادلة وهو Index لابد ان يأتى بعدها عمود البيانات المطلوبة , وبما ان عمود اسماء الموظفين الموجود بصفحة Staff هو العمود الثانى أى عمود B ويبدأ من الخلية B3 ..فاصبح نطاق هذا العمود من B3:B7 او الى اخر خلية تريدها وبها بيانات فممكن الى B500 فليس هناك مشكلة فى هذا أما بالنسبة للجزء الثانى من المعادلة بعد وضع هذه العلامة , أو المنقوطة ; حسب اعدادات الكمبيوتر لديك فهناك باقى شرط المعادلة لإيجاد الناتج وهو Match ثم بعد القوس يتم وضع رقم الخلية للبند ان نبحث به وهو رقم الموظف بصفحة Info وتكون فى المعادلة C1 ثم يتم وضع فاصة , وبعد ذلك يوضع نطاق عمود أرقام الموظفين من الصفحة الأخرى Staff ويكون العمود الأول A وكما اتفقنا يبدأ نطاق الجدول من الصف الثالث فتكون A3 : A500 مثلا ثم بعد ذلك وضع فاصة كمان , ثم الرقم 0 صفر وبعد ذلك غلق قوسين الأول لـ Match والثانى يخص جزء Index وبكده تكون انتهت المعادلة بارك الله فيك

تفضل لك ما طلبت Data Entry.xlsm

أحسنت أستاذ عبد اللطيف عمل رائع بارك الله فيك

وعليكم السلام-اخى الكريم وبما انك لم تقم برفع ملف للمطلوب فكان عليك استخدام خاصية البحث بالمنتدى فقد تم تناول هذا الموضوع قبل ذلك كيف يقوم اكثر من مستخدم بالتعديل على ملف اكسيل فى وقت واحد ؟ أرجو المساعدة

بارك الله فيك هدية بالطبع مقبولة ,جزاك الله خير الثواب