هشــــام الســـورى قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 استأذن ممكن كود يمكن المستخدم بفتح الملف لحد يوم مثلا ( 1/1/2017 ) بعد التاريخ دة البرنامج يقفل ماحدا يقدر يفتحة غيرى شكرا
الصـقر قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 (معدل) تفضل اخى الحبيب ضع هذا الكود فى حدث فتح الملف Private Sub Workbook_Open() If Date > DateValue(" 1/1/2017") Or Date < DateValue(" 1/1/2016") Then ThisWorkbook.Close End If End Sub يمكنك تغيير التواريخ المذكوره الى اى شئ تحب تقبل تحياتى تم تعديل ديسمبر 30, 2015 بواسطه الصـقر
هشــــام الســـورى قام بنشر ديسمبر 30, 2015 الكاتب قام بنشر ديسمبر 30, 2015 شكرا اخى الصـقر تم اضافة الكود تمام بس بعد تغيير التاريخ ال 1/1/2017 فعلا قفل ولما رجعت التاريخ الى اليوم لم يتم فتح البرنامج كدة انا ضيعت المستخدم وضيعت نفسى انا محتاج بس يرجعلى فى الوقت الى انا محددة وافتح البرنامج انا تانى وامد البرنامج بتاريخ تانى شكرا 1
الصـقر قام بنشر ديسمبر 30, 2015 قام بنشر ديسمبر 30, 2015 (معدل) اخى الحبيب انا ميردنيش انك تضيع وضيع الناس انتى برضوا حبيبى لاحظ ان التاريخ 2016/1/1 لم يأتى بعد لذالك تاريخ اليوم طبيعى مش هيفتح اما بخصوص ازاى انت تدخل وتعدل قم بايقاف الماكرو ومن ثم تدخل الفيجوال بيسك وتعدل التاريخ وتدخل عادى المهم هذا كود اخر Private Sub Workbook_Open() If Date > DateValue(" 1/1/2017") Or Date < DateValue(" 1/1/2016") Then Application.Visible = False Dim q As String q = InputBox("لفتح الملف يتطلب كلمة مرور ") If IsNull(q) Or q = "" Or q <> "123" Then MsgBox "كلمة المرور غير صحيحه سيتم غلق الملف ", vbCritical, " عفوا" Application.DisplayAlerts = False ThisWorkbook.Close Else Application.Visible = True End If End If End Sub كلمة المرور لفتح الملف فى حال كان خارج الفتره المذكوره هو 123 طبعا يمكن انت تغيره الى اى رقم سرى اخر تقبل تحياتى التحكم فى فترة صلاحية الملف.zip تم تعديل ديسمبر 30, 2015 بواسطه الصـقر 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.