ahmed_9954 قام بنشر أكتوبر 3, 2014 مشاركة قام بنشر أكتوبر 3, 2014 بسم الله الرحمن الرحيم دي أول مشاركه وهي عباره عن طلب مرفق ملف عاوز اعمل حمايه ليه وهي عباره عن 1- تعطيل أمكانية التنقل بين الشيتات إلا من خلال الهيبر لينك اللي عامله بس يعني عدم التنقل بين الشيتات سواء بالاختيار بالماوس او حتي بمفاتيح الاختصار 2- تعطيل إمكانية إظهار الشيت تابس ولكم جزيل الشكر test.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أكتوبر 7, 2014 مشاركة قام بنشر أكتوبر 7, 2014 السلام عليكم و رحمة الله يمكنك عمل ذلك من خلال إخفاء جميع الصفحات في الملف و أن لا تظهر إلى في حالة إستدعائها و لإخفاء جميع الصفحات مع إخفاء التاب أيضاً إستخدم الكود التالي في حدث فتح الملف Private Sub Workbook_Open() Dim ws As Worksheet ActiveWindow.DisplayWorkbookTabs = False For Each ws In Sheets If ws.Name <> "home" Then ws.Visible = xlSheetVeryHidden End If Next ws End Sub رابط هذا التعليق شارك More sharing options...
ahmed_9954 قام بنشر أكتوبر 7, 2014 الكاتب مشاركة قام بنشر أكتوبر 7, 2014 جزاك الله خيرا اللي بيتم أخفاء الشيت تابس ويمكن أظهاره تاني بسهوله - بيكون صفحة الـ home ظاهره - ولكن باق الشيتات لايمكن الذهاب إليها من الهيبر لينك رابط هذا التعليق شارك 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.