Columnas protegidas

22/10/2003 - 20:45 por Ricardo | Informe spam
Tengo una hoja de excel con los datos protegidos y quiero
poder ocultar y mostrar las columnas que yo desea ... aun
siempre y cuando esten protegidas.

por favor ... si alguien tiene la respuesta
gracias.

Preguntas similare

Leer las respuestas

#1 Víctor
22/10/2003 - 21:18 | Informe spam
Si la hoja se protege, es precisamente para evitar
manipulaciones de ese tipo. Si quieres mostrar u ocultar
columnas constantemente, es mejor que no trabajes con
hojas o libros protegidos.

:-)

Tengo una hoja de excel con los datos protegidos y


quiero
poder ocultar y mostrar las columnas que yo desea ...


aun
siempre y cuando esten protegidas.

por favor ... si alguien tiene la respuesta
gracias.
.

Respuesta Responder a este mensaje
#2 Héctor Miguel
23/10/2003 - 09:35 | Informe spam
¿que tal, chicos?

Ricardo escribio en el mensaje
... hoja ... datos protegidos ... poder ocultar y mostrar las columnas [...]

Víctor escribio en el mensaje
... es precisamente para evitar manipulaciones ... es mejor que no trabajes con hojas o libros protegidos.





si usas excel-xp, puedes 'permitir' al usuario modificar formatos [filas y/o columnas] de entre otras opciones

si usas una version 'anterior' podrias 'permitir' modificaciones =>por codigo<= [p.e.]:
una vez 'protegida' la hoja de la manera 'tradicional' [manualmente?] con password y todo ...
1) 'aplica' la propiedad 'UserInterfaceOnly:=True' al metodo 'Protect' [de 'la hoja'] en el evento '_Open' del libro
[no necesitas 'repetir' el password, la interfase del usuario 'sigue restringida' ... y lo que 'hagas × codigo' es 'OK']
2) usa una macro para mostrar / ocultar las columnas 'apropiadas'
[podrias 'hacer privado' el modulo -o solo el procedimiento- para que SOLO 'quien conozca' la macro la 'ejecute']
en el modulo de codigo del libro 'ThisWorkbook' ==Private Sub Workbook_Open()
Worksheets("NombreDeLaHoja").Protect UserInterfaceOnly:=True
End Sub
en un modulo de codigo 'normal' para 'manejar' las columnas [p.e.] 'C', 'D' y 'E' ==Option Private Module
Sub Mostrar_Ocultar_Columnas()
With Worksheets("NombreDeLaHoja").Columns("c:e").EntireColumn
If .Hidden Then .Hidden = False Else .Hidden = True
End With
End Sub

Saludos,
Héctor.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida