مشكلة فى قفل صفحة اكسيل بباسورد

[aboezz623]

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

من فضل الجميع المساعدة

عندى شغل أكسيل أقوم بعمل قفل للصفحة بباسورد وعند إحتياجى لعمل تعديل أقوم بكتابة الباسورد وأقوم بالتعديل

وعند رجوعى للشغل أجده غير مقفل بباسورد ويجب على وضع باسورد من جديد

برجاء المساعده فى هذا الأمر للأهمية

تم تعديل أكتوبر 4, 2018 بواسطه aboezz623

[أحمد يوسف]

وعليكم السلام اخى الكريم

لماذا تقوم بتكرار نفس المشاركة ونفس الطلب

عليك بحذف مشاركة منهما فكلاهما موضوع واحد ؟

جزاك الله كل خير

[Ali Mohamed Ali]

أخى الكريم لماذا لا تستخدم خاصية البحث فى المنتدى قبل رفع المشاركة

فهناك موضوع مهم جدا عن ذلك الغرض لأستاذنا الكريم سليم حاصبيا وبه ملف ممتاز -وموجود هنا :

https://www.officena.net/ib/topic/84508-حماية-الخلايا-غير-الفارغة-بواسطة-باسوورد/?tab=comments#comment-536608

 

[aboezz623]

شكراً جداً أخى الكريم والإعتزار مرة أخرى على ما حدث كونى جديد معكم بالمنتدى

[aboezz623]

هل من الممكن تعليمى كيف أضيف هذا الكود على العمل الخاص بى

[Ali Mohamed Ali]

تفضل انظر الى الصورة حتى تقوم بوضح الكود فى حدث الورقة

وهذا هو الكود الذى سيتم وضعه:

Dim tt As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

If Not Intersect(Target, Range("PRot_range")) Is Nothing And Target.Address <> "$A$1" Then
m = Target.Count
c = [AA1]
k = tt
If IsEmpty(k) Then GoTo 1
If m * c >= 1 Then
        Application.EnableEvents = False
     my_pass = Application.InputBox(" áÇ íãßä ÇáÊÚÏíá Ýí åÐå ÇáÎáíÉ.... " _
     & Chr(10) & "ÇáÇ ÈÍÇáÇÊ ÎÇÕÉ ÊÊØáÈ ßáãÉ ãÑæÑ", "password")
      If my_pass = "pass" Then GoTo 1
        Application.Undo
        Application.EnableEvents = True
       
End If
    End If
1:
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
tt = Selection.Value
End Sub

 

[aboezz623]

شكراً جداً على الإهتمام

[aboezz623]

أخى الكريم مشكلة ظهرت لى كل ما أغلق الجهاز لا يحفظ الكود

[Ali Mohamed Ali]

عليك بحفظ الملف بصيغة XLSM

 

[aboezz623]

للأسف ما زالت المشكلة موجودة

المولد.xlsx

الملف المرفوع هو المراد قفلة وأيضاً معرفة الطريقة

[Ali Mohamed Ali]

تفضل

 

 

 

المولد.xlsm