اجرای یک قلم دلخواه

Question

برایان یک ورک بوک اکسل دارد که در دفتر او به اشتراک گذاشته شده است. او ورک بوک را ایجاد کرد و فونت پیش فرض را تنظیم کرد، اما شخصی در حال تغییر فونت است. برایان به این فکر می کند که آیا وقتی ورک بوک بسته می شود، می تواند فونت را به فونت مورد نظر خود مجبور کند.

یک راه آسان برای انجام این کار استفاده از کنترل کننده رویداد BeforeClose برای ورک بوک است. می توانید کنترل کننده را از هر یک از کاربرگ ها عبور دهید و فونت تمام سلول ها را به این صورت تنظیم کنید:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim s As Worksheet

    For Each s In ActiveWorkbook.Sheets
        s.Cells.Font.Name = "Calibri"
    Next
End Sub

این فونت را روی Calibri تنظیم می کند، اما می توانید نام فونت را در صورت لزوم تغییر دهید. اگر نیاز به تغییر سایر ویژگی های فونت دارید، می توانید کنترل کننده رویداد را برای انجام این کار تغییر دهید:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim s As Worksheet

    For Each s In ActiveWorkbook.Sheets
        With s.Cells.Font
            .Name = "Calibri"
            .Size = 10
        End With
    Next
End Sub

با این حال، باید مراقب باشید که بسیاری از ویژگی های فونت را تغییر دهید، زیرا ممکن است در نهایت از شر برخی که می خواهید نگه دارید، مانند پررنگ یا کج خلاص شوید.

به یاد داشته باشید که این ماکروها باید به شی ThisWorkbook در ویرایشگر ویژوال بیسیک اضافه شوند.