كود لاخفاء جميع الشيتات

[على حسن]

عندى اكثر من الف شيت  واريد اخفائهم او حذفهم

[البروفسير]

يمكنك اضافة الكود التالي فى طرفية ال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 بواسطه البروفسير

[الـعيدروس]

وهذا تعديل لكود الاخ البروفيسر

لحذف كافة الأوراق  ماعدا المسماه "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

[على حسن]

اخى البروفسير جزاك الله خيرا

[على حسن]

كود رائع 

وبعد اذنك اريد كود لاخفاء الاوراق 

[على حسن]

اخى عياد جزاك الله خيراً

[البروفسير]

كود رائع 

وبعد اذنك اريد كود لاخفاء الاوراق 

اعتذر اخي لك الكود الذي ادرجته لاخفاء الملفات وليس حذفها .. خطأ بالتعليق غير مقصود .

ثم تلانى اخى عباد فى ادراج تعديلة لحذف الشيتات

استخدم كودي للاخفاء

او

استخدم كود اخي عباد للحذف ..

تقبل تحياتى

 

[على حسن]

جزاكم الله خيرا