طلب مساعده من اهل الخبره ضروووورى

[محمد عبد الناصر]

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

 

اولا احب اشكر الاستاذ KHMB عشان ساعدنى فى الملف د كتييييييير ربنا يجعلو فى ميزان حسناتك

 

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

 

المشكله بقى ان الملف لو طلب الباسورد وانا كنسلت او دخلت باسورد غلط بيقفل عادى بس لو فتحتو بعدها تانى مش بيطلب الباسورد بيدخل عادى جدا   و يحسب  5 مرات تانى من الاول  ياريت حد يساعدنى فى المشكله دى انا عايزو يقفل لو الباسورد غلط وميفتحش من غيرو ولو الباسورد صح يبدا يعد 5 مرات تانى الملف فى المرفقات

 

ربنا يجعلو فى مزيان حسناتك يالى هاتساعدنى

وشكرا يا احلى منتدى

xD.rar

[ياسر خليل أبو البراء]

الأخ الفاضل فؤاد

بعد إذن أخي وحبيبي في الله الأستاذ خالد ..

جرب الكود بهذا الشكل:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If [IK41421] >= 3 Then GoTo 1
    [IK41421] = [IK41421] + 1
1:
    ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
    On Error Resume Next
    Sheets("Sheet1").Select
    
    If [IK41421] >= 3 Then
        'MsgBox "لقد استخدمت البرنامج 3 مرات ولن يفتح إلا بكلمة مرور"
        Dim pwd As String:  pwd = "KHMB12345"
        Cells(Rows.Count, Columns.Count).Activate
        
            If Application.InputBox("برجاء إدخال كلمة المرور لفتح الملف مرة اخري حيث فتح الملف ثلاثون مره ولا يمكن فتحه مرة اخرى الا بالرقم السري", "تصريح دخول للملف ", "???") <> pwd Then
                Sheets("Sheet1").Select
                Workbook.Update
                MsgBox " كلمة المرور غير صحيحة ! من فضلك راجع مسئول النظام حيث تم فتح الملف 3 مرات ، ولا يمكن فتحه مرة أخرى إلا بالرقم السري", 0, "عفواً الدخول محظور"
                ThisWorkbook.Save
                ThisWorkbook.Application.Quit
            Else
                Range("IK41421").Value = 0
                Range("A1").Select
            End If
    End If
End Sub

[محمد عبد الناصر]

 

الأخ الفاضل فؤاد

بعد إذن أخي وحبيبي في الله الأستاذ خالد ..

جرب الكود بهذا الشكل:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If [IK41421] >= 3 Then GoTo 1
    [IK41421] = [IK41421] + 1
1:
    ThisWorkbook.Save
End Sub

Private Sub Workbook_Open()
    On Error Resume Next
    Sheets("Sheet1").Select
    
    If [IK41421] >= 3 Then
        'MsgBox "لقد استخدمت البرنامج 3 مرات ولن يفتح إلا بكلمة مرور"
        Dim pwd As String:  pwd = "KHMB12345"
        Cells(Rows.Count, Columns.Count).Activate
        
            If Application.InputBox("برجاء إدخال كلمة المرور لفتح الملف مرة اخري حيث فتح الملف ثلاثون مره ولا يمكن فتحه مرة اخرى الا بالرقم السري", "تصريح دخول للملف ", "???") <> pwd Then
                Sheets("Sheet1").Select
                Workbook.Update
                MsgBox " كلمة المرور غير صحيحة ! من فضلك راجع مسئول النظام حيث تم فتح الملف 3 مرات ، ولا يمكن فتحه مرة أخرى إلا بالرقم السري", 0, "عفواً الدخول محظور"
                ThisWorkbook.Save
                ThisWorkbook.Application.Quit
            Else
                Range("IK41421").Value = 0
                Range("A1").Select
            End If
    End If
End Sub

باشا انت باااااااااااااااااااااااشااااااااااااااااااااااااا ربنا يارب يجعلو فى ميزان حسناتك متعرفش انت ساعدتنى اد ايه ربنا يعزك وينصرك ان شاء الله شكراااااااااااااااااااا يا حلى منتدى

[ياسر خليل أبو البراء]

الفضل لله وحده ثم للأخ الحبيب خالد صاحب الكود ..

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

متفكرش يعني إني عملت اللي حد ميقدرش يعمله

وأعتذر للأخ خالد عن التعديل في الكود ، أرجو أن يقبل اعتذاري

[محمد عبد الناصر]

الفضل لله وحده ثم للأخ الحبيب خالد صاحب الكود ..

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

متفكرش يعني إني عملت اللي حد ميقدرش يعمله

وأعتذر للأخ خالد عن التعديل في الكود ، أرجو أن يقبل اعتذاري

والله انت وهو ربنا يجعلو فى ميزان حسنتكو انت الاتنين ربنا يعزكو الكود شغال تمام اوى على الملف الى عملو الاستاذ خالد تمام بس لو حتيط الكود على ملف جديد بيتحط عادى ومش بيجيب اى ايرور فى حاجه اسمها This WorkBook بس لما بقفل وافتح مش بلاقى الكود مش عارف اخليه يسبت ازاى فى الحدث ده ولا انا بحوط الكود كده فى مكان غلط ؟

[ياسر خليل أبو البراء]

عند حفظ الملف يظهر لك 3 اختيارات اختار No ثم حدد اسسم للحفظ وحدد نوع الحفظ Macro Enabled.. أعتقد هذه هي مشكلتك

[محمد عبد الناصر]

عند حفظ الملف يظهر لك 3 اختيارات اختار No ثم حدد اسسم للحفظ وحدد نوع الحفظ Macro Enabled.. أعتقد هذه هي مشكلتك

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