Cómo evitar que su libro de Excel se mueva o se copie

Comparte ahora:

El robo de datos se puede minimizar deshabilitando varios menús y funciones de clic derecho en Excel. A continuación, discutimos cómo hacer esto usando VBA.

Se supone que el lector muestra la cinta de Excel Developer y está familiarizado con VBA Editor.

La interfaz de usuario

Cree una hoja de trabajo con dos botones y algunos datos.  Cree una hoja de trabajo con dos botones y algunos datos

Esta hoja tendrá su cinta mostrada y toda la funcionalidad right_click que ofrece Excel.

La hoja esta disponible aquí.

El código VBA

Hay una variedad de controles de la barra de comandos que se pueden desactivar. Deberá buscar en Google los números de identificación de estos controles. Usaremos los ID 19 y 21 para este ejercicio.

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

Asigne el botón Restaurar a sub Restaurar y el botón Desactivar a sub Auto_open.

Ejecute el código Auto_open; notará que Cortar y Copiar están deshabilitados en el menú del botón derecho y que la cinta ha desaparecido. Tampoco podrá mover la hoja a otro libro desde la pestaña de la hoja.Asignar el botón de desactivación a Sub Auto_open

Siempre habrá formas de evitar estas precauciones, pero el objetivo es ponérselo difícil a todos menos al hacker serio; proteger la hoja de cálculo es un elemento disuasorio adicional, además de garantizar que no se pueda copiar directamente desde una subcarpeta.

Finalmente, proteja su código para que no se vea o cambie:  Herramientas> Propiedades> Protección.

Corrupción de archivos de Excel

“He des-engañado el archivo; ahora estoy experimentando fallas en Excel sin ningún motivo discernible. Sin embargo, todavía espero estar terminado hoy ".

Si esto tiene un final feliz o no, puede depender de si el usuario tiene o no una herramienta efectiva disponible con la que reparar Excel. En el caso que nos ocupa, la hoja de cálculo tenía más de 90,000 filas.

Introducción del autor:

Felix Hooker es un experto en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar rar y productos de software de recuperación de sql. Para más información visite www.datanumen.com

Comparte ahora:

Los comentarios están cerrados.