اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

يمكنك اضافة الكود التالي فى طرفية ال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 )
اذا اردت تغيير اسم الشيت  ببديل لديك غير اسمه فى الكود ..اولا .
اتمنى ان يكون هذا هو المطلوب
تقبل تحياتى

تم تعديل بواسطه البروفسير
قام بنشر

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

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

كود رائع 

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

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

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

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

او

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

تقبل تحياتى :fff:

 

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information