ياسر العربى قام بنشر أكتوبر 14, 2015 مشاركة قام بنشر أكتوبر 14, 2015 بسم الله الرحمن الرحيم اليكم نموذج لانتهاء صلاحية الملف عندما يكون التاريخ الحالي اكبر من التاريخ الموجود في الخلية A1 يقوم البرنامج بعمل Application.Visible = False ويعرض لنا فورم يفيد انتهاء المدة وتاكيد كلمة المرور وعند كتابة كلمة المرور خطأ لك5 محاولات وبعدها يغلق البرنامج اما ان كانت صحيحة وتحقق الشرط If TextBox1.Value = "aseel" Then Me.Hide Application.Visible = True كلمة المرور aseel طبعا واكيد ايقاف الماكرو هيفتح الملف عادي ونضيع الحماية نعمل ايه بقي نيحي في الحدث Private Sub Workbook_Open() Sheet1.Visible = xlSheetVeryHidden End Sub ونخفي الشيت عشان ميشفشي شغلنا رخامة بقي ولما يتحقق الحدث If TextBox1.Value = "aseel" Then 'Unload Me Me.Hide Application.Visible = True 'نحط هنا كود اظهار الشيت مرة اخرى sheet1.Visible = xlSheetVisible ياريت اكون وصلت المعلومة صح واي ملحوظة او خطأ انا موجود انتهاء صلاحية الملف.rar 5 رابط هذا التعليق شارك More sharing options...
وائل الاسيوطي قام بنشر أكتوبر 14, 2015 مشاركة قام بنشر أكتوبر 14, 2015 بسم الله الرحمن الرحيم اليكم نموذج لانتهاء صلاحية الملف عندما يكون التاريخ الحالي اكبر من التاريخ الموجود في الخلية A1 يقوم البرنامج بعمل Application.Visible = False ويعرض لنا فورم يفيد انتهاء المدة وتاكيد كلمة المرور وعند كتابة كلمة المرور خطأ لك5 محاولات وبعدها يغلق البرنامج اما ان كانت صحيحة وتحقق الشرط If TextBox1.Value = "aseel" Then Me.Hide Application.Visible = True كلمة المرور aseel طبعا واكيد ايقاف الماكرو هيفتح الملف عادي ونضيع الحماية نعمل ايه بقي نيحي في الحدث Private Sub Workbook_Open() Sheet1.Visible = xlSheetVeryHidden End Sub ونخفي الشيت عشان ميشفشي شغلنا رخامة بقي ولما يتحقق الحدث If TextBox1.Value = "aseel" Then 'Unload Me Me.Hide Application.Visible = True 'نحط هنا كود اظهار الشيت مرة اخرى sheet1.Visible = xlSheetVisible ياريت اكون وصلت المعلومة صح واي ملحوظة او خطأ انا موجود انتهاء صلاحية الملف.rar اخي العزيز ياسر لقد اثرت موضوعا كنت ابحث فيه منذ فتره جزاك الله خيرا هل القيت نظره علي هذا الموضوع وتبلغني برأيك ؟ http://www.officena.net/ib/topic/64153-تغيير-تاريخ-صلاحيه-ملف/ رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 14, 2015 مشاركة قام بنشر أكتوبر 14, 2015 بسم الله ما شاء الله تبارك الرحمن يبدو أن المنتدى قد اكتسب محترف جديد .. واصل أخي الحبيب ياسر بلا فواصل وعلى رأي الصقر (حسام عيسى) إنت بتشتغلنا وتقول مبتديء (عيب عليك الكلام ده) الحمد لله أصبحت الحركة الياسرية في المنتدى هي المهيمنة للآن ياسر فتحي البنا .. ياسر الشيخ .. ياسر خليل أبو البراء .. ياسر العربي أبو أسيل .. والبقية تأتي تقبل تحياتي 6 رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أكتوبر 14, 2015 الكاتب مشاركة قام بنشر أكتوبر 14, 2015 اخي العزيز وائل الاسيوطي مشكور مرورك الكريم وسأقوم بعمل اللازم في موضوعك باذن الله اخي واستاذي وحبيبي ياسر خليل ابو البراء واخونا الصقر حبيبي حسام عيسى واخونا ابو يوسف عشان دا عربي وتبعنا وجميع اخواننا في هذا المنتدي العظيم اللهم يسر امورنا ولا تعسرها انا يشرفني ان اكون اخ وصديق لكم في هذا المنتدي العظيم وان شاء الله اكون عند حسن ظن الجميع تقبل فائق احترامي ياسر العربي 1 رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أكتوبر 14, 2015 الكاتب مشاركة قام بنشر أكتوبر 14, 2015 الاخ وائل الاسيوطي ارجوا ان يكون هذا المثال يفي بالغرض لو في اي ملاحظات انا موجود aseel.rar 1 رابط هذا التعليق شارك More sharing options...
نبيل عبد الهادي قام بنشر مايو 14, 2016 مشاركة قام بنشر مايو 14, 2016 وان كان الرد متاخر . ولكن العمل رائع ومهم جدا ... بارك الله فيك اخ ياسر العربي 1 رابط هذا التعليق شارك 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.