سؤال

يمكنني استخدام خصائص ورقة عمل Excel إلى معرفة ما إذا كان حماية ورقة العمل (ورقة العمل.حماية ورقة العمل.ProtectContents الخ).

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

هل كانت مفيدة؟

المحلول

وجدت الجواب نفسي:

أنا في حاجة إلى Workbook.ProtectStructure و Workbook.ProtectWindows خصائص.

نصائح أخرى

ورقة العمل.ProtectedContents هو ما كنت بحاجة إلى استخدام كل ورقة عمل.

لذلك أود أن إعداد حلقة من هذا القبيل:

Public Function wbAllSheetsProtected(wbTarget As Workbook) As Boolean 

Dim ws As Worksheet 

wbAllSheetsProtected = True

For Each ws In wbTarget.Worksheets 
    If ws.ProtectContents = False Then 
        wbAllProtected = False
        Exit Function 
    End If 
Next ws 

End Function

الدالة بإرجاع True إذا كان كل ورقة عمل محمية ، و False إذا كان هناك أي أوراق العمل غير المحمية.آمل أن يكون هذا هو ما كنت تبحث عنه.

مرخصة بموجب: CC-BY-SA مع الإسناد
لا تنتمي إلى StackOverflow
scroll top