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

[اسلام مسلم]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
ارجو من السادة الاعضاء ذو الخبرة جزاكم الله كل خير وزادكم الله علما وتواضعا
برجاء عمل المطلوب فى الملف المرفق وهو معرفة البنين الحاصلين على درجة اقل من 25 في العمود c ,وفى نفس الوقت الحاصلين على اقل من 10 في العمود B مع عدم حساب الخلايا التى تختوى على  الصفروطلبى الثانى ممكن كيفية قفل ملف بعد شهر اوشهرين من فتحه بباس ورد معين

شكرا لحضراتكم
فى رعاية الله وحفظه

المطلوب.rar

[اسلام مسلم]

لا اله الا انت سبحانك انى كنت من الظالمين

[ابو اسامة العينبوسي]

Private Sub Workbook_Open()
Dim x As Date
x = Date
If x >= Sheets(1).Cells(1, 1).Value Then
MsgBox "goodbyee"
Application.DisplayAlerts = False
    With ThisWorkbook
        .Saved = True
        .Close
    End With
Else: MsgBox " file will close after " & Sheets(1).Cells(1, 1).Value - x & " days "
End If
End Sub 

السلام عليكم

بخصوص اغلاق الملف

هناك ايضا عشرات الطرق

2015.rar

[اسلام مسلم]

شكرا جزيلا استاذى الفاضل

اعزك الله ونفع بك دائما وكنتم فيمن خصهم الله بقضاء حوائج الناس

جارى التجربة  لان خبرتى ليست عميقة فى عالم الاكواد

استودعكم الله

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

[اسلام مسلم]

شكرا جزيلا لاخى الفاضل الاستاذ 

ابو اسامة العينبوسي

 الكود يعمل بنجاح ومتشكر جدا لمتابعة حضرتك

هل من حل لطلبى الثانى فى المشاركة

[اسلام مسلم]

هذه مشاركة من اخى الفاضل المحترم الاستاذ 

KHMB  ليستفيد الاعضاء منها

Option Explicit

 

Private Sub Workbook_Open()

 

If Date > DateValue("1/5/2015") Then

    If InputBox(" فضلا أدخل كلمة السر ") <> "الله أكبر" Then

        Kill_Myself

    End If

End If

End Sub

Private Sub Kill_Myself()

    

    With Me

        .Saved = True

        .ChangeFileAccess xlReadOnly

        Kill .FullName

        .Close False

    End With

    

End Sub

[اسلام مسلم]

هل من حل لطلبى الثانى فى المشاركة