توقف شريط التمرير العمودي في اكسل عند حد معين

[محمد التميمي]

السلام عليكم

لدي في  المرفق ملف اكسل استعمله كسجل للوارد طلبي اخواني الكرام هو كالاتي:

عند ذهابي للاسفل عن طريق شريط التمرير العمودي او عجلة الماوس اوريد ان تتوقف حركة الشريط او عجلة الماوس عن الخط الاحمر المرسوم في اسفل الجدول (سجل رقم 754) ولا يتجاوزه ليصل عند الاماكن الفارغة في الاكسل.

وهل يتم التطبيق على كافة اوراق اكسل ام ورقة واحدة ؟

مع شرح للتطبيق للاتمكن من عمل التطبيق على الجداول الاخرى لدي المحملة بالبيانات مع فائق الشكر والتقدير....

سجل.xlsx

[عبدالله بشير عبدالله]

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

Private Sub Workbook_Open()
On Error Resume Next
ThisWorkbook.Sheets("الــــــــــــــــوارد         ").ScrollArea = "A1:I753"

End Sub

"A1:I753" هذا النطاق يمكن تعديله  وهو المسموح  الكتابه به

اذا اردت النطبيق على جداول اخرى انسخ     ThisWorkbook.Sheets("الــــــــــــــــوارد         ").ScrollArea = "A1:I753" والصقه بالكود وغير اسم الصفحة والنطاق

 

سجل.xlsb

تم تعديل ديسمبر 15 بواسطه عبدالله بشير عبدالله

[محمد التميمي]

السلام عليكم :

احسنت  اخ عبدالله هذا هو المطلوب .. شكرا جزيلا وبارك الله بجهودكم