خالد نور

كود يضع فى الشيت المراد عمل له كلمة سر للدخول عليه ولو كتبت غلط يرجع للصفحة الاصلية وطبعا تسطيع ان تغير اسم الشيت وكلمة السرهنا 5 تسطيع تغيرها Private Sub Worksheet_Activate() If InputBox("Password required", "مرحـــبا تفضل بالدخول") = 5 Then MsgBox "welcome ....Louda Soft" Else MsgBox "كلمة السر خطاء ستعود الى الصفحة الرئيسية, Bye !!", vbOKOnly Sheets("Sheet1").Activate End If End Sub

مشاركة اولى متميزة ملف جامد بارك الله فيك

لو امكن ممكن ان ترسل لى البرنامج وجزاك الله خيرا khaledanour@yahoo.com

كود لاخراج رسالة عند قفل الملف تلقائيا والتاريخ للتصحيح 2000 وليس 200 وممكن ان تغير التاريخ كما تحب

Sub Auto_Close() If Date >= #31/1/200# Then MsgBox " GOOD BAY" End If End Sub

بارك الله فيك مجمعة اكواد روعة فى انتظار المزيد

بصراحة الله ينور جزاك الله خير

ادخل اخى على هذا الرابط ستجد كل شىء عن الدوال فى المنتدى http://www.officena.net/ib/index.php?showforum=50

لاخفاء الصيغ والمعادلات عليك باتباع الاتى: 1- علم على الخلايا المراد اخفاء معادلاتها او على الورقة كلها لو اردت ثم كليك يمين وتدخل على الخصائص FORMAT CELLS &,وتختار PROTECTION فيظهر مربعين LOCKEDاذا علمت عليه فسوف يغلق الخلايا المختارة بعد الحماية واذا زلت العلامة لا يقوم بغلقها والاختيار الثانى HIDDEN ذلك هو موضوعنا اذا علمت عليه فسوف يقوم بأخفاء جميع المعادلات والصيغ فى الخلايا المختارة بعد عمل الحماية وبما اننا نريد ذلك فقم بوضع العلامة فى المربع الصغير واضغط OK ..... انظر ليس هذا كل شىء فحتى الان لم يتغير شىء انما هو اعداد لما هو قادم 2- بعد الانتهاء من الخطوة الاولى من القوائم نختار TOOLS & PROTECTION &PROTECT SHEET ونقوم بوضع كلمة سر للشيت ونضغط OK بذلك نكون قد اخفينا كل المعادلات والصيغ اذا اردت ان تظهرهم مرة اخرى الغى الحماية من على الشيت بنفس الخطوات السابقة رقم 2 وبدل من حماية شيت نختار الغاء حماية وندخل كلمة السر التى وضعناه مسبقا ارجو ان اكون قد وفقت فى توضيحى والله المستعان وتقبل تحياتى اخى الكريم

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

اخى العزيز halwim فى صندوق البحث فى اسفل الصفحة على اليمين أدخل بدل كلمة البحث اسم مميز للموضوع المراد البحث عنه مثلا فى حالتك تدخل كلمة نقل أو ترحيل وتقوم بالبحث بكلتا الكلمتين مرة بعد اخرى وسوف تجد مبتغاك بإذن الله تعالى واحتمال كبير ان تجد اكثر مما تريد والله المستعان وانا تحت امرك واليك روابط الموضوع الاصلى وروابط اخرى تكلمت على هذا الموضوع مسبقا فى المنتدى تفضل يأخى العزيز http://www.officena.net/ib/index.php?showtopic=5040 http://www.officena.net/ib/index.php?showtopic=8249 http://www.officena.net/ib/index.php?showtopic=6237

الاخ borkan الرجاء توضيح محتور الرسالة التى تظهر بالتفصيل حتى يتم مساعدتك هلى خاصة بالماكرو عموما لو خاصة بالماكرو اخفض مستوى الامان من قائمة TOOLS & MACRO &SECURITY& HOJHV اختار مستوى الامان المنخفض LOWواضغط OK,HRTG واقفل الملف وافتح وجرب

تفضل اخى فصل الرقم الصحيح والرقم العشرى

