Herramientas
Herramientas: Proteger
Proteger y desproteger: una hoja y copiar los datos en
otra
Véalo
aquí
Sub copiandoYprotegiendo()
'protege la hoja
ActiveSheet.Protect "contraseña"
'copia el contenido del rango en la hoja siguiente, en rango D1
Range("A2:A3").Select
Selection.Copy 'previamente se habrá seleccionado algo
ActiveSheet.Paste Destination:=ActiveSheet.Next.Cells(1, 4)
Application.CutCopyMode = False
'desprotege la hoja para poder ocultar una columna
ActiveSheet.Unprotect "contraseña"
'oculta la col 1 de la hoja activa
ActiveCell.EntireColumn.Hidden = True
End Sub
|
