رعد العزاني قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 الاساتذة الاجلاء السلام عليكم ورحمه الله وبركاته سؤالي (طلبي ) لدي ملف أكسل مكون من 33ورقة وما اريدة كيف أجعل الورقة التي تجاوزت تاريخ اليوم ام تختفي بشكل تلقائي او تحمى ولا يستطيع احد التعديل عليها بمعنى أخر ( إذا كنت اليوم بتاريخ 4 بالشهر فان الاوراق السابقة للورقة رقم 4 تختفي أو تمنع من التعديل عليها ) يمكنكم التطبيق على اي ملف أكسل شاكر لكم تعاونكم وتجاوبكم معنا رابط هذا التعليق شارك More sharing options...
رعد العزاني قام بنشر سبتمبر 29, 2012 الكاتب مشاركة قام بنشر سبتمبر 29, 2012 الاساتذة الاجلاء السلام عليكم ورحمه الله وبركاته سؤالي (طلبي ) لدي ملف أكسل مكون من 33ورقة وما اريدة كيف أجعل الورقة التي تجاوزت تاريخ اليوم ام تختفي بشكل تلقائي او تحمى ولا يستطيع احد التعديل عليها بمعنى أخر ( إذا كنت اليوم بتاريخ 4 بالشهر فان الاوراق السابقة للورقة رقم 4 تختفي أو تمنع من التعديل عليها ) يمكنكم التطبيق على اي ملف أكسل شاكر لكم تعاونكم وتجاوبكم معنا تم ارفاق ملف مشابعة reports.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 يمكنك وضع الكود التالي في الحدث 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 رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 لله درك يا ابا حنين رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 29, 2012 مشاركة قام بنشر سبتمبر 29, 2012 مشكور اخي الحبيب فهد و جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
رعد العزاني قام بنشر سبتمبر 30, 2012 الكاتب مشاركة قام بنشر سبتمبر 30, 2012 يمكنك وضع الكود التالي في الحدث 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 الف الف شكر لك ابو حنين وفقك الله وانا يبقى لي ورقة الافتتاحي ما تختفي هل ممكن اضيف لها كود لوحدها رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 30, 2012 مشاركة قام بنشر سبتمبر 30, 2012 غير الكود السابق بالكود التالي 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 رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر أكتوبر 2, 2012 مشاركة قام بنشر أكتوبر 2, 2012 ياريت ارفاق الملف بعد ادخال الكود رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أكتوبر 2, 2012 مشاركة قام بنشر أكتوبر 2, 2012 تفضل اخي تقرير البيع والتحصيل للشركتين.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.