Deshabilitar comandos HM (?)

31/01/2007 - 17:54 por Albymar | Informe spam
Hola a todos...
Estoy trabajando sobre un modelo e intentando aplicar la deshabilitacion de
comandos, Guardar y guardar como. (tal y como lo explica Hector Miguel en
"como proteger un trabajo intelectual desarrollado en excel" en
www.sistemaslym.net/vba/excel/exarc1.html)...

El problema lo tengo cuando teniendo otros archivos excel abiertos, y cierro
el archivo donde he deshabilitado estos comandos, entonces, EXCEL detecta un
problema y se cierra totalmente, perdiendo todos los archivos abiertos
¿por que? ¿que hago mal? ¿es problema de Excel? ¿hay solucion?.
Utilizo Excel2003
El codigo que utilizo (simplificado) es:
Private Sub Workbook_Open()
Application.CommandBars("File").Controls("Guardar").Enabled = False
Application.CommandBars("File").Controls("Guardar como...").Enabled = False
Application.CommandBars("Standard").Controls(3).Enabled = False
End Sub

Private Sub Workbook_BeforeClose(cancel As Boolean)
Application.CommandBars("File").Controls("Guardar").Enabled = True
Application.CommandBars("File").Controls("Guardar como...").Enabled = True
Application.CommandBars("Standard").Controls(3).Enabled = True
ThisWorkbook.Close Savechanges:=False
End Sub

Saludos y gracias por anticipado

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
01/02/2007 - 05:58 | Informe spam
hola, ?

1) no estoy -muy- seguro de que los problemas que comentas se deban al uso [o forma de uso] de las 'tecnicas' sugeridas -?-
dado que la fraccion de codigo que expones, incluso comentas que esta... 'simplificada' -?-
por lo que existe la posibilidad de que la falla sea originada por otro tipo de eventos/controles/objetos/librerias/... -?-

2) [probablemente] necesitaras modificar la referencia 'textual' a los comandos [guardar y guardar como...] por sus numeros de ID -?-
me explico: aun cuando vba 'acepta' los nombres de barras/menus/herramientas [principales] en ingles...
los nombres-'Caption' de los comandos [seguramente] tendran la representacion segun el idioma instalado de la aplicacion [p.e.]
a) el menu "Archivo" puede ser llamado/referido/usado/... en vba como Application.CommandBars("File") PERO...
b) el comando "Guardar como..." [en castellano]... para instalacion en ingles 'pasa' a llamarse: -> "Save As" [sin embargo]...
independientemente del idioma instalado de la aplicacion, su numero de ID sera -siempre- :-> 748
-> visita la pagina sugerida en el articulo para conocer los ID's de los comandos y menus en excel ;)

3) igualmente [y dicho sea, 'de paso']... considera que el tercer control que TU tienes en la barra de herramientas 'estandar'
pudiera encontrarse en posicion distinta en la barra de herramientas estandar de otro usuario/pc/... -?-

[por lo pronto]... comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

__ la consulta original __
... intentando aplicar la deshabilitacion de comandos, Guardar y guardar como...
... problema... teniendo otros archivos.. abiertos, y cierro el archivo donde he deshabilitado estos comandos
... EXCEL detecta un problema y se cierra totalmente, perdiendo todos los archivos abiertos
por que? que hago mal? es problema de Excel? hay solucion?. Utilizo Excel2003

El codigo que utilizo (simplificado) es:
Private Sub Workbook_Open()
Application.CommandBars("File").Controls("Guardar").Enabled = False
Application.CommandBars("File").Controls("Guardar como...").Enabled = False
Application.CommandBars("Standard").Controls(3).Enabled = False
End Sub

Private Sub Workbook_BeforeClose(cancel As Boolean)
Application.CommandBars("File").Controls("Guardar").Enabled = True
Application.CommandBars("File").Controls("Guardar como...").Enabled = True
Application.CommandBars("Standard").Controls(3).Enabled = True
ThisWorkbook.Close Savechanges:=False
End Sub
Respuesta Responder a este mensaje
#2 Albymar
01/02/2007 - 09:39 | Informe spam
Gracias HM por contestar:
Ante todo, he querido postear este problema en el foro, para compartirlo y
para ver si sirve o le ocurre a otros, en lugar de mandarte un post personal
(sin tu permiso), creo que es mas coherente...
Bueno pasemos al tema...
He realizado una prueba con un libro en el que 'solo' he introducido el
código abajo indicado en el módulo Thisworkbook...
y me pasa lo indicado que, teniendo otros archivos excel abiertos, y cierro
este archivo donde he deshabilitado estos comandos y entonces EXCEL detecta
un problema y se cierra totalmente, perdiendo todos los archivos abiertos...
Haz la prueba y me comentas... (como ya te dije uso W-XP y Excel2003)
Saludos y gracias por tu interes...


"Héctor Miguel" escribió:

hola, ?

1) no estoy -muy- seguro de que los problemas que comentas se deban al uso [o forma de uso] de las 'tecnicas' sugeridas -?-
dado que la fraccion de codigo que expones, incluso comentas que esta... 'simplificada' -?-
por lo que existe la posibilidad de que la falla sea originada por otro tipo de eventos/controles/objetos/librerias/... -?-

2) [probablemente] necesitaras modificar la referencia 'textual' a los comandos [guardar y guardar como...] por sus numeros de ID -?-
me explico: aun cuando vba 'acepta' los nombres de barras/menus/herramientas [principales] en ingles...
los nombres-'Caption' de los comandos [seguramente] tendran la representacion segun el idioma instalado de la aplicacion [p.e.]
a) el menu "Archivo" puede ser llamado/referido/usado/... en vba como Application.CommandBars("File") PERO...
b) el comando "Guardar como..." [en castellano]... para instalacion en ingles 'pasa' a llamarse: -> "Save As" [sin embargo]...
independientemente del idioma instalado de la aplicacion, su numero de ID sera -siempre- :-> 748
-> visita la pagina sugerida en el articulo para conocer los ID's de los comandos y menus en excel ;)

3) igualmente [y dicho sea, 'de paso']... considera que el tercer control que TU tienes en la barra de herramientas 'estandar'
pudiera encontrarse en posicion distinta en la barra de herramientas estandar de otro usuario/pc/... -?-

[por lo pronto]... comentas [si hubiera] algun detalle adicional ?
saludos,
hector.

__ la consulta original __
> ... intentando aplicar la deshabilitacion de comandos, Guardar y guardar como...
> ... problema... teniendo otros archivos.. abiertos, y cierro el archivo donde he deshabilitado estos comandos
> ... EXCEL detecta un problema y se cierra totalmente, perdiendo todos los archivos abiertos
> por que? que hago mal? es problema de Excel? hay solucion?. Utilizo Excel2003
>
> El codigo que utilizo (simplificado) es:
> Private Sub Workbook_Open()
> Application.CommandBars("File").Controls("Guardar").Enabled = False
> Application.CommandBars("File").Controls("Guardar como...").Enabled = False
> Application.CommandBars("Standard").Controls(3).Enabled = False
> End Sub
>
> Private Sub Workbook_BeforeClose(cancel As Boolean)
> Application.CommandBars("File").Controls("Guardar").Enabled = True
> Application.CommandBars("File").Controls("Guardar como...").Enabled = True
> Application.CommandBars("Standard").Controls(3).Enabled = True
> ThisWorkbook.Close Savechanges:=False
> End Sub



Respuesta Responder a este mensaje
#3 Héctor Miguel
02/02/2007 - 04:52 | Informe spam
hola, ?

He realizado una prueba con un libro en el que 'solo' he introducido el codigo abajo indicado en el modulo Thisworkbook...
y me pasa lo indicado que, teniendo otros archivos excel abiertos, y cierro este archivo donde he deshabilitado estos comandos
y entonces EXCEL detecta un problema y se cierra totalmente, perdiendo todos los archivos abiertos...
Haz la prueba y me comentas... (como ya te dije uso W-XP y Excel2003)



1) hice la prueba que comentas [tal-cual la expones] y todo 'normal', sin problemas, con y sin otros libros abiertos ;)
[probado en las versiones 97 a 2003 en castellano y en ingles] :))

2) haz probado con las mismas instrucciones/circunstancias/entornos/... en otros equipos ?

3) [probablemente] el error y los problemas que comentas se deben a otro tipo de... 'complicaciones' ? [p.e.]
- ha quedado 'corrupto' el archivo que guarda la configuracion de tus barras de menus y herramienas [el *.XLB] -?-
- que tengas referencias 'perdidas' [o mal instaladas/referenciadas/o da#adas] en tus proyectos de macros -?-
- alguna instalacion posterior que no se hubiera terminado correctamente [como parches, actualizaciones, etc.] -?-

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.
Respuesta Responder a este mensaje
#4 Albymar
05/02/2007 - 10:50 | Informe spam
Gracias HM, por tus notas...
Aunque he tardado en contestar, no me he olvidado del tema,
voy a hacer pruebas en otros ordenadores y te comento...

No he entendido tu nota...
- que tengas referencias 'perdidas' [o mal instaladas/referenciadas/o da#adas] en tus proyectos de macros -?- (¿que macros?)



Gracias de nuevo...




"Héctor Miguel" escribió:

hola, ?

> He realizado una prueba con un libro en el que 'solo' he introducido el codigo abajo indicado en el modulo Thisworkbook...
> y me pasa lo indicado que, teniendo otros archivos excel abiertos, y cierro este archivo donde he deshabilitado estos comandos
> y entonces EXCEL detecta un problema y se cierra totalmente, perdiendo todos los archivos abiertos...
> Haz la prueba y me comentas... (como ya te dije uso W-XP y Excel2003)

1) hice la prueba que comentas [tal-cual la expones] y todo 'normal', sin problemas, con y sin otros libros abiertos ;)
[probado en las versiones 97 a 2003 en castellano y en ingles] :))

2) haz probado con las mismas instrucciones/circunstancias/entornos/... en otros equipos ?

3) [probablemente] el error y los problemas que comentas se deben a otro tipo de... 'complicaciones' ? [p.e.]
- ha quedado 'corrupto' el archivo que guarda la configuracion de tus barras de menus y herramienas [el *.XLB] -?-
- que tengas referencias 'perdidas' [o mal instaladas/referenciadas/o da#adas] en tus proyectos de macros -?-
- alguna instalacion posterior que no se hubiera terminado correctamente [como parches, actualizaciones, etc.] -?-

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.



Respuesta Responder a este mensaje
#5 Albymar
05/02/2007 - 10:54 | Informe spam
Gracias por tu interes y por tu ayuda...
Perdon por el retraso en la respuesta, pero no he olvidado del tema...
He observado el archivo posteado y veo que si se puede guardar, [lo he
guardado varias veces] por lo que el problema sigue sin solución...
Me reitero en en las gracias

"" escribió:

http://www.mediamax.com/wopcxxi/Hos...eja%20guar
dar.zip





wrote in message
news:
Hola HM, aqu esta un enlace para descargar el archivo:
http://us.f13.yahoofs.com/bc/45c359...+que+no+se
+deja+guardar.zip?bfV61wFBtmX.F7NX
Pido disculpas, pero devvido a la falta de tiempo no me fijo muy a
menudo desde donde se postea, tratare de hacerlo en el futuro. Chao,


-

-

"Hctor Miguel" wrote in message
news:
hola, ?

> He realizado una prueba con un libro en el que 'solo' he introducido
el codigo abajo indicado en el modulo Thisworkbook...
> y me pasa lo indicado que, teniendo otros archivos excel abiertos, y
cierro este archivo donde he deshabilitado estos comandos
> y entonces EXCEL detecta un problema y se cierra totalmente,
perdiendo todos los archivos abiertos...
> Haz la prueba y me comentas... (como ya te dije uso W-XP y
Excel2003)

1) hice la prueba que comentas [tal-cual la expones] y todo 'normal',
sin problemas, con y sin otros libros abiertos ;)
[probado en las versiones 97 a 2003 en castellano y en ingles]
:))

2) haz probado con las mismas
instrucciones/circunstancias/entornos/... en otros equipos ?

3) [probablemente] el error y los problemas que comentas se deben a
otro tipo de... 'complicaciones' ? [p.e.]
- ha quedado 'corrupto' el archivo que guarda la configuracion de
tus barras de menus y herramienas [el *.XLB] -?-
- que tengas referencias 'perdidas' [o mal
instaladas/referenciadas/o da#adas] en tus proyectos de macros -?-
- alguna instalacion posterior que no se hubiera terminado
correctamente [como parches, actualizaciones, etc.] -?-

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.


Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida