إلغاء تفعيل حركة صفحة العمل Scroll

[احمد بهجت]

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

تحية طيبة

طريقة إلغاء تفعيل حركة صفحة العمل سواء كان رأسيا أو أفقياً بواسطة (بكرة الماوس) داخل ملف الاكسيل مع العلم أنه تم إلغاء ظهور Scroll bar ولكن لم يتم تعطيل حركة الصفحة

ارجو الإفادة هلى يوجد Option معين لعمل اللازم ؟

 

ولكم جزيل الشكر والتقدير

[محمدعوض]

… ..

تم تعديل أبريل 11, 2015 بواسطه محمدعوض

[احمد بهجت]

استاذ محمد عوض هل المشاركة تهدف لشىء معين ؟

[ياسر خليل أبو البراء]

أخي الحبيب أحمد بهجت

إليك الملف التالي ..تم وضع الكود التالي في حدث المصنف

Private Sub Workbook_Open()
    ThisWorkbook.Sheets("Sheet1").ScrollArea = "A1:N25"
End Sub

وبالتالي تم تحديد نطاق ليتم التنقل في هذا النطاق فقط

Disable Scroll Bars.rar

[ياسر خليل أبو البراء]

أخي الحبيب أحمد

إليك الملف التالي ..وهذا يشمل كل أوراق العمل للنطاق المستخدم فقط .حيث يتم تعطيل الـ Scroll Areas إلا في الخلايا المستخدمة فقط

يوضع الكود التالي في موديول

Sub SetAllScrollAreas()
    Dim WS As Worksheet
    For Each WS In ActiveWorkbook.Worksheets
        WS.ScrollArea = WS.UsedRange.Address
    Next WS
End Sub

ثم يوضع السطر التالي في حدث المصنف

Private Sub Workbook_Open()
    SetAllScrollAreas
End Sub

تقبل تحياتي

Set Scroll Areas In All Sheets.rar

[احمد بهجت]

أستاذي الفاضل ياسر خليل 

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

ولك جزيل الشكر والتقدير

[ياسر خليل أبو البراء]

الأخ الفاضل أحمد بهجت

وجزيت خيراً أخي الكريم

 

لا تنسى التوجيهات  .................... أفضل إجابة ليظهر أن الموضوع مجاب ومنتهي ..حتى يركز الأعضاء على موضوعات أخرى