اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ياسر خليل أبو البراء,

الردود الموصى بها

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

تحية طيبة

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

Disable Scroll Bars.rar

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

إليك الملف التالي ..وهذا يشمل كل أوراق العمل للنطاق المستخدم فقط .حيث يتم تعطيل الـ 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

  • Like 3
رابط هذا التعليق
شارك

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

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

 

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information