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

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

قام بنشر

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

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

 

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

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

قام بنشر
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

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

قام بنشر

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

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

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

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

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

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

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

تقبل تحياتي

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information