Como Evitar borrar hoja

28/12/2005 - 07:40 por Gabriel Raigosa | Informe spam
Saludos:

Normalmente al proteger un libro se protege la estructura, de esta manera no
se pueden insertar hojas y tampoco eliminar.

Pero si necesito insertar hojas, y lo que quiero es proteger una hoja en
particular contra eliminación ¿como se podria hacer?, la hoja no se puede
ocultar por que es una base de de datos en la cual se agregan datos, y
ocasionalmente se agregan otras hojas y se eliminan (aquellas que aparecen
al dar doble click en un campo de tabla dinamica y luego de imprimir un
reporte se eliminan)

TKS...
Gabriel Raigosa
Medellín - Colombia
GabrielRaigosa@hot.mail.com
 

Leer las respuestas

#1 Gabriel Raigosa
28/12/2005 - 17:08 | Informe spam
Voy a ensayar y te comento.

TKS...

Gabriel Raigosa
Medellín - Colombia

"Héctor Miguel" escribió en el mensaje
news:%23SYA4%
hola, Gabriel !

Normalmente al proteger un libro se protege la estructura, de esta manera
no se pueden insertar hojas y tampoco eliminar.
Pero si necesito insertar hojas, y lo que quiero es proteger una hoja en
particular contra eliminacion, como se podria hacer?
la hoja no se puede ocultar por que es una base de de datos en la cual se
agregan datos
y ocasionalmente se agregan otras hojas y se eliminan
(aquellas que aparecen al dar doble click en un campo de tabla dinamica y
luego de imprimir un reporte se eliminan)



[primero]: no hay ningun 'impedimento' para que puedas seguir agregando
datos a cualquier hoja -> aun 'oculta' ;)
-> Worksheets("Mi Hoja Oculta").Range("a65536").End(xlUp).Offset(1) =
"Nuevo dato"
[supongo que con lo anterior, pudiera ya no ser necesario lo siguiente]...

[segundo]: si las hojas las eliminas por codigo... puedes des/re/proteger
el libro y 'en el inter', eliminas 'la hoja' ;)
Sub Eliminar_Hoja_En_Libro_Protegido()
ThisWorkbook.Unprotect "password"
Application.DisplayAlerts = False
Worksheets("Hoja2").Delete
Application.DisplayAlerts = True
ThisWorkbook.Protect "password", True, True
End Sub

solo 'asegurate' que la hoja que eliminas... sea 'la correcta' :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares