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

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

قام بنشر

أخفاء اسماء الصفحات واخفاء المنيوبار للبرن

شاكر مرورك اخي وائل 

 

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

من غير اخفاء اسماء الصفحات

قام بنشر
Sub protectTransactions()
   Sheets("هنا اسم الشيت").Protect Password:="هنا كلمة السر", AllowFiltering:=True
End Sub
Sub UnprotectTransactions()
   Sheets("هنا اسم الشيت").Unprotect Password:="هنا الباسورد"
End Sub

وفي حدث التحميل اكتب كود الحماية

protectTransactions

ولالغائها

unprotectTransactions
قام بنشر
Sub protectTransactions()
   Sheets("هنا اسم الشيت").Protect Password:="هنا كلمة السر", AllowFiltering:=True
End Sub
Sub UnprotectTransactions()
   Sheets("هنا اسم الشيت").Unprotect Password:="هنا الباسورد"
End Sub

وفي حدث التحميل اكتب كود الحماية

protectTransactions

ولالغائها

unprotectTransactions

اسف اني سأثقل عليك اخي وائل انا بحاول اجربها بتعطي خطأ ممكن ترفها بملف

قام بنشر

الجزء الاول كنت محتاج فيه تعطيل امكانيه اضافه صفحات او حذفها او تعديل الاسم او اخفائها 

الجزء الثاني انا كنت محتاجه يطلب كلمه السر عند الغاء الحمايه

مع جزيل الشكر لمساعدتك اخي وائل

قام بنشر (معدل)

سلمت يداك اخي وائل 

وربنا مايجيب رفد ان شاء الله 

كان في ملحوظه   فعل الحمايه سواء للملف او الشيت  وقف علي اي خليه هاتظهر لك ايقونه فك الحمايه سواء في شريط المهام او عند الكليك يمين علي شريط الصفحات 

تقبل تحياتي

تم تعديل بواسطه وائل الاسيوطي

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

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

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

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

سجل حساب جديد

تسجيل دخول

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

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

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

Important Information