انتقل إلى المحتوى الرئيسي

كيف تحمي أوراق عمل متعددة في وقت واحد في إكسيل؟

لنفترض أن لديك مصنفًا يحتوي على أوراق عمل متعددة ، وتحتاج الآن إلى حماية جميع أوراق العمل أو بعض أوراق العمل المحددة ، عادةً في Excel ، يمكنك فقط حماية الورقة واحدة تلو الأخرى باستخدام وظيفة Protect Sheet ، لكن هذه الطريقة مملة و تستغرق وقتًا طويلاً إذا كان هناك العديد من الأوراق بحاجة إلى الحماية. كيف تحمي أوراق متعددة في وقت واحد في Excel بسرعة وسهولة؟

قم بحماية جميع الأوراق مرة واحدة باستخدام كود VBA

قم بحماية أوراق متعددة في وقت واحد باستخدام Kutools for Excel

قم بإلغاء حماية الأوراق المتعددة مرة واحدة باستخدام kutools for Excel


السهم الأزرق الحق فقاعة قم بحماية جميع الأوراق مرة واحدة باستخدام كود VBA

باستخدام رمز VBA التالي ، يمكنك حماية جميع أوراق المصنف النشط مرة واحدة بنفس كلمة المرور ، افعل ما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: حماية جميع أوراق العمل في مصنف مرة واحدة:

Sub protect_all_sheets()
top: 
pass = InputBox("password?") 
repass = InputBox("Verify Password") 
If Not (pass = repass) Then 
MsgBox "you made a boo boo" 
Goto top 
End If 
For i = 1 To Worksheets.Count 
If Worksheets(i).ProtectContents = True Then Goto oops 
Next 
For Each s In ActiveWorkbook.Worksheets 
s.Protect Password:=pass 
Next 
Exit Sub 
oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets then running this Macro." 
End Sub

3. ثم اضغط F5 مفتاح لتشغيل الكود ، وإدخال كلمة المرور للأوراق المحمية في مربع المطالبة ، انظر لقطة الشاشة:

متعددة الأوراق 1-1

4. انقر OK، ثم أدخل كلمة المرور مرة أخرى لتأكيد كلمة المرور.

متعددة الأوراق 2-2

5. ثم اضغط OK، وجميع الأوراق محمية بنفس كلمة المرور.


السهم الأزرق الحق فقاعة قم بحماية أوراق متعددة في وقت واحد باستخدام Kutools for Excel

في بعض الأحيان ، لا ترغب في حماية جميع الأوراق الموجودة في المصنف الخاص بك ، وتريد فقط حماية بعض الأوراق المحددة ، في هذه الحالة ، لن يعمل الرمز أعلاه. ولكن مع كوتولس ل إكسيلالصورة حماية ورقة العمل فائدة ، يمكنك حماية كل الأوراق والأوراق المحددة بسرعة وسهولة.

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 60

بعد تثبيت كوتولس ل إكسيليرجى اتباع الخطوات التالية:

1. انقر كوتولس بلس > حماية ورقة العمل، انظر لقطة الشاشة:

2. في حماية ورقة العمل في مربع الحوار ، حدد الأوراق التي تريد حمايتها. (بشكل افتراضي ، يتم فحص جميع أوراق العمل الموجودة في المصنف الحالي.) انظر لقطة الشاشة:

متعددة الأوراق 4-4

3. وانقر OK، ثم اكتب وأكد كلمة المرور في مربع الحوار حماية ورقة العمل. انظر لقطة الشاشة:

متعددة الأوراق 5-5

4. ثم اضغط OK، أوراق العمل المحددة محمية.

انقر فوق حماية ورقة العمل لمعرفة المزيد عن هذه الميزة.


السهم الأزرق الحق فقاعة قم بإلغاء حماية الأوراق المتعددة مرة واحدة باستخدام kutools for Excel

