كيفية التحقق مما إذا كانت ورقة العمل أو المصنف محميًا في Excel؟
إذا كنت تريد التحقق مما إذا كانت ورقة عمل أو مصنف معين محميًا أم لا في Excel ، فيمكن أن تساعدك هذه المقالة.
تحقق مما إذا كانت ورقة العمل محمية برمز VBA
تحقق مما إذا كان المصنف محميًا برمز VBA
تحقق مما إذا كانت ورقة العمل محمية برمز VBA
يمكن أن يساعدك رمز VBA التالي في التحقق بسهولة من ورقة العمل المحمية أو غير المحمية في المصنف الحالي. الرجاء القيام بما يلي.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الكود.
كود فبا: تحقق مما إذا كانت ورقة العمل محمية أم لا
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 مفتاح لتشغيل الكود ، ثم أ كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد خلية لتحديد موقع نتائج التحقق ، ثم النقر فوق الزر OK .
ملاحظة:
1. إذا كانت الخلية التي حددتها في ورقة عمل محمية ، فهناك خلية أخرى كوتولس ل إكسيل سوف يظهر مربع الحوار ، انقر فوق OK زر ، سيتم حفظ نتيجة الفحص في ورقة عمل جديدة تم إنشاؤها.
2. على العكس من ذلك ، إذا كانت الخلية المحددة في ورقة عمل غير محمية ، فسيتم عرض نتيجة الفحص في النطاق المحدد على الفور.
يمكنك رؤية نتيجة الفحص على النحو التالي:
تحقق مما إذا كان المصنف محميًا برمز VBA
أيضًا ، يمكنك التحقق مما إذا كان المصنف النشط محميًا أم لا برمز VBA. الرجاء القيام بما يلي.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الكود.
رمز فبا: تحقق مما إذا كان المصنف محميًا أم لا
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:
• كوتولس ل إكسيل's حماية ورقة العمل و إلغاء حماية ورقة العمل يمكن أن تساعدك الأدوات المساعدة في حماية أوراق عمل متعددة أو إلغاء حمايتها بسهولة في مصنف نشط مرة واحدة في Excel. انظر أدناه لقطة الشاشة:
قم بتنزيل الإصدار المجاني الكامل من Kutools for Excel لمدة 30 يومًا الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!