COMO ASEGURARSE DE PROTEGER UNA HOJA Y/O LIBRO

[Rocky]

Cómo se puede hacer para proteger la información en una hoja, al confirmar que utilizando el comando Copy y después Paste en otra hoja, se pierde esta protección, estoy interesado en proteger una hoja para evitar que se modifique la información contenida, evitando las modificaciones tal como lo indiqué anteriormente.

Gracias por la ayuda.

 

[NateO]

Hola Rocky. Vea por favor el siguiente de Bill Manville (1/3 abajo de la página):

Funcione DisableCutAndPaste de un procedimiento conveniente del acontecimiento (e.g. Workbook_Open o Worksheet_Activate) y de EnableCutAndPaste de otro (e.g. Workbook_Close o Worksheet_Deactivate)

Los procedimientos que comienzan con Workbook entran en el módulo de ThisWorkbook. Los procedimientos que comienzan con Worksheet entran en el módulo apropiado de la hoja de trabajo.<pre>
Sub DisableCutAndPaste()
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' paste
EnableControl 755, False ' pastespecial
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""
Application.CellDragAndDrop = False
End Sub

Sub EnableCutAndPaste()
EnableControl 21, True ' cut
EnableControl 19, True ' copy
EnableControl 22, True ' paste
EnableControl 755, True ' pastespecial
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"
Application.CellDragAndDrop = True
End Sub

Sub EnableControl(Id As Integer, Enabled As Boolean)
Dim CB As CommandBar
Dim C As CommandBarControl
For Each CB In Application.CommandBars
Set C = CB.FindControl(Id:=Id, recursive:=True)
If Not C Is Nothing Then C.Enabled = Enabled
Next
End Sub</pre>

http://www.j-walk.com/ss/excel/eee/eee020.txt

Usted puede conseguir fácilmente alrededor de esto usando:<pre>
application.enableevents = false</pre><pre></pre>
Retrasará a usuarios el principiante

"Excel es inseguro..."

No he probado esto

Aclamaciones, Nate
This message was edited by nateo on 2002-07-16 19:17