اذهب الي المحتوي
أوفيسنا

كلمة السر


aneen

الردود الموصى بها

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...

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

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information