Como impedir que sua pasta de trabalho do Excel seja movida ou copiada

O roubo de dados pode ser minimizado desativando vários menus e recursos de clique com o botão direito do mouse no Excel. Discutimos abaixo como fazer isso usando o VBA.

Supõe-se que o leitor tenha a faixa de opções do Excel Developer exibida e esteja familiarizado com o Editor VBA.

A interface do usuário

Construa uma planilha com dois botões e alguns dados. 

Esta planilha terá sua faixa de opções exibida e toda a funcionalidade de clique com o botão direito que o Excel oferece.

A ficha está disponível aqui..

O Código VBA

Há uma variedade de controles da barra de comandos que podem ser desabilitados. Você precisará pesquisar no Google os números de identificação desses controles. Usaremos IDs 19 e 21 para este exercício.

Sub Auto_Open()    ‘Auto_open runs automatically when the workbook is opened
    Dim Control As Office.CommandBarControl

    Application.CommandBars("ply").Enabled = False     'disables right-Click on sheet tab

    For Each Control In Application.CommandBars.FindControls(ID:=21)    'disables CUT
        Control.Enabled = False
    Next Control

    For Each Control In Application.CommandBars.FindControls(ID:=19)     'disables COPY
        Control.Enabled = False
    Next Control
    Application.CellDragAndDrop = False
 
    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"     'Hides ribbon
End Sub

Sub Restore()
    Application.CommandBars("ply").Enabled = True     'enables right-click on sheet tab

    Dim Control As Office.CommandBarControl

    For Each Control In Application.CommandBars.FindControls(ID:=21)     'enables CUT
        Control.Enabled = True
    Next Control

    For Each Control In Application.CommandBars.FindControls(ID:=19)     'enables COPY
        Control.Enabled = True
    Next Control
    Application.CellDragAndDrop = True

    Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"     'shows ribbon
End Sub

Sub Auto_close()    
    Call Restore    ‘Ensure other workbooks work properly
End Sub

Atribua o botão Restaurar ao subRestaurar e o botão Desativar ao subAuto_open.

Execute o código Auto_open; você notará que Recortar e Copiar estão desativados no menu do botão direito e que a faixa de opções desapareceu. Você também não poderá mover a planilha para outra pasta de trabalho na guia da planilha.

Sempre haverá maneiras de contornar essas precauções, mas o objetivo é tornar isso difícil para todos, exceto para o hacker sério; proteger a planilha é um impedimento adicional, além de garantir que ela não possa ser copiada diretamente de uma subpasta.

Finalmente, proteja seu código de ser visualizado ou alterado:  Ferramentas>Propriedades>Proteção.

Corrupção de arquivo do Excel

“Eu desdupliquei o arquivo; agora estou tendo falhas no Excel sem motivo aparente. No entanto, ainda espero terminar hoje.

Se isso tem um final feliz ou não, pode depender se o usuário tem ou não uma ferramenta eficaz disponível com a qual reparar Excel. No caso em questão, a planilha tinha mais de 90,000 linhas.

Introdução do autor:

Felix Hooker é um especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar rar e produtos de software de recuperação SQL. Para mais informações visite www.datanumen.com