حفظ شدن فونت و سایز در هنگام قفل کردن شیت توسط 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"