اخفاء و اظهار ورقة

[خالد الشاعر]

السادة خبراء المنتدىعندى ماكرو يعمل على اظهار ورقة معينةو اخفاء باقى الاوراق ولكنى مكرر اسماءفهل من طريقة تكون افضل من ذلكSub Retur() With ActiveWindow .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False .DisplayHeadings = False .DisplayWorkbookTabs = FalseEnd With Application.DisplayFullScreen = True Application.CommandBars("Standard").Visible = False Application.CommandBars("Formatting").Visible = False Application.CommandBars("Worksheet Menu Bar").Enabled = False Application.DisplayFormulaBar = False Worksheets("Count").Visible = False Worksheets("Success").Visible = False Worksheets("January").Visible = False Worksheets("Portfolio").Visible = False Worksheets("Final").Visible = False Worksheets("Sec-exam").Visible = False Worksheets("Main").Visible = False Worksheets("Diploma").Visible = False Worksheets("First_All1").Visible = False Worksheets("First_All5").Visible = False Worksheets("First Degree_1").Visible = False Worksheets("First Degree_5").Visible = False Worksheets("Welcom").Visible = True Sheets("Welcom").Activate [P32].Select End Sub

[خالد الشاعر]

مرفق ملف للتوضيحعلماً بان يوجد ورقة مخفية

[خالد الشاعر]

اسف الملف مرفق

اخفاء.rar

[طارق محمود]

أخي الكريم

ممكن استبدال الكودين كالتالي

Sub Retur()


	Worksheets("Welcom").Visible = True

	Sheets("Welcom").Activate

	[A1].Select


	For i = 2 To 7

 	Sheets(i).Visible = False

	Next i


End Sub

Sub NORetur()


	For i = 2 To 7

 	Sheets(i).Visible = True

	Next i

	Sheets(1).Visible = False

	Sheets(1).Activate

	[A1].Select


End Sub

تم تعديل نوفمبر 4, 2010 بواسطه TareQ M

[خالد الشاعر]

اشكرك استاذ طارق لسرعة الرد و الاهتمامانا اتعلم دائماً من هذا المنتدى الرائعجزاك الله خيراً

[خالد القدس]

السلام عليكم بارك الله فيك أستاذ طارق

[الحسامي]

السلام عليكم

يمكنك كذلك استخدام الكودين التالين

For Each sh In ThisWorkbook.Worksheets

sh.Visible = True

If sh.Name <> "Welcom" Then sh.Visible = False

Next sh

For Each sh In ThisWorkbook.Worksheets

sh.Visible = True

Next sh

Worksheets("Welcom").Visible = False