بوحماد قام بنشر يونيو 22, 2012 مشاركة قام بنشر يونيو 22, 2012 ارجو منكم ضبط الكود تحديد تاريخ قفل الملف عندما يفتح يطلي كلمة السر وبعد ماتخذ cancel يقول كلمة سر خائطية بعد تاخذ موافق تاخذ الغاء الامر تدخل على الملف كيف نلغى او نعدل الكود حتى لايفتح الملف علما بأن كلمة المرور الله اكبر وهذا الكود موخوذ من ةهذة المشاركة http://www.officena....showtopic=28643 45.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يونيو 22, 2012 مشاركة قام بنشر يونيو 22, 2012 جرب هذا التعديل Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False If Date > DateValue("1/3/2012") Then If InputBox("لطفاً أدخل كلمة السر ") <> "الله اكبر" Then MsgBox "كلمة مرور خطائة " ThisWorkbook.Close Else Application.Visible = True MsgBox "تفضل بالدخول كلمة مرورك صحيحة " End If End If End Sub رابط هذا التعليق شارك More sharing options...
بوحماد قام بنشر يونيو 23, 2012 الكاتب مشاركة قام بنشر يونيو 23, 2012 (معدل) بارك الله فيك استاذنا عبدالله المجرب طبعا هو المطلوب لكن فية شويا عندما نغير التاريخ فى الكود اى نمدد تاريخ الكود لايفتح الملف تم تعديل يونيو 23, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يونيو 23, 2012 مشاركة قام بنشر يونيو 23, 2012 جرب كذا Private Sub Workbook_Open() If Date > DateValue("1/3/2012") Then Application.Visible = False If InputBox("لطفاً أدخل كلمة السر ") <> "الله اكبر" Then MsgBox "كلمة مرور خطائة " ThisWorkbook.Close Else Application.Visible = True MsgBox "تفضل بالدخول كلمة مرورك صحيحة " End If End If End Sub رابط هذا التعليق شارك More sharing options...
بوحماد قام بنشر يونيو 23, 2012 الكاتب مشاركة قام بنشر يونيو 23, 2012 مشكور استاذنا عبدالله على رادك السريع نعم هو المطلوب بارك الله فيك تحياتى رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر يونيو 23, 2012 مشاركة قام بنشر يونيو 23, 2012 السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا أحمد حفظك الله ورعاك جزاك الله كل خير وبارك فيك وبك. أظن أنه كما علمتني سابقاً... يجب أضافة السطرين التاليين في الكود الأول بدايته والآخر نهايته لكي يعمل الكود بدون مشاكل. Application.DisplayAlerts = False Application.DisplayAlerts = True لأن الكود بدونهما اذا فتحت الملف ثم أخترت الغاء وعدت وفتحت الملف سوف يفتح بدون طلب كلمة السر أبو أنس رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر يونيو 25, 2012 مشاركة قام بنشر يونيو 25, 2012 فعلا اخ ابو انس ملحوظه مهمه جدا بارك الله فيك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان