Cambiar Formato de Excel para un archvo

24/11/2005 - 19:28 por Carlos Enrique | Informe spam
Saludos, como podria hacer para que en un archivo especifico de Excel, que
contiene 3 hojas con fourmulas y macros relacionadas entre si, no se
visualize los encabezados de las lineas y columnas (1,2,3,4... y A,B,C;D...)
y no visulize las opciones de la barra de herramientas sino solo algunas,
como lo es Guardar, Imprimir, Vista Previa, y algunas otras.

En fin para que quede en si las hojas con sus pestañas para cambiar de hoja
y visualizar la informacion de cada hoja y ejecutar un macro en una de
ellas.

Cada una de las hojas esta protegida, solo en una de las hojas se introducen
datos lo cuales esas celdas quedan desprotegidas.

La idea es que solo tenga este efecto en el archivo en cuestion y no afecte
la configuracion del excel al abrir otro archivo con excel.

Gracias por la ayuda que puedan prestarme, Saludos.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
25/11/2005 - 01:28 | Informe spam
hola, Carlos Enrique !

... que en un archivo especifico... no se visualize los encabezados de las lineas y columnas (1,2,3,4... y A,B,C;D...)
y no visulize las opciones de la barra de herramientas sino solo algunas, como lo es Guardar, Imprimir, Vista Previa, y algunas otras
... que solo tenga este efecto en el archivo en cuestion y no afecte la configuracion del excel al abrir otro archivo con excel.



1) el que se muestren o no los encabezados de filas y columnas... es parte de las caracteristicas que 'se graban' con cada hoja
-> revisa p.e. en [menu] herramientas / opciones / [ficha] ver / [seccion] opciones de ventana -> encabezados de fila y columna
cuando grabas el archivo, permanecen 'como estan' -> para cada hoja<- en ese libro ;)

2) para 'suspender' herramientas/comandos de las barras de menus y comandos de la aplicacion...
-> si que se afecte en otros libros... requiere manejar los eventos '_activate' y '_deactivate' del objeto ThisWorkbook [en vba]
[ademas de un poquitin de mas 'precision' en cuanto a cuales si y cuales no] :))
-> [probablemente] te convendria una barra [menus/herramientas] personalizada y adjuntar dicha barra a tu libro -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
Respuesta Responder a este mensaje
#2 Carlos Enrique
25/11/2005 - 01:58 | Informe spam
Hola Héctor Miguel, Gracias por la respuesta, efectivamente al realizar los
cambios, fueron efectivos, respecto al encabezado de las Lineas y Columnas,
solo afectan a la hoja donde la desactive, pero respecto a la barra de
Formulas y al menu personalizado, al Grabr y salir del archivo, cuando entro
nuevamente en excel, no tengo ninguna de las barras de herramientas, solo la
personalizada y por otra parte el Menu tambien quisiera personalizarlo, pero
solo para este archivo, en todas sus hojas, que no afecte a excel si abro
este archivo que solo aparecieran lo que requiero, si abro excel sin abrir
ningun archivo o abriendo cualquier otro archivo, posea sus caracteristicas
estandar de siempre.

Las opciones del Menu que quisiera son:
Archivo - Guardar
Vista Previa
Imprimir
Salir

Y por parte de la Barra de Herramientas:

Guardar
Vista Previa
Imprimir
Salir

Claro, que esto no pueda ser cambiado por el usuario, algo asi como con una
clave o algo para modificar la estructura de la barra de herramientas y las
opciones del menu personalizados.

De resto, que no aprezca nada, solo el contenido de cada hoja, Las pestañas
para moverse a cada hoja y las opciones descritas.

Por otra parte en otro post coloque la peticion de como hacer para ejecutar
un macro que esta en el mismo libro en cuestion, en una de las hojas, pero
tenia bloqueadas y protegidas las celdas, muy amablemente, me respondio
esto:


A continuación te paso las dos lineas de codigo a colocar en el macro:

ActiveSheet.Unprotect("clave") '-esta va al principio

ActiveSheet.Protect("clave") '-esta va al final

con esto tenes el problema solucionado, si no queres que se vea la clave
de protección de la hoja en el codigo simplemente ponele una clave de
acceso al codigo.





