كلمة السر

[aneen]

تحية طيبة وبعد

يوجد لدى ملف اكسيل ووضعت علية حماية ضد التعديل" الغاء حماية ورقة " ولكنى فقدة الرقم السرى الخاص به

وقد حاولة فتحة وذلك لأتمكن من تعديل بعض المعادلات ولكننى فوجئت بأننى قد نسيت كلمة السر الخاصة بتعديل هذا الملف

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

واشكر لكم حسن صنيعكم للمساعدة

[aneen]

تحياتى لجميع الاخوة في هذا المنتدى

سؤالى الى مشرف هذا القسم ارجو الرد او الرد على ايميلى الخاص

تم وضع هذا السؤال وكنت اريد اجابة له ولكننى فوجئت بعدم الاجابة لااعلم لماذا وبعد عدة ايام وفي تاريخ 06/12/2005 الموافق 04/11/1426

تم وضع نفس السؤال ولكن بصيغة اخرى من قبل الاخ المشترك shatat

وتم وضع الاجابة فورا

لماذا او هل سؤالى غير مفهوم

واننى اشكر هذا المنتدى على جميع ماتعلمناها من اوامر وطرق عمل بعض البرامج

واشكر كل من هو قائم على هذا المنتدى المفضل لدى

[jakord]

إذا لم تتمكن حتى الآن راسلني على الإيميل التالي كي أساعدك

jakord@yahoo.com

[joly]

Private Sub Worksheet_Activate()

xx:

Dim x

x = InputBox("Password required" & Chr(13) & "يلزم معرفة كلمة السر للدخول لهذه الصفحه ", "من فضلك أدخل كلمة السر")

If IsNull(x) Or x = "" Then GoTo xx

If x = "بسم الله" Then

MsgBox "كلمة السر تم قبولها تفضل لتنفيذ العمليه"

Else

MsgBox "Wrong Password" & Chr(13) & " عفواً لم تدخل كلمة السر الصحيحه سيتم العوده بك للصفحة الرئيسيه !!", vbOKOnly

Sheets("Main").Activate

End If

End Sub

اكتبها داخل Sheet فى صفحة Visual Basic و ليس Module