KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف يمكنك التحقق مما إذا كانت ورقة العمل أو المصنف محميًا في Excel؟

المؤلفSiluviaتاريخ التعديل

إذا كنت ترغب في التحقق مما إذا كانت ورقة العمل أو المصنف الذي تستخدمه محميًا في Excel، فستساعدك هذه المقالة على ذلك.

التحقق مما إذا كانت ورقة العمل محمية باستخدام كود VBA
التحقق مما إذا كان المصنف محميًا باستخدام كود VBA

التحقق مما إذا كانت ورقة العمل محمية باستخدام كود VBA

يمكنك استخدام كود VBA التالي للتحقق بسهولة من أوراق العمل المحمية أو غير المحمية في المصنف الحالي. يُرجى اتباع الخطوات التالية:

1. اضغط على مفاتيحAlt + F11 في وقتٍ واحد لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة نمطية (Module). ثم انسخ والصق كود VBA أدناه في نافذة الكود.

كود VBA: التحقق مما إذا كانت ورقة العمل محمية أم لا

Sub GetProtectedSheets()
    Dim sh As Worksheet
    Dim xSaveSht As Worksheet
    Dim xSaveToRg As Range
    Dim xSaveToRg1 As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xSaveToRg = Application.InputBox("Please select a cell for saving the checking result:", "Kutools for Excel", xTxt, , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    If xSaveToRg.Worksheet.ProtectContents Then
        If MsgBox("This worksheet is protected, would you like to create a new sheet to save the checking result？", vbInformation + vbYesNo, "Kutools for Excel") = vbYes Then
            Set xSaveSht = ThisWorkbook.Worksheets.Add
            Set xSaveToRg = xSaveSht.Cells(1)
        Else
            Exit Sub
        End If
    End If
    Set xSaveToRg = xSaveToRg.Cells(1)
    Set xSaveToRg1 = xSaveToRg.Offset(0, 1)
    xSaveToRg.Value = "Protected worksheet"
    xSaveToRg1.Value = "Unprotected worksheet"
    Set xSaveToRg = xSaveToRg.Offset(1)
    Set xSaveToRg1 = xSaveToRg1.Offset(1)
    For Each sh In Worksheets
        If sh.Name <> xSaveSht.Name Then
            If sh.ProtectContents Then
                xSaveToRg.Value = sh.Name
                Set xSaveToRg = xSaveToRg.Offset(1)
            Else
                xSaveToRg1.Value = sh.Name
                Set xSaveToRg1 = xSaveToRg1.Offset(1)
            End If
        End If
    Next
End Sub

3. اضغط على مفتاحF5 لتشغيل الكود، ثم ستظهر نافذة حواريةKutools لـ Excel. حدد خلية لعرض نتائج الفحص، ثم انقر على زرموافق.

لقطة شاشة تُظهر مربع الحوار لاختيار خلية لحفظ نتيجة الفحص في Excel

ملاحظات:

1. إذا كانت الخلية التي حددتها موجودة في ورقة عمل محمية، فستظهر نافذة حوارية أخرى منKutools لـ Excel. انقر على زرموافق، وسيتم حفظ نتيجة الفحص في ورقة عمل جديدة تم إنشاؤها.

لقطة شاشة تُظهر مربع الحوار الذي يشير إلى ورقة العمل، وستُحفظ نتيجة الفحص في ورقة عمل جديدة تم إنشاؤها

2. إذا كانت الخلية المحددة تقع في ورقة عمل غير محمية، فسيتم عرض نتيجة الفحص في تحديد النطاق على الفور.

يمكنك رؤية نتيجة الفحص كما في لقطة الشاشة أدناه:

لقطة شاشة تعرض نتيجة أوراق العمل المحمية وغير المحمية في Excel

التحقق مما إذا كان المصنف محميًا باستخدام كود VBA

يمكنك أيضًا استخدام كود VBA للتحقق مما إذا كان المصنف الحالي محميًا. يُرجى اتباع الخطوات التالية:

1. اضغط علىAlt + F11 في وقتٍ واحد لفتح نافذةMicrosoft Visual Basic for Applications.

2. فيMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة نمطية (Module). ثم انسخ والصق كود VBA أدناه في نافذة الكود.

كود VBA: التحقق مما إذا كان المصنف محميًا أم لا

Sub IsWorkbookProtected()
With ActiveWorkbook
  If .ProtectWindows Or .ProtectStructure Then
    MsgBox "This workbook is password protected"
  Else
    MsgBox "This workbook is not password protected"
  End If
End With
End Sub

3. اضغط على مفتاحF5 لتشغيل الكود.

ستظهر لك إحدى نوافذ الحوار التالية وفقًا لمصنفك.

لقطة شاشة لمربع الرسالة الذي يشير إلى ما إذا كانت مصنّف Excel محميًا بكلمة مرور

حماية أو إزالة حماية أوراق العمل المتعددة في مصنف دفعة واحدة بسهولة في Excel:

تتيح لك أداةKutools لـ Excel، من خلال ميزتيحماية ورقة العملوإزالة حماية ورقة العمل، حماية أوراق عمل متعددة أو إزالة حمايتها دفعة واحدة في المصنف الحالي في Excel. راجع لقطة الشاشة أدناه:

لقطة شاشة لميزة Kutools for Excel لحماية أو إزالة الحماية من أوراق عمل متعددة دفعة واحدة

Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن

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

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

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

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

  • تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل