أبو حنــــين

السلام عليكم جزاك الله خيرا و هذا تطبيق لما ذكره اخي جمال التطبيق.rar

جزاك الله خيرا اخي الحبيب أبو سما على مروركم و كلماتكم الطيبة تقبل الله منا و منكم صالح الاعمال

السلام عليكم جزاك الله خيرا على هذه الاذكار جعل الله لك ذلك في موازين حسناتكم تقبل الله منا و منكم صالح الاعمال

السلام عليكم اخي ابراهيم عند الصغط مرتين على مربع النص يتحول الى معادلة الخلية و عند الخروج منه يرجع كما كان في الاصل Book1_1.rar

السلام عليكم ما المقصود بـ : افعل ورقة عمل ؟

السلام عليكم جزاك الله خيرا أخي قنديل الصياد

السلام عليكم الاكسل لغة منطق

السلام عليكم أكتب في المرفق الحالي الرقم في الخلية B2 Book1_.rar

السلام عليكم جرب المرفق 2003 Book1.rar

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

السلام عليكم يوجد برنامج اسمه Protect VBA Code يقوم بهذه الحماية لكنه غير مجاني

السلام عليكم جزاك الله خيرا اخي زمزم فعلا مواقع بها برامج و معلومات قيمة جفظكم الله و رعاكم

صحيح لكنها غير فعالة لانه عند فتح الملف بإصدار أقل تزول الحماية

السلام عليكم اخي سعد عابد يمكن ازالة الحماية بفتح الملف المرفق باصدار 2003

السلام عليكم اخي الاب الروحي شرف لي ان تكون بعض الحروف التي كتبتها الى اخي حمادة ضمن احدى قصصك ، و ربما هذه اولا مرة تصرح فيها عن هوايتك في كتابة القصة ، فإن كان كذلك فتمنياتي لك بالنجاح و التوفيق في مسارك الادبي و العلمي ان شاء الله حفظكم الله و رعاكم

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

هذا المثال بالكود سطح المكتب.rar

جرب هذا Private Sub Workbook_Open() Dim MyPath As String MyPath = "D:\HOSAM" If ThisWorkbook.Path <> MyPath Then Application.DisplayAlerts = False ThisWorkbook.Close Else Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show Workbooks.Application.Visible = True Application.ScreenUpdating = False Call ShowAllSheets Application.ScreenUpdating = True sheet2.Select End If End Sub

السلام عليكم لو فرضنا ان القيمة المعنية بالتغيير في الخلية A2 نكتب المعادلة التالية في الخلية B2 =IF(A2<>"";TEXT(TODAY();"dd-mm ") & " - " & TEXT(NOW();"h:mm");"")

السلام عليكم انسخ هذا الكود في ThisWorkbook في الحدث Open كما هو مبين Private Sub Workbook_Open() Dim MyPath As String MyPath = "D:\HOSAM" If ThisWorkbook.Path <> MyPath Then Application.DisplayAlerts = False ThisWorkbook.Close End If End Sub

السلام عليكم ' ضع هذا في فورم Private Sub UserForm_Initialize() 'هذا السطر لجعل عنوان الفورم هو التاريخ Me.Caption = Date ' التاريخ في ليبل Label1.Caption = Date ' التاريخ في مربع نص TextBox1.Text = Date End Sub

السلام عليكم اضافة لما ذكره اخي عباد جرب المرفق 2003 Mouvement d'article.rar

السلام عليكم اخي ضاحي الغريب عمل جبار فعلا و متعوب عليه جزاك الله خيرا و جعله في موازين حسناتكم حفظكم الله و رعاكم

السلام عليكم أخي شوقي أخي الشهابي مبروك الترقية المستحقة فعلا و مزيدا من النجاحات ان شاء الله تقبلو تحياتي في أمان الله

السلام عليكم و رحمة الله المرفق يعمل آليا بدون ازرار جربه و اخبرني zmzm 2.rar