محمد يحياوي

تابع للشرح Link_Betwen_many_Combo_Boxes.rar

الاخ الكريم هذا الشرح من اعمال الاستاذ الكبير عمر الحسيني "ابو ثامر" إنشاء قوائم منسدلة متعددة المستويات.rar Creat_many_Range_Names.rar

كود تمرير نص كل مدة في يوزر فورم تمرير نص كل مدة في يوزر فورم.rar

الاخ الكريم لاحظ الملف قد يكون المطلوب AoutoFilterSearchWord.rar

الاخ الكريم قد يكون طلبك في هذا الموضوع و تستطيع ان تتصرف فيه قائمة منسدلة مفلترة

الاخ الكريم ملفك ليس به اي مشكلة Book11.rar

تنفيذ ماكرو بعد مدة من الزمن مثال1: ماكرو فتح فورم Sub showform() UserForm1.Show End Sub و في حدث فتح المصنف Private Sub Workbook_Open() Application.OnTime Now + TimeValue("00:00:05"), "showform" End Sub مثال2: ماكرو اخفاء الفورم Sub Hideform() UserForm1.Hide End Sub وفي حدث UserForm_Initialize Private Sub UserForm_Initialize() Application.OnTime Now + TimeValue("00:00:05"), "Hideform" End Sub تنفيذ ماكرو بعد مدة.rar

اقصد ان الادارة يمكنها تثبيت الخط الافتراضي للمنتدى

ربط ماكرو ب optionbottons macro_optionbotton.rar

الاخ الحبيب "ابو نصار" طالت غيبته و اشتقنا لوجوده معنا ... عسى ان يكون المانع خير

الاخ الكريم "يوسف" اظن ان ذلك من صلاحيات الادارة

الاخ الكريم الارتباطات تبقى صحيحة و في حالة تغيير مكان الملف او اسمه او امتداده يصبح الارتباط غير صحيح لذا وجب عليك القيام باحد الامرين : 1 - ارجاع الملف اى وضعته الاولى (المكان - الاسم - الامتداد) 2 - تتبع الخلايا و النطاقات المحتواة على الارتباطات و تغييرها بالاسم الجديد او الامتداد الجديد او المكان الجديد

الاخ الحبيب "الحسامي" بارك الله فيك اكواد جميلة و رائعة ... وفقك الله هذا كود ربط ماكرو بزر اختيار (CheckBox) macro_CheckBoxs.rar

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

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

كود اظهار رسائل عشوائية مختلفة كل فترة من الزمن Sub yah_msgs() Const Title As String = "مرحبا : منتدى اوفيسنا" Const Delay As Byte = 3 Dim wsh As Object Set wsh = CreateObject("WScript.Shell") Dim strQuotes(2) As String Dim lngIndex As Long strQuotes(0) = "السلام عليكم و رحمة الله" & vbLf & vbLf & "اليوم هو " & Date strQuotes(1) = "كل عام وانتم بخير" & vbLf & vbLf & "اليوم هو " & Date strQuotes(2) = "تقبل الله منا ومنكم" & vbLf & vbLf & "اليوم هو " & Date lngIndex = Int((2 - 0 + 1) * Rnd + 0) wsh.Popup strQuotes(lngIndex), Delay, Title, wButtons Set wsh = Nothing Application.OnTime Now + TimeValue("00:00:5"), "yah_msgs" End Sub كما يمكن وضع الكود في حدث فتح المصنف Private Sub Workbook_Open() yah_msgs.rar

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

الاخ الحبيب "ابو احمد" افكار جميلة و رائعة و لكن اسمح لي بهذه المداخلة لاثراء الموضوع بالنسبة لزراختيار الموجود في form يمكن ربطه ايضا بماكرو كما في المثال Book2.rar

الاخ الحبيب "ابو الحارث" بارك الله فيك ...كود جميل من اخينا الحبيب "كيماس" و هذا كود اخر لتعطيل الحفظ باسم Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If booAllowSave = False Then Cancel = True MsgBox "لا يمكنك الحفظ...", vbOKOnly, "منع الحفظ" End If End Sub Private Sub Workbook_Open() booAllowSave = False End Sub و هذا كود لتعطيل الاجراء للحفظ استثناء اذ انه لايمكن حفظ الكود داخل الملف و الدالة شغالة 'كتابة الكود في module Global booAllowSave As Boolean Sub yourSavefunction() booAllowSave = True MsgBox "الحفظ جار...", vbokayonly, "تمكين الحفظ" Application.Dialogs(xlDialogSaveAs).Show booAllowSave = False End Sub DisableSaveAs.rar

الاخ الكريم نعم ممكن .... لاحظ المرفق 2 forms.rar

كود لتعطيل الماوس و لوحة المفاتيح مدة من الزمن Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub DesableMouKey() BlockInput True Sleep 10000 BlockInput False End Sub تعطيل الماوس لوحة المفاتيح.rar

الاخ الحبيب "سعد عابد" بارك الله فيك على المعلومة القيمة لي ملاحظتين : 1 - الطريقة ناجحة ايضا في 2010 2 - في حالة وجود اكثر من سطرين فارغين متتاليين نضغط مرة اخرى على استبدال

الاخ الحبيب "نادر" تحية عطرة و كل عام و انت بخير

الاخ الحبيب "خبور" تحية عطرة و دمت بالف خير

الاخ العزيز "انور نور" بارك الله فيك ... ودمت بالف خير