حشروف قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 الرجاء من السادة المهندسين وخبراء الاكسل تزويدي بخطوات اعداد برنامج لاتظهر به قوائم الاكسل ولا اوراق العمل باختصار برنامج بالاكسل شبيه الدالفي ، فقد أعجبني تصميم برنامج ema للأستاذ الصقر الجريح ، فوددت أن أتعرف على خطوات انجاز مثل هذه التصاميم وشكرا. رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 اخى الكريم حشروف مرحبا بك فى هذا الصرح العظيم بين اخوانك اليك الكود التالى للعلامه القدير عبدالله باقشير انسخ هذا الكود وقم بلصقه فى مودويل جديد جرب وعلمنى بالنتيجة تقبل تحياتى ÇáßæÏ ãä ÇÚãÇá ÇáÑÇÆÚ ÇáÚáÇãå ÚÈÏÇááå ÈÇÞÔíÑ Public xx As Integer Public x As Integer Sub Auto_Open() Application.ScreenUpdating = False kh_wVisible True Application.ScreenUpdating = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub رابط هذا التعليق شارك More sharing options...
عبد الله بولنوار قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 اخى الكريم حشروف مرحبا بك فى هذا الصرح العظيم بين اخوانك اليك الكود التالى للعلامه القدير عبدالله باقشير انسخ هذا الكود وقم بلصقه فى مودويل جديد جرب وعلمنى بالنتيجة تقبل تحياتى ÇáßæÏ ãä ÇÚãÇá ÇáÑÇÆÚ ÇáÚáÇãå ÚÈÏÇááå ÈÇÞÔíÑ Public xx As Integer Public x As Integer Sub Auto_Open() Application.ScreenUpdating = False kh_wVisible True Application.ScreenUpdating = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic UserForm7.Show End Sub Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub السطر الاول لا يعمل رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 استاذى عبدالله بولنوار السطر الاول كتابة بالعربى ودا سبب عدم ظهوره وهو لا يؤثر على عمل الكود رابط هذا التعليق شارك More sharing options...
عبد الله بولنوار قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 (معدل) عذرا لصاحب الموضوع شكرا يا صقر بدون جروح ان شاء الله يجب انشاؤه ايضا ؟ لان الكود يتوقف عنده عند انشاء UserForm7 يظهر تم تعديل يناير 3, 2015 بواسطه عبد الله بولنوار رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 اخى الكريم تم التعديل على الكود راجع المشاركة 2 رابط هذا التعليق شارك More sharing options...
عبد الله بولنوار قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 فالفعل الكود بعد التعديل اخفى قوائم الاكسال لكن الصفحات مزالت موجودة اذا لم يكن هناك ازعاج ممكن تعديله ليظهر بعد فتح المصنف UserForm1 فقط دون اي شيئ مثل برنامجك الرائع رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 استاذى لفتح اليوزر فرم 1 اعمل كود فى حدث فتح الملف Private Sub Workbook_Open() UserForm1.Show End Sub رابط هذا التعليق شارك More sharing options...
عبد الله بولنوار قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 تمام يا باشا يا معلم جزيت خيرا و رضى الوالدين 1 رابط هذا التعليق شارك More sharing options...
حشروف قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 شكرا جزيلا للأستاذين المحترمين الصقر الجريح وعبد الله بولنوار. وكل عام و أنتما وكل المشرفين على هذا المنتدى الممتاز بخير . رابط هذا التعليق شارك More sharing options...
عبدالباري البنا قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 بعد اذن الاساتذه دى طريقة اخرى لاخفاء الادوات واظهارها وايضا اخفاء الصفحات ماعدا الصفحة النشطة فقط اخفاء الصفحات.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 بارك الله فيك أخي الحبيب عبد الباري اسمح لي أن أعرف ما هذا السطر MyTest = False رابط هذا التعليق شارك More sharing options...
عبدالباري البنا قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 بارك الله فيك أخي الحبيب عبد الباري اسمح لي أن أعرف ما هذا السطر MyTest = False اخى واستاذى الحبيب ياسر هذا السطرهو بقية كود كان مضاف فى بداية كود الاظهار وكان خاص بوظيفة اخرى لكن انا حذفت بداية الكود ونسيت هذا السطر سهوا...كنت اجهز الكود لينفذ وظيفة الاخفاء و الاظهار فقط لان الكود الاصلى الموجودعلى احد ملفاتى به عدة وظائف اخرى بجانب الاظهار والاخفاء 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 أخي عبد الباري أين مشاركاتك في مشروع المكتبة؟ أم أن المشروع لم يعجبك !!! ننتظر إضافاتك الرائعة .. ولكن لا تنسى شرح أسطر الكود تسهيلا على إخواننا فيما بعد لاستخدام الكود والتعديل عليه بدون الرجوع لأي أحد تقبل تحياتي رابط هذا التعليق شارك More sharing options...
عبدالباري البنا قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 اخى واستاذى ياسر خليل على العكس تماما الموضوع غاية فى الاهمية والروعه والجمال واعجبنى جدا جدا .. وقريبا سوف تجد مشاركات كثيره جدا لانه لا يجوز الااستمتع بالمشاركه فى هذا العمل الكبير تحياتى لشخصكم الكريم 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 5, 2015 مشاركة قام بنشر يناير 5, 2015 خيركم من تعلم العلم وعلمه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.