Não permitir o carregamento/salvamento de outras planilhas (sem hack OLE)

Uma vulnerabilidade em potencial é que as planilhas do Excel podem ser salvas em disco usando comandos VBA ou OLE. Para impedir esse método de extração de dados, o XLS Padlock inclui uma poderosa opção de segurança chamada “Do not allow loading/saving other workbooks” (Não permitir o carregamento/salvamento de outras planilhas).

Quando habilitado, esse recurso faz com que a instância do Excel que executa sua aplicação fique incapaz de carregar ou salvar qualquer outro arquivo de planilha. Isso bloqueia de forma eficaz que os usuários abram outras planilhas e impede hacks baseados em VBA que tentam copiar dados para um novo arquivo sem proteção.

Esse recurso de segurança também bloqueia o código VBA padrão de salvar ou carregar planilhas. Se sua aplicação precisar legitimamente realizar essas ações, há uma solução alternativa disponível.

Você pode desabilitar temporariamente a restrição dentro do seu código VBA. Para isso, primeiro é necessário habilitar a opção avançada “Allow loading/saving other workbooks through VBA SetOption helper” (Permitir o carregamento/salvamento de outras planilhas por meio do helper VBA SetOption) aqui:

Em seguida, você pode usar o seguinte código VBA:

Dim XLSPadlock As Object
Set XLSPadlock = Application.COMAddIns("GXLS.GXLSPLock").Object

' Temporarily disable the security
XLSPadlock.SetOption Option:= "2", Value:= "0"
XLSPadlock.SetOption Option:= "1", Value:= "1" ' Also disable encrypted save prompt

' Your code to save a normal workbook
ActiveWorkbook.SaveAs "D:\My Documents\NormalWorkbook.xlsx"

' Re-enable the security
XLSPadlock.SetOption Option:= "2", Value:= "1"
XLSPadlock.SetOption Option:= "1", Value:= "0"