على حسن قام بنشر سبتمبر 29, 2013 قام بنشر سبتمبر 29, 2013 عندى اكثر من الف شيت واريد اخفائهم او حذفهم
البروفسير قام بنشر سبتمبر 29, 2013 قام بنشر سبتمبر 29, 2013 (معدل) يمكنك اضافة الكود التالي فى طرفية الvba alt + f11 فى الورك شيت الرئيسي Sub Hideallsheets() 'حذف كل الشيتات Dim sh As Object For Each sh In ActiveWorkbook.Sheets If sh.Name <> "prof" Then sh.Visible = xlSheetHidden End If Next End Sub الكود سيحذف كل الشيتات ما عدا الشيت المسمى ( prof ) اذا اردت تغيير اسم الشيت ببديل لديك غير اسمه فى الكود ..اولا . اتمنى ان يكون هذا هو المطلوب تقبل تحياتى تم تعديل سبتمبر 29, 2013 بواسطه البروفسير
الـعيدروس قام بنشر سبتمبر 29, 2013 قام بنشر سبتمبر 29, 2013 وهذا تعديل لكود الاخ البروفيسر لحذف كافة الأوراق ماعدا المسماه "prof" غيره الى اسم الورقة التي لاتريد حذها Sub Hideallsheets() 'حذف كل الشيتات Dim sh As Object For Each sh In ActiveWorkbook.Sheets If sh.Name <> "prof" Then 'sh.Visible = xlSheetHidden '******* Application.DisplayAlerts = 0 sh.Delete Application.DisplayAlerts = 1 '******* End If Next End Sub 1
على حسن قام بنشر سبتمبر 29, 2013 الكاتب قام بنشر سبتمبر 29, 2013 كود رائع وبعد اذنك اريد كود لاخفاء الاوراق
البروفسير قام بنشر سبتمبر 29, 2013 قام بنشر سبتمبر 29, 2013 كود رائع وبعد اذنك اريد كود لاخفاء الاوراق اعتذر اخي لك الكود الذي ادرجته لاخفاء الملفات وليس حذفها .. خطأ بالتعليق غير مقصود . ثم تلانى اخى عباد فى ادراج تعديلة لحذف الشيتات استخدم كودي للاخفاء او استخدم كود اخي عباد للحذف .. تقبل تحياتى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.