حماية متقدمة في الاكسيل

[ahmed_9954]

بسم الله الرحمن الرحيم

دي أول مشاركه وهي عباره عن طلب

 

مرفق ملف عاوز اعمل حمايه ليه

 

        وهي عباره عن 1- تعطيل أمكانية التنقل بين الشيتات إلا من خلال الهيبر لينك اللي عامله بس

                             يعني عدم التنقل بين الشيتات سواء بالاختيار بالماوس او حتي بمفاتيح الاختصار

                          2- تعطيل إمكانية إظهار الشيت تابس

                                                                                                                                 ولكم جزيل الشكر

test.rar

[يحيى حسين]

السلام عليكم و رحمة الله 

 

يمكنك عمل ذلك من خلال إخفاء جميع الصفحات في الملف 

و أن لا تظهر إلى في حالة إستدعائها و لإخفاء جميع الصفحات مع إخفاء التاب أيضاً إستخدم الكود التالي في حدث فتح الملف 

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

[ahmed_9954]

جزاك الله خيرا

اللي بيتم أخفاء الشيت تابس ويمكن أظهاره تاني بسهوله - بيكون صفحة الـ home ظاهره -

ولكن باق الشيتات لايمكن الذهاب إليها من الهيبر لينك