اليكم برنامج يدعم الصوت وحساب العمر بعد ادخال تاريخ ميلادك والخروج من الخلية او ضغط انتر يتم تشغيل ملف صوتى تلقائيا ويمكنك تغيير الملف الى اى شىء تريدة اخر فالاكواد مفتوحة لديكم وطبعا هذا العمل تم بالاستفادة والتعلم وأقتباس من اعمال اعضاء ومشرفين اخرين فى هذا المنتدى واخص بالشكر اخى على السحيب اليكم الرابط لان حجم الملرفقات لا ايكفى لتحميله على المنتدى معلش الرابط طويل http://www.arbup.net/v/2133842/60_59_58_57..._2_1__.rar.html Adge.zip

اخى العزيز يوجد الاجابة على هذا السؤال فى المنتدى سابقا ولو قمت بعمل بحث لوجدت الكثير مما يفوق المتوقع ان تحصل عليه وهذا يدعونى الى مناشدة جميع الاعضاء بعدم اهمال خاصية البحث فى المنتدى فهى توفر عليك جهد كبير وتمنع تكرار مواضيع قد اجيب عنها وشرحت شرح وافى ففى المنتدى كنوز معرفة حقيقية تنتظر من يبحث عنها عموما اخى العزيز فى الملف المرفق يوجد ملفين لعلك تجد مبتغاك ويساعدونك وهم فى مشاركات قديمة فى المنتدى منهم ملف للاستاذ محمد حجازى وتستطيع ان ترجع للمشاركات الاصلية ان اردت _______________.rar

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

اخى لك ماطلبت نموذج إدخال وحذف واستفسار وطباعة جرب واخبرنى رائيك وإن شاء الله يعجبك وقد رفعته على مركز تحميل لعدم استطاعتى ان ارفقه فى المنتدى وياريت حد يحل لى مشكلة تحميل المرفقات درورى بعد اذنكم وهذه وصله التحميل http://www.arbup.net/v/7120047/6_5_4_3_2_1__.rar.html

على علمى لاينفع ان تقوم بتعطيلهما لكن تستطيع أن تعمل حماية على الاكواد بكلمة سر فلا يستطيع احد ان يقراء او ينسخ هذه الاكواد إلا اذا كان معاه برنامج كسر الحمايه ولعمل حماية على الاكواد إضغط ALT+F11ومن شريط القوائم اختار TOOLS Eثم اختار VBA PROJECT PROPERTIES ثم تظهر نافذة بها زرين GENERAL & PROTCTION اضغط على زر PROTCTION ثم علم على المربع أمام كلمة LOCK PROJECT FOR VIEWING ثم اكتب كلمة السر اللى انت عايزها واضغط OK وبذلك تكون قد عملت كلمة سر فلا يستطيع احد الاصلاع على اكوادك إ لا انت طبعا بعد ما تقوم بكتابة كلمة السر الصحيحة كان نفسى اوضحلك بالصور بس متهيألى انها واضحة وعموما اى استفسار انا معاك

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

حجم المرفقات كبير لايسمح بتحميل الجزئين الاخيرين عموما لا تقلقو فبعد إذن المشرف hS889 ان ارسله له على الايميل ليقوم برفعه على المنتدى هذا حل والحل الاخر الذى لا أحبذه كثيرا ان أرسله لمن يريده على الايميل لكم تحياتى وانا فى انتظار الرد

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

لعل هذا ماتريد والله اعلم ____________.rar

اخى العزيز لاظهار الاوراق المخفية من قائمة FORMAT نختار SHEET ثم نختار UN HIDE فتظهر لنا قائمة بالاوراق المخفية قف بالؤشر على الورقة التى تريد أظهاره ثم اضغط OK فتظهر الورقة ولعمل اخفاء للورقة نتبع نفس الخطوات السابقة ونختار HIDE بدلا من UNE HIDE فتختفى الورقة النشطة التى تعمل بها

اليك الملف

الاخ AS SA2003 تحياتى اولا لست انا لست صاحب المشكلة فى التنقل بل الاخ ابو مشارى وقد فكيت جميع الحماية على الملف وارسلت له الملف على الايميل لكن لللاسف لم يرد على اذا كان استلمه ام لا وذلك وقد ارسلته له على ايميله الخاص وذلك حفاظا على مجهود من قام بعمل الملف ويبدو انك لم تقراء المشاركات كلها من الآول ثانيا انا اطلعت على المرفق فى رسالتكم وجدته غير الملف الموجود فى المشاركة الاولى للاخ ابو مشارى