No puedo copiar!!

Hola Cris,

?Cuando dices "...no me deja pegar de ninguna manera..." a que te refieres
exactamente? ?Que ocurre cuando intentas pegar? ?Te sale algun aviso?

Saludos,
KL

"Cris" wrote in message
news:

Hola a todos,
No se lo que he tocado esta manana, proteger y macros, que ahora copio
pero
no me deja pegar de ninguna manera. Le doy a copiar y no sale nada. Podeis
ayudarme?
Un saludo, Cristina

probablemente habras deshabilitado la opcion copiar, pegar y cortar
desde vba.

suele ser algo habitual para evitar la copia de ficheros.

aunque francamente no valido, pues craquear un xls, es muy sencillo.

utiliza esta macro para devolver a su estado normal, Copy, Paste...



Sub AbilitaCiertosControles()
Dim CBControl As CommandBarControl
Dim CBar As Integer
Dim MyArray
Dim X As Byte
Application.ScreenUpdating = False
CommandBars("Toolbar List").Enabled = True
'puedes añadir cuantos controles quieras
'Obviamente debes de saber su ID, lo cual no es dificil si vas a la
hoja...
MyArray = Array(19, 21, 23)
On Error Resume Next
'Para Habilitar los controles definidos en el array MyArray
For CBar = 1 To Application.CommandBars.Count
For Each CBControl In CommandBars(CBar).Controls
For X = LBound(MyArray) To UBound(MyArray)

Application.CommandBars(CBar).FindControl(ID:=MyArray(X),
Recursive:=True).Enabled = True
Next X
Next CBControl
Next CBar
Application.CommandBars("PLY").Enabled = True
On Error GoTo 0
End Sub








Cris ha escrito:

Hola a todos,
No se lo que he tocado esta mañana, proteger y macros, que ahora copio pero
no me deja pegar de ninguna manera. Le doy a copiar y no sale nada. Podeis
ayudarme?
Un saludo, Cristina