Esto funciona correctamente, pero existe un detalle, cuando Protego la hoja
inicialmente, existe un cuadro de
Titulo "Permitir a los Usuarios de esta hoja de Calculo" con diversas
opciones donde yo desabilito las opciones "Seleccionar Celdas Bloqueadas" y
"Seleccionar Celdas Desbloquedas" el resto de las opciones estan
desmarcadas, Esto tiene la finalidad de que el usuario no pueda seleccionar
ninguna celda, Pero cuando ejecuto el macro con el codigo que me indicastes,
y Salvo o Guardo el Archivo, al volver a entrar al archivo nuevamente
permite seleccionar las celdas bloqueadas aunque igualmente estan
bloqueadas, pero permite dezplazarse de celda en celda

Como podria hacer para que la proteccion quedara como cuando lo hago
manualmente???

Gracias, sobre todo por lo extenso del texto.
Respuesta Responder a este mensaje
#3 Héctor Miguel
25/11/2005 - 03:36 | Informe spam
hola, Carlos Enrique ! [en esta ocasion, dejo -fracciones de- tu consulta al final] :D

1) con relacion a la manipulacion de las barras de menus y comandos en el entorno de 'otros' usuarios...
a) me parecen 'demasiadas' opciones a deshabilitar para dejar 'alcanzables'... 'solo algunas' -?-
b) al 'meterte' con -posible- el arreglo personalizado de otros usuarios... [a mi... no me gustaria que...]
c) [con toda seguridad] las barras que TU ves en tu sesion... seran [muy] distintas en la sesion de los otros
d) segun como [actualmente] estes deshabilitando 'lo normal'... tienes que 'regresarlo'... ANTES de salir de tu libro
e) [me parece que] tienes que re/pensar en el 'maquillaje' de tu aplicacion...
o... empezar a tener en consideracion [bastantes] 'eventualidades' que [seguramente] encontraras en otras pc's
f) [insisto] usa una barra de menus/herramienas personalizada [la cual puedes adjuntar a tu archivo en cuestion]...
y en el modulo de codigo del libro [ThisWorkbook]...
-> los eventos '_windowactivate' y '_windowdeactivate' para ocultar/restablecer el entorno 'normal' de la aplicacion
[segun como lo hubieras deshabilitado o 'escondido']
-> y el evento '_beforeclose' para eliminar TU barra de herramientas personalizada ANTES de salir de tu libro
-> quizas te sea conveniente manejar tambien la caracteristica del 'FullScreen'
[para no meterte con cada barra de menus/comandos que pudiera tener el usuario]

2) con relacion a la proteccion de una hoja que interfiere con la ejecucion de macros...
-> para que la proteccion NO 'afecte' a tus macros ->SIN tener que [des/re]proteger la hoja NI por/en otros codigos<-
en el modulo de codigo del libro ==Private Sub Workbook_Open()
Worksheets("Hoja1").Protect _
PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _
UserInterfaceOnly:=True
End Sub
=> [practicamente] TODO lo que 'hagas por codigo'... pasara 'sin problemas

3) con relacion a la des/habilitacion de las caracteristicas de seleccion de celdas des/bloqueadas...
a) [hasta donde se]... la 'primera vez' que una hoja se protege [ya sea por codigo o por la interfase del usuario]...
NO tiene 'habilitada' la opcion para 'prohibir' la seleccion de celdas bloqueadas :-(
b) una vez que 'esta' caracteristica se ha establecido [quitando la marca a la opcion de celdas 'bloqueadas']...
SIGUE estando 'operable' con cada des/re/proteccion a esa hoja :))
c) si la 'primera' vez ocurre por codigo... -> ANTES de establecer la proteccion... -> usa la siguiente instruccion:
Worksheets("nombre de la hoja").EnableSelection = xlUnlockedCells
[seguida de la instruccion que le pone el password]
-> [obviamente] las celdas 'permitidas' [o desbloqueadas] ya debieron haberse establecido ;)

si cualquier duda [o necesitas mas informacion con lo de los commandbars]... comentas ?
saludos,
hector.

__ 1 __
... respecto a la barra de Formulas y al menu personalizado, al Grabr y salir del archivo
cuando entro nuevamente en excel, no tengo ninguna de las barras de herramientas
solo la personalizada y por otra parte el Menu tambien quisiera personalizarlo
pero solo para este archivo... que no afecte a excel... sus caracteristicas estandar de siempre.
Las opciones del Menu que quisiera son: Archivo - Guardar, Vista Previa, Imprimir, Salir
Y por parte de la Barra de Herramientas: Guardar, Vista Previa, Imprimir, Salir
... que esto no pueda ser cambiado por el usuario... una clave... para modificar la estructura de la barra de herramientas [...]


