waelac27 قام بنشر أكتوبر 21, 2010 مشاركة قام بنشر أكتوبر 21, 2010 (معدل) السلام عليكم ورحمة الله لي بعض الاسئلة اتمني من اصحاب العلم عدم البخل علينا ---------------------------------------------- 1- بافتراض قيامنا بعمل برنامج معين ونريد وضع صلاحية له مثل صلاحية قدرها ثلاثة شهور او صلاحية للبرنامج ينتهي في 31/12/2010 2- هل يمن عن طريق فورم معين وازار تم وضعها عمل بروتكنت وان بروتكت بباسور وورد محفوظ مقدماً بحيث اذا عملت بروتكت للبرنامج عن طريق CommandButton يتم عمل الحماية وعند الغاؤها عن طريق CommandButton آخر يظهر الباسورد الموضوع مقدماً. 3- هل يوجد امر معين يوقف الفورم بحث اذا تحقق شرط معين يتوقف الفورم ولا يظهر مرة اخري 4- هل يوجد امر لايقاف الماكرو او عدم اظهاره في قائمة الماكرو برجاء تصحيح الكود التالي Private Sub Workbook_Open() If Sheets("lock").rang("d4").Value >= 27756 Then GoTo 100 100 Sheets("invoice").Visible = xlveryhidden ElseIf Sheets("lock").rang("d4").Value >= 27756 Then GoTo 200 200 Sheets("reg").Visible = True Else: If Sheet("reg").rang("a1").Value >= 102 Then GoTo 300 300 Sheets("invoice").Visible = True Sheets("lock").Range("a1:f100").ClearFormats Sheets("reg").Visible = xlveryhidden End If End Sub تم تعديل أكتوبر 21, 2010 بواسطه waelac27 رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر أكتوبر 23, 2010 مشاركة قام بنشر أكتوبر 23, 2010 السلام عليكم اخي الفاضل الملف المرفق فيه فكرة مبسطة لسؤالك يقرب لك الفكرة حيث تم وضع التاريخ الذي حددته في الخلية B1 و الزر الذي تضغط عليه يضع تاريخ اليوم في الخلية A1 و الخلية C1 عبارة عن الفرق بين التاريخين فاذا وصلنا الي تاريخك الذي حددته او تعداه فستكون نتيجة الخلية C1 صفر او اقل من صفر فتظهر رسالة تفيد بانتهاء البرنامج و اذا كانت قيمة هذه الخلية اكبر من صفر فتظهر الفورم برجاء توضيح باقي المطلوب لمحاولة الاجابة عليك اما بالنسبة لتصحيح الكود فسيكون كالتالي Private Sub Workbook_Open() If Sheets("lock").range("d4").Value >= 27756 Then GoTo 100 100 Sheets("invoice").Visible = xlveryhidden Sheets("reg").Visible = True If Sheets("reg").range("a1").Value >= 102 Then GoTo 300 300 Sheets("invoice").Visible = True Sheets("lock").Range("a1:f100").ClearFormats Sheets("reg").Visible = xlveryhidden End Sub الخطأبالكود نقص بعض الاحرف و ضع else بالرغم من انك اقفلت ال if في نفس السطر في كل جمله من الكود و بالتالي ايضا لن تحتاج الي end if تحياتي TEST.rar رابط هذا التعليق شارك More sharing options...
waelac27 قام بنشر أكتوبر 23, 2010 الكاتب مشاركة قام بنشر أكتوبر 23, 2010 شكراً سيدي الفاضل والله انتم ناس محترمين ومتعاونين جزاك الله خيراً رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.