Bryan在他的办公室共享一个Excel工作簿。他创建了工作簿并设置了默认字体，但是有人在更改字体。

Bryan想知道在关闭工作簿时是否可以将字体强制为所需的字体。

一种简单的方法是为工作簿使用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

但是，您可能要小心，更改太多的字体特征，因为您最终可能会摆脱想要保留的字体，例如粗体或斜体。

请记住，应将这些宏添加到Visual Basic编辑器中的ThisWorkbook对象中。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（4801）适用于Microsoft Excel 2007、2010、2013和2016。