ضبط الكود تحديد تاريخ قفل ملف وانتهاء صلاحية فتحه

[بوحماد]

ارجو منكم ضبط الكود تحديد تاريخ قفل الملف عندما يفتح يطلي كلمة السر وبعد ماتخذ cancel يقول كلمة سر خائطية بعد تاخذ موافق تاخذ الغاء الامر تدخل على الملف كيف نلغى او نعدل الكود حتى لايفتح الملف علما بأن كلمة المرور الله اكبر وهذا الكود موخوذ من ةهذة المشاركة http://www.officena....showtopic=28643

45.rar

[عبدالله المجرب]

جرب هذا التعديل

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

[بوحماد]

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

تم تعديل يونيو 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

[بوحماد]

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

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل أبا أحمد حفظك الله ورعاك

جزاك الله كل خير وبارك فيك وبك.

أظن أنه كما علمتني سابقاً...

يجب أضافة السطرين التاليين في الكود الأول بدايته والآخر نهايته لكي يعمل الكود بدون مشاكل.

Application.DisplayAlerts = False

Application.DisplayAlerts = True

لأن الكود بدونهما اذا فتحت الملف ثم أخترت الغاء وعدت وفتحت الملف سوف يفتح بدون طلب كلمة السر

أبو أنس

[إبراهيم ابوليله]

فعلا اخ ابو انس

ملحوظه مهمه جدا

بارك الله فيك