Bryan tiene un libro de Excel que comparte en su oficina. Creó el libro de trabajo y estableció la fuente predeterminada, pero alguien está cambiando la fuente.

Bryan se pregunta si puede forzar la fuente a la fuente deseada cuando se cierra el libro.

Una forma sencilla de hacerlo es usar el controlador de eventos BeforeClose para el libro. Puede hacer que el controlador recorra cada una de las hojas de trabajo y establezca la fuente para todas las celdas de esta manera:

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

Esto establece la fuente en Calibri, pero puede cambiar el nombre de la fuente, según sea necesario. Si necesita cambiar otras características de la fuente, puede modificar el controlador de eventos para hacerlo:

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

Sin embargo, querrá tener cuidado al cambiar demasiadas características de fuente, ya que puede terminar deshaciéndose de algunas que desea conservar, como negrita o cursiva.

Recuerde que estas macros deben agregarse al objeto ThisWorkbook en el Editor de Visual Basic.

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (4801) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.