اهلا بك اخ كريم فى المنتدى
وعليكم السلام - تفضل يمكنك تجربة وتعميمه على باقى صفحات الملف كما بصفحة كشف قراءه يوليو (2)
___من يوليو - نسخة - نسخة - نسخة.xlsm
تفضل لك ما طلبت
يمكنك وضع هذا الكود فى حدث الفورم كما بالملف
Private Sub UserForm_Initialize()
Label54.Caption = Format(Now(), "dd mmmm yyyy hh:mm:ss AMPM")
End Sub
رصد العقوبات طلاب الثانوية العامة.xlsm
وعليكم السلام من فضلك راجع هذا الرابط -فالموضوع مكرر وتم مناقشته من قبل هنا
https://www.officena.net/ib/topic/87918-كود-لحماية-ملف-الاكسل-من-الحذف-او-النسخ/?tab=comments#comment-555501
أهلا بك اخ كريم فى المنتدى
الملف لا يحتوى على فورم
عموما كود طباعة الفورم هو - يوضع فى حدث الفورم
Private Sub CommandButton1_Click()
UserForm1.PrintForm
End Sub
او هذا
Private Sub CommandButton1_Click()
Me.PrintForm
End Sub
اخى الكريم حلمى هذا الموضوع مكرر كثيرا فى هذا المنتدى كان عليك استخدام خاصية البحث فى المنتدى-تفضل
https://www.officena.net/ib/topic/87988-اللغه-العربيه-في-الاكسيل-2010-لا-تظهر-بشكل-صحيح/?tab=comments#comment-555828