كيف يمكنك إلغاء حماية أوراق عمل محمية متعددة في مصنف في نفس الوقت؟ بالطبع، كوتولس ل إكسيل كما يوفر إلغاء حماية ورقة العمل فائدة لك لإلغاء حمايتها مرة واحدة.

يرجى اتباع الخطوات التالية:

1. افتح المصنف الذي يحتوي على أوراق العمل المحمية.

2. ثم اضغط كوتولس بلس > إلغاء حماية ورقة العمل، انظر لقطة الشاشة:

3. في إلغاء حماية ورقة العمل في مربع الحوار ، يتم إدراج الأوراق المحمية في مربع القائمة ، ثم انقر فوق Ok زر ، انظر لقطة الشاشة:

متعددة الأوراق 7-7

4. ثم أ إلغاء حماية ورقة العمل ينبثق مربع الحوار لتذكيرك بإدخال كلمة المرور التي قمت بإنشائها لحماية أوراق العمل ، انظر لقطة الشاشة:

متعددة الأوراق 8-8

5. بعد كتابة كلمة المرور ، انقر فوق Ok، تم إلغاء حماية جميع أوراق العمل المحددة في مربع القائمة.

ملحوظة: يجب أن تحتوي أوراق العمل على نفس كلمة المرور.

لمعرفة المزيد حول ميزة Unprotect Worksheet.

قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!


السهم الأزرق الحق فقاعة عرض توضيحي: قم بحماية أو إلغاء حماية جميع أوراق العمل مرة واحدة باستخدام Kutools for Excel

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

مقالة ذات صلة:

كيفية إلغاء حماية أوراق عمل متعددة مرة واحدة في Excel؟

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to use this in a shared workbook but I get a Microsoft Visual Basic error "Run-time error '1004": Application-defined or object-defined error" I am just looking for suggestions on how to get around this. Any help would be appreciated
This comment was minimized by the moderator on the site
Occurs when sheet is already locked
This comment was minimized by the moderator on the site
Thanks for the wonder full tool to protect & unprotect all the sheets at a time. Please guide me I am able to unprotect all sheets in my work book at a time but when I run protect all sheets VBA Code then only first 4 sheets are protected & rest or left unprotected. Please help me to sort out the issue.
This comment was minimized by the moderator on the site
How do I mask the password using the VBA method? I can not find this information via google or F1 help files. Thanks in advance!
This comment was minimized by the moderator on the site
Hi I used this code now I it wont accept my password to get back into my spreadsheet !!
This comment was minimized by the moderator on the site
I have chart tabs and worksheets in my Excel 2013 workbook. The VBA coding above works for the protecting the worksheets but not the separate chart tabs. How do i password protect the multiple chart tabs and multiple worksheets in my workbook? Thanks!
This comment was minimized by the moderator on the site
Hey, I need some help, the above code was very helpful, but it locks the sort (auto filter as well) can you please provide code to solve that problem and also where it would be inserted. Thank you in advance.
This comment was minimized by the moderator on the site
Thank you! This is awesome, I was even able to modify the VBA code so that I could unprotect all sheets at once! :) Sub unprotect_all_sheets() top: pass = InputBox("password?") repass = InputBox("Verify Password") If Not (pass = repass) Then MsgBox "you made a boo boo" GoTo top End If For i = 1 To Worksheets.Count Next For Each s In ActiveWorkbook.Worksheets s.Unprotect Password:=pass Next Exit Sub oops: MsgBox "I think you have some sheets that are already protected. Please unprotect all sheets B4 running this Macro." End Sub
This comment was minimized by the moderator on the site
when i activated this VBA, hyperlink doesn't work. how can i make them work? tnx :)
This comment was minimized by the moderator on the site
I am suddenly having the 1004 error as well. Anyone find a solution?
This comment was minimized by the moderator on the site
I'm suddenly having the error 1004 issue. Have been using the macro for months now it randomly fails.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations