Forçando seus clientes a habilitar macros do Excel

Para usar qualquer macro no Excel, seus usuários devem habilitar macros. Ou seja, eles devem dar permissão ao Excel para executar macros em seu ambiente. Para habilitar macros, os usuários clicam no botão Habilitar Conteúdo no aviso de segurança que aparece acima da barra de fórmulas.

O resultado final é que você pode escrever todas as macros sofisticadas do mundo, mas elas nunca serão executadas a menos que seus usuários habilitem as macros. Isso levanta a questão; você pode forçar os usuários a habilitar macros? A resposta é sim - com um pouco de malandragem.

A ideia é relativamente simples. Você cria uma planilha chamada, digamos, START. Essa planilha contém apenas um aviso simples informando que as macros devem ser habilitadas. Em seguida, você oculta todas as planilhas da pasta de trabalho, exceto a planilha INICIAL. Por fim, você escreve uma macro simples que exibe todas as planilhas quando a pasta de trabalho é aberta.

Nesse ponto, quando a pasta de trabalho for aberta, o Excel solicitará que o usuário habilite as macros. Os usuários serão forçados a fazer isso porque tudo o que verão é a sua planilha inicial. As outras planilhas ficarão ocultas!

Para fazer essa técnica funcionar, você precisa de duas macros: uma macro oculta tudo, exceto a planilha INICIAL, quando a pasta de trabalho é fechada, e outra macro, que exibe tudo, exceto a planilha INICIAL, quando a pasta de trabalho é aberta.

Primeiro, analise as ações que precisam acontecer quando a pasta de trabalho é fechada. :

Ative o Editor do Visual Basic pressionando ALT + F11 no teclado

Na janela Projeto, encontre o nome do seu projeto / pasta de trabalho e clique no sinal de mais próximo a ele para ver todas as planilhas.

Clique em ThisWorkbook.

Na caixa suspensa Evento, selecione o evento BeforeClose.

Digite ou cole o seguinte código:

Private Sub Workbook_BeforeClose (Cancelar como Booleano)
'Passo 1: Declare suas variáveis
  Dim ws como planilha
'Etapa 2: Reexibir a folha inicial
  Planilhas ("INICIAR"). Visível = xlSheetVisible
'Etapa 3: comece a percorrer todas as planilhas
  Para cada ws neste livro de trabalho.Fichas de trabalho
'Etapa 4: Verifique o nome de cada planilha
  Se ws.Name <> "START" então
'Passo 5: Ocultar a folha
  ws.Visible = xlVeryHidden
  Fim se
'Etapa 6: Loop para a próxima planilha
  Próximo ws
'Etapa 7: Salvar a pasta de trabalho
  ActiveWorkbook.Save
End Sub

Sub Workbook_Open ()
'Passo 1: Declare suas variáveis
  Dim ws como planilha
'Etapa 2: comece a percorrer todas as planilhas
  Para cada ws neste livro de trabalho.Fichas de trabalho
'Etapa 3: Reexibir todas as planilhas
  ws.Visible = xlSheetVisible
'Etapa 4: Loop para a próxima planilha
  Próximo ws
'Passo 5: Ocultar a folha inicial
  Planilhas ("INICIAR"). Visível = xlVeryHidden
End Sub