إدارة الاوراق حسب التاريخ

[رعد العزاني]

الاساتذة الاجلاء السلام عليكم ورحمه الله وبركاته

سؤالي (طلبي )

لدي ملف أكسل مكون من 33ورقة وما اريدة كيف أجعل الورقة التي تجاوزت تاريخ اليوم ام تختفي بشكل تلقائي او تحمى ولا يستطيع احد التعديل عليها

بمعنى أخر ( إذا كنت اليوم بتاريخ 4 بالشهر فان الاوراق السابقة للورقة رقم 4 تختفي أو تمنع من التعديل عليها )

يمكنكم التطبيق على اي ملف أكسل

شاكر لكم تعاونكم وتجاوبكم معنا

[رعد العزاني]

الاساتذة الاجلاء السلام عليكم ورحمه الله وبركاته

سؤالي (طلبي )

لدي ملف أكسل مكون من 33ورقة وما اريدة كيف أجعل الورقة التي تجاوزت تاريخ اليوم ام تختفي بشكل تلقائي او تحمى ولا يستطيع احد التعديل عليها

بمعنى أخر ( إذا كنت اليوم بتاريخ 4 بالشهر فان الاوراق السابقة للورقة رقم 4 تختفي أو تمنع من التعديل عليها )

يمكنكم التطبيق على اي ملف أكسل

شاكر لكم تعاونكم وتجاوبكم معنا

تم ارفاق ملف مشابعة

reports.rar

[أبو حنــــين]

يمكنك وضع الكود التالي في الحدث Workbook_Open

Private Sub Workbook_Open()

For s = 1 To ThisWorkbook.Sheets.Count

If Sheets(s).Name < Val(Format(Date, "d")) Then

Sheets(s).Visible = False

Else

Sheets(s).Visible = True

End If

Next

End Sub

[alfahad]

لله درك يا ابا حنين

[أبو حنــــين]

مشكور اخي الحبيب فهد و جزاك الله خيرا

[رعد العزاني]

يمكنك وضع الكود التالي في الحدث Workbook_Open

Private Sub Workbook_Open()

For s = 1 To ThisWorkbook.Sheets.Count

If Sheets(s).Name < Val(Format(Date, "d")) Then

Sheets(s).Visible = False

Else

Sheets(s).Visible = True

End If

Next

End Sub

الف الف شكر لك ابو حنين

وفقك الله

وانا يبقى لي ورقة الافتتاحي ما تختفي هل ممكن اضيف لها كود لوحدها

[أبو حنــــين]

غير الكود السابق بالكود التالي

Private Sub Workbook_Open()

For s = 1 To ThisWorkbook.Sheets.Count

If Sheets(s).Name < Val(Format(Date, "d")) Then

Sheets(s).Visible = False

Else

Sheets(s).Visible = True

End If

Next

ورقة34.Visible = False

End Sub

[اوفيس 2003]

ياريت ارفاق الملف بعد ادخال الكود

[أبو حنــــين]

تفضل اخي

تقرير البيع والتحصيل للشركتين.rar