كيفية طباعة الأوراق المخفية بسرعة في Excel؟

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

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

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

كود VBA: طباعة الأوراق المخفية في Excel

Sub PrintHiddenSheets()
'Updated by Extendoffice 2024/07/15
Dim wSheet As Worksheet
Dim CurStat As Variant
For Each wSheet In ActiveWorkbook.Worksheets
If Not wSheet.Visible Then
CurStat = wSheet.Visible
wSheet.Visible = xlSheetVisible
wSheet.PrintOut
wSheet.Visible = CurStat
End If
Next
End Sub

2. وبعد ذلك انقر على الزر أو مفتاح F5 لتشغيل الكود. سيقوم هذا بطباعة جميع الأوراق المخفية في المصنف الخاص بك.