اگر همزمان با تعداد زیادی ورک بوک باز کار می کنید، می دانید که مرور و ذخیره هر یک از کتاب های کار باز به نوبه خود می تواند دردسرساز باشد. آیا داشتن یک فرمان که به شما امکان می دهد تمام کتاب های باز را بدون نیاز به انجام دستی ذخیره کنید، عالی نیست؟
متأسفانه چنین دستوری در نسخه های اکسل که از رابط نواری استفاده می کنند وجود ندارد، اما می توانید با استفاده از یک ماکرو آن را ایجاد کنید. مثال زیر نمونه خوبی از مواردی است که می توانید استفاده کنید:
Sub SaveAll()
Dim Wkb As Workbook
For Each Wkb In Workbooks
If Not Wkb.ReadOnly And Windows(Wkb.Name).Visible Then
Wkb.Save
End If
Next
End Sub
ماکرو را در ورک بوک شخصی خود ذخیره کنید، آن را به نوار ابزار دسترسی سریع یا یک کلید میانبر اختصاص دهید، و می توانید هر چند وقت یکبار آن را فراخوانی کنید. تمام کتاب های باز را ذخیره می کند، به جز مواردی که فقط خواندنی یا پنهان هستند.
