أحمد فؤاد قام بنشر مايو 12, 2014 قام بنشر مايو 12, 2014 السلام عليكم ورحمة الله وبركاته لدي كود لإظهار الصفحات وهو Sub show_sheet() Dim w As Worksheet For Each w In ActiveWorkbook.Sheets w.Visible = xlSheetVisible Next End Sub المطلوب إخفاء الصفحة الرئيسية وإظهار باقي الصفحات أي مثلا لو الصفحة 1 هي الرئيسية وباقي الصفحات مخفية أريد عند تطبيق الكود يخفي الصفحة 1 الرئيسية وإظهار الباقي وشكرا
سليم حاصبيا قام بنشر مايو 12, 2014 قام بنشر مايو 12, 2014 استاذ فؤاد اليك هذا الكود انه يخفي كل الصفحات ما عدا الرئيسية انا اعتبرت ان الرئيسية هي الصفحة 1 (يمكنك التغيير من داخل الكود) يخفي و ليس يحذف ممكن ان التسمية للملف مغلوطة حذف كل الصفحات ما عدا الرئيسية.rar 1
أحمد فؤاد قام بنشر مايو 12, 2014 الكاتب قام بنشر مايو 12, 2014 أخي الحبيب / سليم شكرا جزيلا علي الكود ولكن طلبي هو إخفاء جميع الصفحات عند فتح الملف ماعدا الصفحة الرئيسية وعند الضغط علي دخول يتم إظهار جميع الصفحات وإخفاء الصفحة الرئيسية والعكس في الصفحة 2 عند الضغط علي تأمين يتم إخفاء جميع الصفحات وإظهار الصفحة الرئيسية وشكرا hide-show.rar
سليم حاصبيا قام بنشر مايو 12, 2014 قام بنشر مايو 12, 2014 استاذ فؤد تم تعديل الكود حسب ما تريد اذا كان مناسباً اضغط اعجبني حذف كل الصفحات ما عدا الرئيسية.rar 2
أحمد فؤاد قام بنشر مايو 12, 2014 الكاتب قام بنشر مايو 12, 2014 بارك الله فيك أخي سليم فعلا هو المطلوب
حسام عبدالمحسن قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 عمل جميل جدا أ/سليم الاخوة الكرام اريد نفس الكود يخفى كل الصفحات ماعدا الصفحة الرئيسية وصفحة اخرى وعمل زر لللاخفاء والاظهار هل ممكن عمل ذلك ولكم جزيل الشكر
سليم حاصبيا قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 السلام عليكم /استاذ ابو ندى اليك المطلوب عسى ان ينال اعجابك اخفاء ما عدا صفحتين.rar
shaker badr قام بنشر مايو 14, 2014 قام بنشر مايو 14, 2014 http://www.gulfup.com/?rIzLtd شيت كنترول العلمي الثانوي الازهري الشيت لايعمل ارجو المساعدة وهذا هو الرابط
حسام عبدالمحسن قام بنشر مايو 15, 2014 قام بنشر مايو 15, 2014 الاخ الكريم سليم جزاك الله كل خير بالفعل هذا هو المطلوب ولكن حاوت ادراج الكود بالملف ولم انجح فى عمل ذلك حيث ان الملف بة اكواد كثيرة فخشيت ضياع اى من الاكواد المدرجة بالملف فقمت بادراج الكود الموجود بحدث Private Sub Workbook_Open() للتعديل علية وادراج الكود الخاص باخفاء واظهار اوراق العمل بة وشكرا وفى انتظار الرد Private Sub Workbook_Open() Dim MyPath As String MyPath = "E:\HOSAM ABDEL MOHSEN" If ThisWorkbook.Path <> MyPath Then Application.DisplayAlerts = False ThisWorkbook.Close Else Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show Workbooks.Application.Visible = True Application.ScreenUpdating = False Call ShowAllSheets Application.ScreenUpdating = True sheet2.Select End If End Sub
سليم حاصبيا قام بنشر مايو 15, 2014 قام بنشر مايو 15, 2014 اخي ابو ندى /السلام عليكم لم افهم بالضبط ما تريد بشأن الكود المرسل يمكنك ان تضعه في موديل جديد دون بقية الاكواد و يتم نتفيذه من خلال الزر
حسام عبدالمحسن قام بنشر مايو 15, 2014 قام بنشر مايو 15, 2014 ما اقصدة ان الكود مقسم على جزئين جزء فى موديول والجزء التانى فى حدث Workbook_Open() المشكلة عندى فى تركيب الكود فى هذا الحدث حيث انه بة اكواد كثيرة ليس لدى اى مشكلة فى تنفيذ الجزء الاول الخاص بالموديول ارجوا ان اكون قد وصلت ما اريد
سليم حاصبيا قام بنشر مايو 15, 2014 قام بنشر مايو 15, 2014 لا مشكلة ضع اسم الكود بين هذين السطرين (اذا حدثت مشكلة يمكن ازالته) ()Private Sub Workbook_Open هنا Dim MyPath As String
حسام عبدالمحسن قام بنشر مايو 15, 2014 قام بنشر مايو 15, 2014 تم رفع الملف لحضرتك لتركيب الكود على استاذى الكريم سليم تمت تجربة الكود ولم يعمل فقمت بإرفاق الملف كاملا لحضرتك فبرجاء تجربة الكود علية احب اوضح لحضرتك الباسورد حسام حسام باسورد محرر الاكود hosam2731987 الملف بة كود لتشغيل الملف فى بارتيشن الـــE http://www.gulfup.com/?BYtse9 ملحوظة اخيرة اخى الكريم اذا واجهتك مشكلة فى فتح الملف وهذة المشكلة حدثت من قبل فتم عرضها على المنتدى وتم الحل وهذا رابط المشاركة للعلم وشكرا واسف جدا على الاطالة http://www.officena....topic=48281&hl=
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.