Obligar a sus clientes a habilitar macros de Excel

Para usar cualquier macro en Excel, sus usuarios deben habilitar las macros. Es decir, deben dar permiso a Excel para ejecutar macros en su entorno. Para habilitar macros, los usuarios hacen clic en el botón Habilitar contenido en la advertencia de seguridad que aparece encima de la barra de fórmulas.

La conclusión es que puede escribir todas las macros sofisticadas del mundo, pero nunca se ejecutarán a menos que sus usuarios habiliten las macros. Esto plantea la pregunta; ¿Puede obligar a los usuarios a habilitar macros? La respuesta es sí, con un pequeño truco.

La idea es relativamente sencilla. Creas una hoja llamada, digamos, INICIO. Esa hoja contiene solo una advertencia simple que indica que las macros deben estar habilitadas. Luego, oculta todas las hojas en el libro de trabajo, excepto esa hoja de INICIO. Finalmente, escribe una macro simple que muestra todas las hojas cuando se abre el libro.

En este punto, cuando se abre el libro de trabajo, Excel le pedirá al usuario que habilite las macros. Los usuarios se verán obligados a hacerlo porque todo lo que verán es su hoja de inicio. ¡Las otras hojas estarán ocultas!

Para que esta técnica funcione, necesita dos macros: una macro oculta todo menos la hoja de INICIO cuando se cierra el libro de trabajo, y otra macro que muestra todo menos la hoja de INICIO cuando se abre el libro de trabajo.

Primero, aborde las acciones que deben suceder cuando se cierre el libro. :

Active el Editor de Visual Basic presionando ALT + F11 en su teclado

En la ventana Proyecto, busque el nombre de su proyecto / libro de trabajo y haga clic en el signo más junto a él para ver todas las hojas.

Haga clic en ThisWorkbook.

En el cuadro desplegable Evento, seleccione el evento BeforeClose.

Escriba o pegue el siguiente código:

Private Sub Workbook_BeforeClose (Cancelar como booleano)
'Paso 1: Declare sus variables
  Dim ws como hoja de trabajo
Paso 2: Mostrar la hoja de inicio
  Hojas de cálculo ("INICIO"). Visible = xlSheetVisible
Paso 3: comience a recorrer todas las hojas de trabajo
  Para cada w en este libro de trabajo.
'Paso 4: Verifique el nombre de cada hoja de trabajo
  Si ws.Name <> "START", entonces
'Paso 5: Ocultar la hoja
  ws.Visible = xlVeryHidden
  Terminara si
'Paso 6: Pasar a la siguiente hoja de trabajo
  Siguiente ws
'Paso 7: Guarde el libro de trabajo
  ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open ()
'Paso 1: Declare sus variables
  Dim ws como hoja de trabajo
'Paso 2: comience a recorrer todas las hojas de trabajo
  Para cada w en este libro de trabajo.
Paso 3: Mostrar todas las hojas de trabajo
  ws.Visible = xlSheetVisible
'Paso 4: pasar a la siguiente hoja de trabajo
  Siguiente ws
Paso 5: Ocultar la hoja de inicio
  Hojas de cálculo ("INICIO"). Visible = xlVeryHidden
End Sub