Evitar Cortar-Pegar en hoja protegida

Hola, KL y H,
Después de darle varias vueltas a lo que "conversamos", se me ocurrió que lo
más práctico - y es lo que hice - era olvidar el userform y dejar la
planilla como está, pero "obligando" al usuario a abrir habilitando las
macros. Para ello, oculté dos de las tres hojas del libro, de modo que si
abre sin macros no podrá trabajar. TIENE que abrir con macros para ver las
hojas donde debe ingresar datos. En el código de ambas hojas puse el código
que me enviaste, H con lo que no podrá arrastrar ni cortar pero sí copiar.
Gracias por ese código. Y en un módulo normal puse el siguiente código:

Sub Auto_Open()
Worksheets(1).Visible = True
Worksheets(3).Visible = True
Worksheets(3).Select
End Sub

Sub Auto_Close()
Worksheets(1).Visible = False
Worksheets(3).Visible = False
End Sub

Sólo me queda una pregunta, que sé que ustedes podrán responder: Si el
usuario elige Cerrar, las dos hojas se ocultan. Pero si luego pisa Cancelar,
quiero que se vuelvan a mostrar las hojas. No he podido dar con el código.
Un saludo
E.D.

Saludos
"Héctor Miguel" escribió en el mensaje
news:

hola, Esteban !

> ... un burro hablar frances... mas facil que... este usuario...

aprenda/use/se acostumbre a usar Access. Olvidalo.

==> :DDD

> ... si no doy con la forma de hacer ese formulario, prefiero arreglar

las formulas que dañe

> ... hasta hacerlo entender que... tiene que usar [copiar-pegar] para

trasladar datos de una celda aotra. (¿entenderá?).

ya 'entrados' en el tema, y [entendiendo que] si no 'te queda' otra que

'obligarlo' a usar las macros [por el userform]...

haz una prueba con los siguientes 'trucos' [obviamente usando las

macros]...

en el modulo de codigo de la hoja protegida ==> Private Sub Worksheet_Activate()
Application.CellDragAndDrop = False ' NO se pueden 'arrastrar' las

celdas :-(

End Sub
Private Sub Worksheet_Deactivate()
Application.CellDragAndDrop = True' YA se pueden 'arrastrar las celdas

:))

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCut Then Application.CutCopyMode = False

' SOLO se 'permite' el copy NO el cut :))

End Sub

si cualquier duda... comentas?
saludos,
hector.