محمد يحياوي

الاخ الحبيب "طاهر" الحماية في اكسل غير تامة و كلما ازداد الشخص خبرة تعلم كثيرا من طرق الحماية و بالمقابل سيكتشف ايضا الكثير من طرق كسر الحماية لذلك اخي الكريم لا تجهد نفسك كثيرا في البحث عن طرق الحماية فهناك عقبة كبيرة امام طرق الحماية و هي امان الماكرو اذا حلت هذه المشكلة يستحيل بعدها كسر حماية اي ملف الاخ الحبيب "ابو الحارث" هناك كودان الكود الاول يوضع في حدث Workbook_SheetActivate اما الكود الثاني يوضع في موديل عادي وهذا الملف للتجربة يغلق بعد 2د ارجوا ان اكود قد وصلت الفكرة ... وفقك الله اخي ابو الحارث غلف ملف غير نشط.rar

الاخ الكريم "طاهر" لقد قمت بتعديل الكود بما يتناسب مع المرفق و يمكنك مقارنة الملفين لفهم فحوى الكود اما عن الخلايا المسؤولة عن البحث فهو المدى "CODE" و مربوط بالكمبوبكس عن طريق خصائص هذا العنصر يمكننا مناقشة هذه الامور عند اطلاعك على الملف \'إستراد بيانات من جدول إلى فورم_3.rar

هي كذلك كما اسميتها اخونا الكبير "احمد زمان" ... نسخة احتياطية خفيفة

الاخ الحبيب "طاهر" اليك الملف مفتوحا VBA-MP3-Player .rar

الاخ الحبيب "ابو احمد" جزاك الله خيرا و شكرا على المجهودات الكبيرة و الله يوفقك

الاخ الحبيب "طاهر" الملف يعمل جيدا

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

العفو اخي الكريم وفقك الله الى الخير

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

الاخ الحبيب اليك الملف مع التعديل \'فورم ادخال بيانات.rar

هل اضطررت يوما ان تنسخ اوراقك بما فيها من بيانات لكن دون اكواد او صيغ و معادلات او ارتباطات تشعبية او تسمية نطاقات باختصار شديد نسخة عذراء ليس فيها سوى البيانات ... يمكن ذلك مع هذا الملف جرب و اعطيني رايك SaveSomeSheets.zip

الاخ الحبيب "احمد فضيلة" ملف جميل جدا اشكرك على الجهد العظيم وفقك الله

الاخ الحبيب "ابو الحارث" شكرا جزيلا على المتابعة وفقك الله الى مايحب و يرضى

كود غلق الملف الغير نشط بعد مدة من الزمن 30د مثلا يحدث في بعض المرات ان تترك الملف مفتوحا وفيه بعض البيانات المهمة و الحساسة و يمكن ان تطول مدة غيابك اذا ليس لك حل سوى هذا الكود و هو ينوب عنك في حفظ البيانات و غلق الملف ارجوا ان يحوز اعجابكم Private Sub Workbook_SheetActivate(ByVal Sh As Object) Call Timer End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Call Timer End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call yahp End Sub Public vartimer As Variant Sub Timer() Call yahp vartimer = Format(Now + TimeSerial(0, 30, 0), "hh:mm:ss") If vartimer = "" Then Exit Sub Application.OnTime TimeValue(vartimer), "yahm" End Sub Sub yahm() With Application .EnableEvents = False ActiveWorkbook.Save .Quit End With End Sub Sub yahp() On Error Resume Next Application.OnTime earliesttime:=vartimer, _ procedure:="yahm", schedule:=False On Error Goto 0 End Sub

اخواني الكرام اثناء تجوالي في بعض المواقع عثرت على هذا الملف الرائع و هو عبارة عن مشغل الملفات الصوتية ارجوا ان ينال رضاكم VBA-MP3-Player.rar

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

الاخ الحبيب السلام عليكم و رحمة الله و بركاته ارجو يكون المرفق هو المطلوب AoutoFilterSear4.rar

الاخ الحبيب "احمد فضيلة" بارك الله فيك و شكرا على الشعور الطيب وفقك الله الاخ الحبيب "جمال الفار" جزاك الله خيرا و وفقك الله الى الخير

الاخ الحبيب "ابو الحارث" بارك الله فيك و سدد خطاك

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

الاخ الحبيب ابو نصار بارك الله فيك هذا كود ادراج ساعة رقمية في خلية او فورم يعني بثلاثة طرق clock in userform .rar

الاخ الكريم لاحظ الملف المرفق 13_2.rar

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

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

شكرا لك اخي الحبيب "ابا الحارث" و شكرا لاخينا الحبيب "ابو احمد" كود ارجاع الخط الافتراضي و مسح جميع التنسيقات Sub RemoveFormatsAndRestoreFont() Application.ScreenUpdating = False Selection.ClearFormats Application.ScreenUpdating = True End Sub الخط الافتراضي و حذف كل التنسيقات.rar