__ 2 __
... en otro post... como hacer para ejecutar un macro... en una de las hojas, pero tenia bloqueadas y protegidas las celdas [...]
ActiveSheet.Unprotect("clave") '-esta va al principio
ActiveSheet.Protect("clave") '-esta va al final [...]




... funciona correctamente, pero existe un detalle, cuando Protego la hoja inicialmente


__ 3 __
existe un cuadro de Titulo "Permitir a los Usuarios de esta hoja de Calculo" con diversas opciones
... yo desabilito las opciones "Seleccionar Celdas Bloqueadas" y "Seleccionar Celdas Desbloquedas"
el resto de las opciones estan desmarcadas... cuando ejecuto el macro con el codigo que me indicastes
y Salvo o Guardo el Archivo, al volver a entrar al archivo nuevamente permite seleccionar las celdas bloqueadas [...]
Respuesta Responder a este mensaje
#4 Carlos Enrique
25/11/2005 - 05:52 | Informe spam
Hola Héctor Miguel, la verdad es que me perdi con la explicación, disculpa
mis limitaciones...


Voy a ir paso por paso:


1) con relacion a la manipulacion de las barras de menus y comandos en el
entorno de 'otros' usuarios...
a) me parecen 'demasiadas' opciones a deshabilitar para dejar
'alcanzables'... 'solo algunas' -?-
b) al 'meterte' con -posible- el arreglo personalizado de otros
usuarios... [a mi... no me gustaria que...]
c) [con toda seguridad] las barras que TU ves en tu sesion... seran
[muy] distintas en la sesion de los otros
d) segun como [actualmente] estes deshabilitando 'lo normal'... tienes
que 'regresarlo'... ANTES de salir de tu libro
e) [me parece que] tienes que re/pensar en el 'maquillaje' de tu
aplicacion...
o... empezar a tener en consideracion [bastantes] 'eventualidades'
que [seguramente] encontraras en otras pc's
f) [insisto] usa una barra de menus/herramienas personalizada [la cual
puedes adjuntar a tu archivo en cuestion]...
y en el modulo de codigo del libro [ThisWorkbook]...



Estoy de acuerdo contigo respecto a la Barra Personalizada, se como se
adjunta al libro ya que el cuadro de dialogo tiene la opcion para ello, pero
como hago para adjuntarla en el Modulo de codigo del libro [ThisWorkbook]
???



-> los eventos '_windowactivate' y '_windowdeactivate' para
ocultar/restablecer el entorno 'normal' de la aplicacion
[segun como lo hubieras deshabilitado o 'escondido']
-> y el evento '_beforeclose' para eliminar TU barra de
herramientas personalizada ANTES de salir de tu libro
-> quizas te sea conveniente manejar tambien la caracteristica del
'FullScreen'
[para no meterte con cada barra de menus/comandos que pudiera
tener el usuario]



Como hago para establecer estos parametros que mencionas aca arriba
(_windowsactivate, _beforeclose, etc), me puedes colocar un ejemplo del
codigo completo, con el FullScreen y todo, donde colocarlos (en que parte
del editor de VBA), el nombre del menu personalizado es MIMENU.
Esto para al abrir el Archivo, aparezca el Menu que requiero. Aun
desactivando el Menu Principal [Barra de Menu de la Hoja] (Archivo,
Edicion, Ver, Etc) igualmente al salir de la creacion de la Barra de
Herramientas Personalizada, me vuelve a colocar ese Menu.


2) con relacion a la proteccion de una hoja que interfiere con la
ejecucion de macros...
-> para que la proteccion NO 'afecte' a tus macros ->SIN tener que
[des/re]proteger la hoja NI por/en otros codigos<-
en el modulo de codigo del libro ==> Private Sub Workbook_Open()
Worksheets("Hoja1").Protect _
PassWord:="la MISMA cOntRaSe#a qUe lE pUsISte", _
UserInterfaceOnly:=True
End Sub
=> [practicamente] TODO lo que 'hagas por codigo'... pasara 'sin problemas



Con relacion a esto, colocando este codigo en [ThisWorkbook] [Workbook], no
se ejecuta el Macro que realiza un ordenamiento de una tabla de datos

-

3) con relacion a la des/habilitacion de las caracteristicas de seleccion
de celdas des/bloqueadas...
a) [hasta donde se]... la 'primera vez' que una hoja se protege [ya sea
por codigo o por la interfase del usuario]...
NO tiene 'habilitada' la opcion para 'prohibir' la seleccion de
celdas bloqueadas :-(
b) una vez que 'esta' caracteristica se ha establecido [quitando la
marca a la opcion de celdas 'bloqueadas']...
SIGUE estando 'operable' con cada des/re/proteccion a esa hoja
:))
c) si la 'primera' vez ocurre por codigo... -> ANTES de establecer la
proteccion... -> usa la siguiente instruccion:
Worksheets("nombre de la hoja").EnableSelection = xlUnlockedCells
[seguida de la instruccion que le pone el password]
-> [obviamente] las celdas 'permitidas' [o desbloqueadas] ya
debieron haberse establecido ;)




En relacion a esto igualmente, al Ejecutar el Macro y luego Salvar o Grabar
el archivo, salgo de Excel, cuando vuelvo a entrar, las celdas pueden ser
nuevamente seleccionadas, obviamente no permite la modificacion, pero
quisiera que no se pudiera nisiquiera seleccionar nada en esta hoja como lo
realiza cuando coloco la proteccion. Este punto es el mismo que el anterior,
solo probé utilizar el codigo del punto anterior a ver si resultaba.


Me comentas sobre esto?

Saludos.
Respuesta Responder a este mensaje
#5 Héctor Miguel
25/11/2005 - 08:49 | Informe spam
hola, Carlos Enrique !

__ 1 __
Estoy de acuerdo contigo respecto a la Barra Personalizada
se como se adjunta al libro ya que el cuadro de dialogo tiene la opcion para ello
pero como hago para adjuntarla en el Modulo de codigo del libro [ThisWorkbook] ???



__ 2 __
Como hago para establecer estos parametros... (_windowsactivate, _beforeclose, etc)
un ejemplo del codigo completo, con el FullScreen y todo, donde colocarlos (en que parte del editor de VBA)



__ 3 __
... colocando este codigo en [ThisWorkbook] [Workbook], no se ejecuta el Macro que realiza un ordenamiento...
... igualmente, al Ejecutar el Macro y luego Salvar o Grabar el archivo, salgo de Excel, cuando vuelvo a entrar
las celdas pueden ser nuevamente seleccionadas, obviamente no permite la modificacion
pero quisiera que no se pudiera nisiquiera seleccionar nada en esta hoja como... cuando coloco la proteccion.
Este punto es el mismo que el anterior, solo probe utilizar el codigo del punto anterior a ver si resultaba.
Me comentas sobre esto?



te paso los ejemplos al final del presente ;)
si cualquier duda [o algo no funciona como esperas]... comentas ?
saludos,
hector.

1) la barra que adjuntas... YA 'va' adjunta/pegada/... con el libro, no necesitas adjuntarla por codigo ;)
lo que SI 'necesitas'... es 'desaparecerla' [por codigo] ANTES de salir de tu aplicacion [p.e.]
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
CommandBars("Nombre de tu barra").Delete
End Sub

2) para que la presentacion 'afecte' SOLO cuando el usuario este utilizando tu aplicacion [el libro entero]...
pega en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Activate()
AmpliarVista True
CommandBars("Nombre de tu barra").Visible = True
End Sub
Private Sub Workbook_Deactivate()
AmpliarVista False
CommandBars("Nombre de tu barra").Visible = False
End Sub
Private Sub AmpliarVista(ByVal Mostrar As Boolean)
With Application
.DisplayFullScreen = Mostrar: .DisplayScrollBars = Not Mostrar
.CommandBars("Worksheet Menu Bar").Enabled = Not Mostrar
End With
End Sub

3) con los siguientes macros de ejemplo... al abrirse el libro... la hoja1 queda protegida SIN opciones de seleccion
las opciones para ordenar [para el usuario] estan deshabilidadas :)) pero... la macro que ordena... corre sin problemas ;)
en el modulo de codigo del libro [ThisWorkbook] ==Private Sub Workbook_Open()
With Worksheets("Hoja1")
.EnableSelection = xlNoSelection
.Protect _
Password:="Hocus Pocus", _
UserInterfaceOnly:=True
End With
End Sub
y en un modulo de codigo 'normal' [la macro que hace ordenaciones en la hoja1 ->protegida<-] ==Sub OrdenaHoja1()
With Worksheets("Hoja1")
.Columns("a:e").Sort _
Key1:=.Range("a1"), _
Order1:=xlAscending, _
Header:=xlYes
End With
End Sub
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida