اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

المثال الأول

يقوم بعمل الحماية

Sub Pr1()

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True


End Sub
ثم فكها اذا كتبنا كلمة السر و هي 123
Sub Pr2()

x = InputBox("please enter PAssword '123'", "Password", 123)

If x <> 123 Then

 MsgBox "Sorry !!! "

 Exit Sub

End If



    ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False


End Sub

UnprotectSheet.rar

  • Like 1
قام بنشر

المثال الثاني

مثل السابق

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

و هي 1234

لأن الحالة السابقة يمكن فك الحماية من القوائم مباشرة

Sub Pr1()

    ActiveSheet.Protect Password:=1234, DrawingObjects:=True, Contents:=True, Scenarios:=True


End Sub


Sub Pr2()

x = InputBox("please enter PAssword '1234'", "Password", 123)

If x <> 1234 Then

 MsgBox "Sorry You are not Allowed !!! "

 Exit Sub

End If



    ActiveSheet.Protect Password:=1234, DrawingObjects:=False, Contents:=False, Scenarios:=False


End Sub

UnprotectSheetPass.xls

  • Like 2
  • 15 years later...

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

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information