Hi,
Is there any way to restrict fonts programmatically in a Excel template?

Thank you,
Ernesto

Hi Ernesto,

From my understanding to your issue, you are going to perform some
configuration for the fonts when the workbook is created based on one
customized workbook.

So far as I know, you can create one template with one specified font name
and size in Excel. The kb article 825577 introduces this method for you.
825577 HOW TO: Change the Default Font in Excel 2003
http://support.microsoft.com/?id=825577

If you want to programmatically change the font name and size, you can
create one procedure for the workbook open event and perform the
configuration. I have created one sample code for you.
'Code begin ----------------------------------------------------
Private Sub Workbook_Open()
Dim objSht As Worksheet
Set objSht = ActiveSheet

For Each objSht In ActiveWorkbook.Sheets
objSht.Select
Cells.Select
With Selection.Font
'please change the font properties according to your scenario
.Name = "Simple Bold Jut Out"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
Cells(1, 1).Select
End With
Next
ActiveWorkbook.Sheets(1).Select
End Sub
'Code end ------------------------------------------------------

Please create one empty excel workbook and then open the VBA editor, paste
the codes above into the "ThisWorkbook" file in the VBA editor. Then save
this workbook as one template. With this template, you can create the
workbook with the customized font.

Please feel free to let me know if there is any further question on this
issue. I am standing by to be of assistance.

Thanks for posting in the community!

Wei-Dong Xu
Microsoft Product Support Services
Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.