Note: The other languages of the website are Google-translated. Back to English

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

لنفترض أن لديك مصنفًا يحتوي على أوراق عمل متعددة ، وتحتاج الآن إلى حماية جميع أوراق العمل أو بعض أوراق العمل المحددة ، عادةً في 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 for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (21)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عظيم - فكيف تحميهم جميعًا مرة واحدة؟ أنا هاوٍ ، لذا أحتاج إلى مزيد من المعلومات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] عظيم - فكيف تحميهم جميعًا مرة واحدة؟ أنا هاوٍ ، لذا أحتاج إلى مزيد من المعلومات.بقلم كريستين دزوغان[/ quote] :-) يمكنك بسهولة إلغاء حمايتها كـ http://www.extendoffice.com/product/kutools-for-excel/excel-unprotect-multiple-sheets.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Sub unotect_all_sheets () top: pass = InputBox ("password؟") repass = InputBox ("تحقق من كلمة المرور") إذا لم يكن (pass = repass) ثم MsgBox "قمت بعمل boo boo" GoTo top End If For i = 1 To Worksheets . عد التالي لكل ثانية في ActiveWorkbook.Worksheets s.Unprotect Password: = pass Next Sub oops: MsgBox "أعتقد أن لديك بعض الأوراق المحمية بالفعل. الرجاء إلغاء حماية جميع الأوراق B4 التي تشغل هذا الماكرو." End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كما قالت كريستين ، كيف يمكنك إلغاء حمايتهم جميعًا مرة واحدة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لذا ، كيف يمكنني إلغاء الحماية بدون kutools؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] إذن ، كيف يمكنني إلغاء الحماية بدون kutools؟بواسطة تشيكوسلوفاكيا[/ اقتباس] يمكنك إلغاء حماية ورقة العمل بدون كوتولس ل إكسيل. تحتاج فقط إلى النقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد إلغاء حمايتها والنقر فوق أمر إلغاء حماية الورقة ، ثم إدخال كلمة المرور الخاصة بك. :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أقوم بفرض الكود فإنه يأتي بـ "خطأ وقت التشغيل 1004 ؟؟ مع إبراز التالي باللون الأصفر ... كلمة مرور s.Protect: = تمرير
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أواجه فجأة خطأ 1004 أيضًا. لقد كنت أستخدم الماكرو منذ شهور ولكن لن يتم تشغيله الآن.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كنت أواجه هذه المشكلة أيضًا. تبين أنه لا يمكن تشغيله إذا كان لديك كل الأوراق المحددة في المصنف. حاول تحديد ورقة واحدة فقط ثم تشغيل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أواجه فجأة مشكلة الخطأ 1004. لقد تم استخدام الماكرو لأشهر الآن بشكل عشوائي فشل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أواجه فجأة خطأ 1004 أيضًا. أي شخص يجد حلا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما قمت بتنشيط VBA هذا ، الارتباط التشعبي لا يعمل. كيف يمكنني جعلهم يعملون؟ tnx :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! هذا رائع ، لقد تمكنت حتى من تعديل كود VBA حتى أتمكن من إلغاء حماية جميع الأوراق مرة واحدة! :) Sub unotect_all_sheets () top: pass = InputBox ("password؟") repass = InputBox ("Verify Password") إذا لم يكن (pass = repass) ثم MsgBox "قمت بعمل boo boo" GoTo top End If For i = 1 إلى Worksheets.Count Next لكل ثانية في ActiveWorkbook.Worksheets s.Unprotect Password: = اجتياز الإنهاء التالي Sub oops: MsgBox "أعتقد أن لديك بعض الأوراق المحمية بالفعل. الرجاء إلغاء حماية جميع الأوراق B4 التي تعمل بهذا الماكرو." End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أحتاج إلى بعض المساعدة ، كان الكود أعلاه مفيدًا للغاية ، لكنه يقفل الفرز (المرشح التلقائي أيضًا) ، هل يمكنك تقديم رمز لحل هذه المشكلة وأيضًا مكان إدخاله. شكرا لكم مقدما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي علامات تبويب وأوراق عمل المخططات في مصنف Excel 2013 الخاص بي. يعمل ترميز VBA أعلاه لحماية أوراق العمل ولكن ليس علامات تبويب المخططات المنفصلة. كيف أحمي بكلمة مرور علامات تبويب المخططات المتعددة وأوراق العمل المتعددة في المصنف الخاص بي؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد استخدمت هذا الرمز الآن ولن أقبل كلمة المرور الخاصة بي للعودة إلى جدول البيانات الخاص بي !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أقوم بإخفاء كلمة المرور باستخدام طريقة VBA؟ لا يمكنني العثور على هذه المعلومات عبر ملفات تعليمات google أو F1. شكرا لك مقدما!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نشكرك على الأداة الكاملة المعجزة لحماية جميع الأوراق وإلغاء حمايتها في وقت واحد. يرجى إرشادي ، فأنا قادر على إلغاء حماية جميع الأوراق الموجودة في كتاب العمل الخاص بي في وقت واحد ، ولكن عندما أقوم بتشغيل حماية جميع الأوراق ، فإن رمز VBA فقط يتم حمايته والراحة أو تركه بدون حماية. الرجاء مساعدتي في حل المشكلة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحاول استخدام هذا في مصنف مشترك ولكني أحصل على خطأ Microsoft Visual Basic "خطأ وقت التشغيل '1004": خطأ معرف بواسطة التطبيق أو معرف كائن "أنا فقط أبحث عن اقتراحات حول كيفية التغلب على هذا. أي سيكون موضع تقدير المساعدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يحدث عندما تكون الورقة مؤمنة بالفعل
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL