حفظ شدن فونت و سایز در هنگام قفل کردن شیت توسط vba

[a.dal65]

با سلام خدمت اساتید
من شیت خودمو Protect کردم تا کسی نتونه اطلاعات شیت رو تغییر بده.
(الیته توسط فرم VBA که تعبیه کردم میتونه یه سری کارها رو روی شیت انجام بده)

و فونت تمام سلول ها رو B Nazanin گذاشتم ، ولی وفتی کاربر توسط فرم VBA یک سطر به شیت اضافه میکنه فونت اون سطر B Nazanin نیست و فایل هم Protect هست و کاربر نمیتونه فونت رو تغییر بده

مثلا این کد در هنگام ایجاد اطلاعات توی شیت هست:

Private Sub CommandButton1_Click() 'Saving Button
Sheet2.Unprotect Password:="123"


code is hereeee 


With Sheet2
.Protect _
 Contents:=True, _
 AllowFiltering:=True, _
 UserInterfaceOnly:=True, _
 Password:=123
 End With
End Sub

حالا میشه به ته همین کد یا هر جای از کد بگم از فلان فونت استفاده کن؟؟؟؟؟؟
این چند تا نمونه بود ولی نتونستم به ته همین کد اضافه کنم.مثلا این یکیش
میشه کلا کاری کرد که تمام شیت توسط یه فونت باشه ؟

    Sub InsertHeader()
         Range("A1:C1").Select
         With Selection.Font
             .Name = "Arial"
             .FontStyle = "Bold"
             .Size = 14
         End With
     End Sub

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[امين اسماعيلي]

Sheet1.Cells.Font.Name = "Arial"