none
¿Sonido wav en hoja protegida? RRS feed

  • Pregunta

  • Estoy intentando (infructuosamente) que un archivo de sonido wav insertado en una hoja se ejecute aún con la hoja protegida.

    Primero inserto el objeto:

    Menú Insertar - Objeto - Wave Sound - (se abre el Sound Recorder) - Menú Edit - Insert File - elijo el archivo wav y cierro el Sound Recorder. Listo, hasta aquí vamos bien. El archivo en cuestión queda incrustado en la hoja tal como me interesa y cuando se hace doble clic sobre éste se ejecuta el wav.

    El problema es que al proteger la hoja (lo cual es un requisito imprescindible del proyecto) para poder continuar haciendo doble clic sobre el ícono del parlante, este debe ser desprotegido pues de lo contrario Excel ya no permite el “cliqueado” y al ser desprotegido presenta el inconveniente de que también podrá ser modificado (cambio de sus dimensiones o movido).

    Lo único que he logrado es asignarle macros de reproducción de wav a botones o bien al mismo ícono del altavoz, con lo que se consigue también la reproducción de archivos wav, pero en este caso tengo que asignar la ruta hacia cada uno de los archivos wav pues no pasan a formar parte de la hoja como si sucede cuando un objeto es insertado.

    ¿Se les ocurre alguna forma de lograrlo sin necesidad de macros?...quiero decir, poder proteger el ícono del objeto incrustado y que aún así se pueda continuar haciendo clic sobre este para ejecutar un wav?

    ...y en el caso de que no pueda lograrse sin macros, existe alguna que permita la ejecución de un archivo insertado?

    Muchas gracias por adelantado por cualquier solución u orientación que pudieran darme, pues como puede deducirse de mi planteamiento, soy apenas un aprendiz de Excel, pero tengo la firme determinación de culminar este bonito proyecto.
    martes, 10 de octubre de 2006 19:51

Respuestas

  • Hola Ricky,

    No se me ocurre ninguna forma de hacer lo que quieres sin macros, pero podrias probar lo siguiente:

    Con la hoja desprotegida...

    1) Haz clic derecho sobre el icono del clip incrustado

    2) elige la opcion Assign Macro

    3) pulsa el boton New - se abrira el Editor VBA y a la derecha aparecera algo como:

    Sub Object1_Click()

    End Sub

    4) modifica el codigo anterior de la siguiente manera:

    Sub Object1_Click()
        ActiveSheet.OLEObjects("Object 1").Verb Verb:=xlPrimary
    End Sub

    donde "Object 1" es el mismo nombre que pone en el titulo del macro, pero con un espacio delante del numero.

    5) pulsa Alt+F11 para volver a la hoja

    7) Protege la hoja

    8) Haz clic sobre el clip

    • Marcado como respuesta Ismael Borche miércoles, 6 de abril de 2011 16:50
    miércoles, 11 de octubre de 2006 21:23