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

أقدم لكم اليوم كيفية عرض البيانات الموجودة في ورقة العمل على الفورم بنفس شكل ورقة العمل من خلال أداة تسمى Microsoft Office Spreadsheet

خطوات العمل :
قم بالدخول لمحرر الأكواد عن طريق Alt + F11 ثم من قائمة Insert قم بإدراج موديول جديد Module وكذلك قم بإدراج فورم Userform
قم بنسخ الكود التالي في الموديول الذي تم إدراجه

Sub SpreadsheetView()<br />
&nbsp; &nbsp; UserForm1.Show<br />
End Sub<br />
<br />

الآن اعمل كليك يمين على الفورم الذي أدرجته ثم اختر View Code ثم الصق الكود التالي

Private Sub UserForm_Initialize()
    Me.Spreadsheet1.Cells.Range("A1:B2").Value = ThisWorkbook.Worksheets("Sheet1").Range("A1:B2").Value
End Sub

Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC11.Worksheet, ByVal Target As OWC11.Range)
    ThisWorkbook.Worksheets("Sheet1").Range(Target.Address).Value = Target.Value
End Sub

قم بإظهار صندوق الأدوات إذا لم يكن ظاهراً من خلال التبويب View ثم Toolbox ، ثم في مكان فارغ في صندوق الأدوات اعمل كليك يمين ثم اختر Additional Controls
ثم قم بتحديد الخيار المسمى Microsoft Office Spreadsheet 11.0

(إذا لم تكن الأداة موجودة فقم بتنصيب الملف التالي من هنا) .. الملف موجود أيضاً ضمن ملفات الملف المرفق

الآن قم برسم الأداة من على صندوق الأدوات إلى الفورم عن طريق السحب والإفلات

قم بحفظ المصنف بامتداد xlsm لأنه الامتداد الذي يدعم الماكرو والأكواد .. احفظ المصنف وأغلقه وأعد فتح المصنف

لتشغيل الفورم قم بالضغط على Alt + F8 (أو قم برسم زر أمر واربط الإجراء الذي يقوم بإظهار الفورم بهذا الزر) .. واختر الإجراء المسمى SpreadsheetView

*** إذا كنت ستقوم بنقل الملف إلى جهاز آخر فلابد من تفعيل الأداة وإلا ستظهر لك رسالة خطأ بهذا الشكل


رابط الملف من هنا

أرجو أن أكون وفقت في طرح الموضوع

إعداد / ياسر خليل أبو البراء