MACRO PARA ANUNCIO TEMPORAL
JMO
1. Que al abrirse se active de manera automática las funciones de las macros
y no tengan que autorizarlo manualmente.
2. Que aparezca una ventana con un anuncio que hablará de la versión del
formato, quien lo elaboró e información para dudas. Que la ventana
desaparezca después de un tiempo (más o menos 10 segundos) o bien con la
tecla "Esc" o la "Barra de espacio" (o la que ustedes indiquen) al
presionarla el usuario.
No sé cómo hacerlo, si fuera posible y me listaran las instrucciones de la
macro o lo que corresponda, lo agradeceré enormemente. Saludos
AnSanVal
b) Puedes firmar digitalmente el proyecto (incluso dispones de una firma
digital no oficial si es para un PC personal).
2.- Mensaje temporal (de n seg. + 5 aprox.):
CreateObject("wscript.shell").popup "Una prueba", n, "AnSanVal"
Cambia la n por un 5.
Saludos.
******************************
"JMO" <J...@discussions.microsoft.com> escribió en el mensaje news:5DDE482C-009F-4A8A...@microsoft.com...
Héctor Miguel
> Tengo un documento en Excel en el que quisiera que sucedieran dos cosas:
>
> 1. Que al abrirse se active de manera automatica las funciones de las macros y no tengan que autorizarlo manualmente.
>
> 2. Que aparezca una ventana con un anuncio que hablara de la version del formato
> quien lo elaboro e informacion para dudas.
> Que la ventana desaparezca despues de un tiempo (mas o menos 10 segundos)
> o bien con la tecla "Esc" o la "Barra de espacio" (o la que ustedes indiquen) al presionarla el usuario.
>
> No se como hacerlo, si fuera posible y me listaran las instrucciones de la macro o lo que corresponda ...
1) la autorizacion (o no) para que tus archivos utilicen "sus" macros...
a) depende de las opciones del usuario/pc donde se ejecute (esto no lo puedes evitar)
b) o... de que consigas una "firma digital" y que tus usuarios tambien la registren como "aceptable"
c) o... de que te pongas de acuerdo con tus usuarios y utilizar un libro de macros "Persona.xls" de conjunto o grupo
2) si tu necesidad de mostrar la informacion a que haces referencia supera los 1024 caracteres... (creo que)
necesitaras utilizar un formulario de usuario (UserForm) con un tiempo de permanencia determinado
saludos,
hector.
JMO
copié la instrucción tal cual y en lugar de n puse 5 pero me aparece un
mensaje de error, no corre. Laq instrucción la pego en un módulo en blanco y
la guardo pero cuando abro el documento, después de habilitar las macros, me
repota el error y me aparece el depurador sombreando "Una prueba".
"AnSanVal" escribió:
JMO
ni idea de cómo hacer lo que me sugieres, si conoces alguna liga donde me
documente sobre el cómo hacerlo, te lo agradecería porque la verdad no lo sé.
Gracias de antemano
"Héctor Miguel" escribió:
Héctor Miguel
> ... no tengo ni idea de como hacer lo que me sugieres ...
- para el formulario:
1) abre el editor de vba (atajo de teclado: Alt + F11)
2) inserta un formulario de usuario (menu: insertar / UserForm)
3) incrusta uno (o mas) control/es de tipo etiqueta (Label)
4) escribe el (o los) mensaje/s que requieras (puedes aplicar formatos personalizados -fuente, color, etc.)
5) si lo consideras conveniente, agrega un control CommandButton con un "caption" p.e. de "Salir"
6) copia/pega (o escribe) las siguientes instruccones:
a) en el modulo de codigo del formulario:
Dim Cerrar As Boolean, Limite As Single
Private Sub UserForm_Activate()
Me.Repaint
Limite = Timer + 5
Do While Timer < Limite
DoEvents
If Cerrar Then Exit Do
Loop
Unload Me
End Sub
Private Sub CommandButton1_Click()
Cerrar = True
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cerrar = CloseMode = vbFormControlMenu
End Sub
b) en el modulo de codigo de tu libro (ThisWorkbook)
Private Sub Workbook_Open()
UserForm1.Show
End Sub
- cuando se abra ese archivo, lanzara el formulario que durara 5 segundos o los que necesites
segun la linea con la instruccion: -> Limite = Timer + 5
o cuando el usuario pulse el commandbutton o cuando pulse en la [X] en el titulo del formulario
- para el tema de la auto-habilitacion de las macros...
-> podrias "firmar" tus macros (p.e.) usando la herramienta "SelfCert" de office (2000 en adelante)...
o... comprarte una firma digital
o... (te paso informcion relevente al respecto por cortesia de KL en una consulta similar y anterior) :))
saludos,
hector.
=== del post de KL ===
Abajo te pongo mi traduccion (parcial) de uno de los postings de Tom Ogilvy respecto al tema q te interesa (http://tinyurl.com/6p56v)
y ademas revisa este enlace http://search.microsoft.com/search/results.aspx?st=b&qu=firma+digital&view=es-es
Saludos,
KL
'-------Inicio Traduccion--------
Si el usuario a elegido cierto nivel de seguridad siempre tendra la opcion de habilitar o deshabiltar los macros.
Esto es para su propia seguridad ya q no se sabe si un macro es malicioso o no.
Esta proteccion no se puede superarla por medio de un codigo contenido en el libro para el q se quiere suprimir la ventana de alereta de macros
(de hecho la alerta salta antes de que se dispare cualquier codigo).
Piensa que si fuese posible suprimir la alerta por codigo esta no tendria ningun sentido.
Para completar el cuadro, si q puedes certificar tu codigo y si el usuario te acepta como una fuente de confianza
la alerta no saltara en las aperturas posteriores (xl2000 en adelante).
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnoxpta/html/odc_dsvba.asp
Code Signing Office XP Visual Basic for Applications Macro Projects
http://support.microsoft.com/kb/288985/es
Descripcion de firma digital de libros de Excel 2002
http://support.microsoft.com/kb/206637/es
Descripcion de certificados digitales
http://support.microsoft.com/kb/217221/es
OFF2000: Utilizar SelfCert para crear un certificado digital para proyectos de VBA
An Overview:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnimo00/html/combat.asp
Another reference:
http://msdn.microsoft.com/library/en-us/odeopg/html/deovrsigningvbaproject.asp
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q329228
OFFXP: How to Make Sure That Your Office Document Has a Valid Digital Signature
'-------Fin Traduccion--------
AnSanVal
Sub algo()
CreateObject("wscript.shell").popup "Una prueba", 10, "AnSanVal"
End Sub
...y ¿no te funciona?
A mi me funciona con Excel 2003. No se si lo recibirás cortado. Lo siguiente es una sola línea:
CreateObject("wscript.shell").popup "Una prueba", 10, "AnSanVal"
Por supuesto donde dice "Una prueba" es donde debes poner la información que precisas y donde dice "AnSanVal", pones el
título que prefieras.
Saludos.
*******************
"JMO" <J...@discussions.microsoft.com> escribió en el mensaje news:4061302E-5DF6-406A...@microsoft.com...