** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - "RESUELTO"quitar AVISOS SEGURIDAD MICROSOFT OFFICE
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerrado"RESUELTO"quitar AVISOS SEGURIDAD MICROSOFT OFFICE

 Responder Responder
Autor
Mensaje
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5419
Enlace directo a este mensaje Tema: "RESUELTO"quitar AVISOS SEGURIDAD MICROSOFT OFFICE
    Enviado: 21/Octubre/2019 a las 12:29
Hola buenos días.

Hace unos días que me viene avisando un programa que estoy confeccionándome de "Bingo" con Access 2007, de avisos de seguridad de Microsoft Office, al intentar abrir el número que procede cantar de la partida, para que se oiga... lo estoy haciendo con Application.FollowHyperlink "..... la ruta del archivo de sonido concreto".

Concretamente ahora que ya he montado todos los sonidos de las bolas con la grabadora de voz de Windows 10.

Pienso que debe ser porque he tocado, retocado y trastocado muchos temas de seguridad, sobre todo en Windows.... pero mirando páginas de internet (uso "chrome" y "edge" exclusivamente), se me indica en muchos sitios como acceder a los sitios de confianza, de Access, tanto para eliminar esos avisos de seguridad como para crear sitios de confianza (le he añadido la carpeta donde tengo estos archivos de voz con todos los sonidos del 1 al 90)....

Lo cierto es que no doy con la pista para evitar ese dichoso aviso, imaginaros la risa que me dió la primera vez que me salió el aviso al iniciar una de las partidas.

Nada, a ver si se os ocurre darme pistas que vaya probando también.

Gracias de antemano.


Editado por VIMIPAS - 23/Octubre/2019 a las 12:42
Gracias
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5755
Enlace directo a este mensaje Enviado: 21/Octubre/2019 a las 16:47
Un Saludo.
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5419
Enlace directo a este mensaje Enviado: 21/Octubre/2019 a las 21:59
Gracias Mounir, pero acabo de modificar el asunto del tema y he puesto "quitar".

No pretendo estudiar mas sobre el tema (eso ya formó parte de mi estudio anterior y tenía otros problemas), lo que quiero es "quitar los avisos de seguridad de Microsofot Office", que muestra en la pantalla cuando se trata de abrir los archivos de sonido que indico en mi primera intervención.

Saludos.


Editado por VIMIPAS - 23/Octubre/2019 a las 12:42
Gracias
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4560
Enlace directo a este mensaje Enviado: 22/Octubre/2019 a las 00:41
Hola

Hace tiempo lo había publicado en tus funciones favoritas pero ya No esta accesible,......
Prueba con el siguiente código  , solo necesitas ejecutarlo una vez,....... si cambias la ubicación de la BASE entonces deberás volverlos ejecutarlo de nuevo ,......... asi que lo mejor es lanzarlo en el primer formulario al abriese la base........ La primera vez aparecerá el mensaje de aviso (Sitio de Confianza) pero la segunda y demás veces ya No,......

Option Explicit


Const cPrefijo As String = "HKEY_CURRENT_USER\Software\Microsoft\Office\"
Const cSufijo As String = "\Access\Security\Trusted Locations\Location"
' rem Fin Constantes++++++




'Public Function funTest()
'
'      If funCrearZonaConfianza = True Then
'            MsgBox "Ok se ha creado una nueva zona de confianza", vbInformation, "Zona de Confianza"
'      Else
'            MsgBox "No es necesario crear la zona de confianza", vbExclamation, "Zona de Confianza"
'      End If
'
'End Function



Public Function funCrearZonaConfianza() As Boolean

'---------------------------------------------------------------------------------------
' Date      : 23/01/2010
' Author    : Javier Gomez (Javier.Mil)
' WEB       : http://www.accessdemo.info
' Procedure : funCrearZonaConfianza
' Purpose   : Crea Zona de Confianza para Access 2007 , 2010 , 2013 , 2017 , 2019 utilizando "LOCATION (n)"
'---------------------------------------------------------------------------------------
    On Error GoTo Err_Local

    Dim objWshShell As Object
    Dim intX As Integer
    Dim strVersionAccess As String




    Set objWshShell = CreateObject("Wscript.Shell")


    strVersionAccess = SysCmd(acSysCmdAccessVer)

  
   

    If strVersionAccess = "12.0" Or strVersionAccess = "14.0" Or strVersionAccess = "15.0" Or strVersionAccess = "16.0" Or strVersionAccess = "17.0" Then
        Rem Access 2007 , Access 2010 , Access 2013 , Access 2016 , Access 2019

        If funBuscarZonaConfianza <> CurrentProject.Path & "\" Then

            intX = funPrimerLocationVacio

            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\AllowNetworkLocations", 1, "REG_DWORD"
            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\AllowSubfolders", 1, "REG_DWORD"

            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\Date", Format(Now(), "mm/dd/yyyy hh:mm")
            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\Description", "Mi nueva zona de confianza"
            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\Path", CurrentProject.Path & "\"

            funCrearZonaConfianza = True

        Else
            funCrearZonaConfianza = False

        End If
    End If


Close_Local:
    Set objWshShell = Nothing

Exit_Local:
    On Error GoTo 0
    Exit Function

Err_Local:
    funCrearZonaConfianza = False
    MsgBox Err.Description, vbCritical, "Error N°:  " & Err.Number
    Resume Exit_Local

End Function




Private Function funBuscarZonaConfianza() As String
'---------------------------------------------------------------------------------------
' Date      : 23/01/2010
' Author    : Javier Gomez (Javier.Mil)
' WEB       : http://www.accessdemo.info
' Procedure : funBuscarZonaConfianza
' Purpose   : Busca si existe la Zona de Confianza
'---------------------------------------------------------------------------------------

    On Error Resume Next

    Dim objWshShell As Object
    Dim strTemp As String
    Dim intX As Integer
    Dim strVersionAccess As String

    Set objWshShell = CreateObject("Wscript.Shell")
    strVersionAccess = SysCmd(acSysCmdAccessVer)
  
   

    For intX = 0 To 999
        strTemp = objWshShell.RegRead(cPrefijo & strVersionAccess & cSufijo & intX & "\Path")

        If strTemp = CurrentProject.Path & "\" Then
            funBuscarZonaConfianza = strTemp
            Exit For
        End If
    Next intX

    Set objWshShell = Nothing

End Function



Private Function funPrimerLocationVacio() As Integer
'---------------------------------------------------------------------------------------
' Date      : 23/01/2010
' Author    : Javier Gomez (Javier.Mil)
' WEB       : http://www.accessdemo.info
' Procedure : funPrimerLocationVacio
' Purpose   : Busca el primer Location vacio o libre
'---------------------------------------------------------------------------------------

    On Error Resume Next

    Dim objWshShell As Object
    Dim strTemp As String
    Dim intX As Integer
    Dim strVersionAccess As String
   

    Set objWshShell = CreateObject("Wscript.Shell")
    strVersionAccess = SysCmd(acSysCmdAccessVer)

    For intX = 0 To 999
        strTemp = ""
        strTemp = objWshShell.RegRead(cPrefijo & strVersionAccess & cSufijo & intX & "\Path")
        If strTemp = "" Then
            funPrimerLocationVacio = intX
            Exit For
        End If
    Next intX

    Set objWshShell = Nothing
End Function



En el FORMULARIO de entrada en el evento al abrir (On Open) pon esto

      If funCrearZonaConfianza = True Then
           MsgBox "Ok se ha creado una nueva zona de confianza", vbInformation, "Zona de Confianza"
      Else
            MsgBox "No es necesario crear la zona de confianza", vbExclamation, "Zona de Confianza"
     End If


 





Editado por javier.mil - 22/Octubre/2019 a las 00:48
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5419
Enlace directo a este mensaje Enviado: 22/Octubre/2019 a las 12:36

Hola Javier, buenos días y gracias.

Te pego lo que he colocado en mi formulario3 de tu código.

Private Sub Form_Open(Cancel As Integer)

'En el FORMULARIO de entrada en el evento al abrir (On Open) pon esto

      If funCrearZonaConfianza = True Then

           MsgBox "Ok se ha creado una nueva zona de confianza", vbInformation, "Zona de Confianza"

      Else

            MsgBox "No es necesario crear la zona de confianza", vbExclamation, "Zona de Confianza"

     End If

 

End Sub

 

A continuación pego donde empieza la historia. Que la he resumido al principio de donde comienza el código para empezar la partida. Así no tengo que esperar a que se corra el resto de código (esto debido a los problemas que me daba, por eso subir aquí la apertura del archivo con el número 41.)

 

Private Sub Comando0_Click()

'C:\Users\Usuario\Desktop\DE VICENTE

'"C:\Users\Usuario\Desktop\DE VICENTE\reunion.docx" 'CORRECTO, FUNCIONA PERFECTAMENTE Y SE ABRE

'C:\Users\Usuario\Desktop\buho

'C:\Users\Usuario\Documents\Grabaciones de sonido\1.M4A"

'CORRECTO:Application.FollowHyperlink "C:\Users\Usuario\Desktop\DE VICENTE\ARCHIVOSVOZbolasBINGO\" & 41 & ".M4A" '2.M4A"

'Dim RetVal

'RetVal = Shell("C:\Users\Usuario\Desktop\DE VICENTE\ARCHIVOSVOZbolasBINGO\HOLA.DOCX", 1)

'Exit Sub

Application.FollowHyperlink "C:\Users\Usuario\Desktop\DE VICENTE\ARCHIVOSVOZbolasBINGO\" & 41 & ".M4A" ''''aqui es donde avisa

Exit Sub

 

Por último vuelvo a pegar tu código, con los Msgbox que yo me he puesto para ver si entra a todas las funciones.

 

Option Compare Database

Option Explicit

 

 

 

Const cPrefijo As String = "HKEY_CURRENT_USER\Software\Microsoft\Office\"

Const cSufijo As String = "\Access\Security\Trusted Locations\Location"

' rem Fin Constantes++++++

 

 

 

 

'Public Function funTest()

'msgbox "AQUI NO NECESITO ENTRAR. SE COLOCARÁ EN EL FORMULARIO SEGÚN SE INDICA AL FINAL DE ESTE MODULO"

'      If funCrearZonaConfianza = True Then

'            MsgBox "Ok se ha creado una nueva zona de confianza", vbInformation, "Zona de Confianza"

'      Else

'            MsgBox "No es necesario crear la zona de confianza", vbExclamation, "Zona de Confianza"

'      End If

'

'End Function

 

 

 

Public Function funCrearZonaConfianza() As Boolean

 

'---------------------------------------------------------------------------------------

' Date      : 23/01/2010

' Author    : Javier Gomez (Javier.Mil)

' WEB       : http://www.accessdemo.info

' Procedure : funCrearZonaConfianza

' Purpose   : Crea Zona de Confianza para Access 2007 , 2010 , 2013 , 2017 , 2019 utilizando "LOCATION (n)"

'---------------------------------------------------------------------------------------

    On Error GoTo Err_Local

 

MsgBox "estoy entrando en la funcion Crearconfianza"

    Dim objWshShell As Object

    Dim intX As Integer

    Dim strVersionAccess As String

 

 

 

 

    Set objWshShell = CreateObject("Wscript.Shell")

 

 

    strVersionAccess = SysCmd(acSysCmdAccessVer)

 

 

  

 

    If strVersionAccess = "12.0" Or strVersionAccess = "14.0" Or strVersionAccess = "15.0" Or strVersionAccess = "16.0" Or strVersionAccess = "17.0" Then

        Rem Access 2007 , Access 2010 , Access 2013 , Access 2016 , Access 2019

 

        If funBuscarZonaConfianza <> CurrentProject.Path & "\" Then

 

            intX = funPrimerLocationVacio

 

            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\AllowNetworkLocations", 1, "REG_DWORD"

            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\AllowSubfolders", 1, "REG_DWORD"

 

            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\Date", Format(Now(), "mm/dd/yyyy hh:mm")

            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\Description", "Mi nueva zona de confianza"

            objWshShell.RegWrite cPrefijo & strVersionAccess & cSufijo & intX & "\Path", CurrentProject.Path & "\"

 

            funCrearZonaConfianza = True

 

        Else

            funCrearZonaConfianza = False

 

        End If

    End If

 

 

Close_Local:

    Set objWshShell = Nothing

 

Exit_Local:

    On Error GoTo 0

    Exit Function

 

Err_Local:

    funCrearZonaConfianza = False

    MsgBox Err.Description, vbCritical, "Error N°:  " & Err.Number

    Resume Exit_Local

 

End Function

 

 

 

 

Private Function funBuscarZonaConfianza() As String

'---------------------------------------------------------------------------------------

' Date      : 23/01/2010

' Author    : Javier Gomez (Javier.Mil)

' WEB       : http://www.accessdemo.info

' Procedure : funBuscarZonaConfianza

' Purpose   : Busca si existe la Zona de Confianza

'---------------------------------------------------------------------------------------

 

    On Error Resume Next

MsgBox "estoy entrando en la funcion Buscarconfianza"

    Dim objWshShell As Object

    Dim strTemp As String

    Dim intX As Integer

    Dim strVersionAccess As String

 

    Set objWshShell = CreateObject("Wscript.Shell")

    strVersionAccess = SysCmd(acSysCmdAccessVer)

 

  

 

    For intX = 0 To 999

        strTemp = objWshShell.RegRead(cPrefijo & strVersionAccess & cSufijo & intX & "\Path")

 

        If strTemp = CurrentProject.Path & "\" Then

            funBuscarZonaConfianza = strTemp

            Exit For

        End If

    Next intX

 

    Set objWshShell = Nothing

 

End Function

 

 

 

Private Function funPrimerLocationVacio() As Integer

'---------------------------------------------------------------------------------------

' Date      : 23/01/2010

' Author    : Javier Gomez (Javier.Mil)

' WEB       : http://www.accessdemo.info

' Procedure : funPrimerLocationVacio

' Purpose   : Busca el primer Location vacio o libre

'---------------------------------------------------------------------------------------

 

    On Error Resume Next

MsgBox "estoy entrando en la funcion vacio"

    Dim objWshShell As Object

    Dim strTemp As String

    Dim intX As Integer

    Dim strVersionAccess As String

  

 

    Set objWshShell = CreateObject("Wscript.Shell")

    strVersionAccess = SysCmd(acSysCmdAccessVer)

 

    For intX = 0 To 999

        strTemp = ""

        strTemp = objWshShell.RegRead(cPrefijo & strVersionAccess & cSufijo & intX & "\Path")

        If strTemp = "" Then

            funPrimerLocationVacio = intX

            Exit For

        End If

    Next intX

 

    Set objWshShell = Nothing

End Function

 

Y todo corre perfecto, pero, persisten los avisos de Microsoft Office.

Incluso yo he ido a donde están las ubicaciones de confianza y veo la que crea tu código con mi ruta.

Yo también la cree ayer y hoy la eliminado antes de correr tu código.

Estas son las carpetas que hay, ahora mismo, en "Ubicaciones de confianza":

C:\Users\Usuario\Desktop\DE VICENTE\ 'Creada por tu código hoy mismo. Incluso está marcada que las subcarpetas también son de confianza.

C:\Users\Usuario\Desktop\'Creada por el sistema el 03/04/2018. 'Digo sistema, porque yo no la he creado en ningún momento. 'Además está marcada Permitir ubicaciones de confianza que estén en la red (no recomendado).

Bueno, esto anterior, tras verlo ahora me toca replantearme si hay algún virus o algo que esté actuando en mi PC.

C:\Program Files (x86)\Microsoft Office\Office12\ACCWIZ\'Esta no lleva fecha de creación.'A estas alturas, se supone que si esto es de confianza y que si la anterior también, la que crea tu código era innecesaria, toda vez que si las subcarpetas del Escritorio (Desktop) son de confianza.... al menos así lo entiendo yo.

No se decir mas.

Saludos y gracias otra vez.


 

 



Editado por VIMIPAS - 22/Octubre/2019 a las 12:38
Gracias
Arriba
pitxiku Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 1226
Enlace directo a este mensaje Enviado: 22/Octubre/2019 a las 18:25
A ver si esto te sirve:

- https://support.office.com/es-es/article/habilitar-o-deshabilitar-las-alertas-de-seguridad-acerca-de-v%C3%ADnculos-y-archivos-de-sitios-web-sospechosos-a1ac6ae9-5c4a-4eb3-b3f8-143336039bbe
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4560
Enlace directo a este mensaje Enviado: 22/Octubre/2019 a las 22:50
Buenas ,

En principio (hablo de de memoria) hay 4 tipos de avisos

1- Lo que están relacionados con La Zona de Confianza
2- Los que están relacionados con las Macros de Seguridad
3- Los esta relacionados con DoCmd.SetWarnings True/ False
4- Los que esta relacionados con FollowHyperlink


Creo que por lo explicas tu problema se debe al ultimo tipo arriba mencionado

Peroooo para estar seguro podrías decir cual es el mensaje de "los avisos de Microsoft Office." ?


Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5419
Enlace directo a este mensaje Enviado: 22/Octubre/2019 a las 23:01
Hola Javier de nuevo.

El 4 seguro, estoy con Application.FollowHiperLink (o simplemente FollowHiperLink, salta igual el aviso)

El aviso dice en su cabecera:
Microsoftt Office

El aviso:
Abriendo (la ruta y el nombre del archivo.... 41.M4A), y sigue con "Algunos archivos pueden contener virus o ser perjudiciales para el equipo.... etc.etc. ¿Quiere abrirlo? etc.

Y con esto estoy peleándome hoy y no consigo resolverlo:


Saludos.
Gracias
Arriba
javier.mil Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 10/Agosto/2005
Localización: España
Estado: Sin conexión
Puntos: 4560
Enlace directo a este mensaje Enviado: 22/Octubre/2019 a las 23:23
Hola

Si estas seguro que es el cuarto te envio varias posibles soluciones



Como Evitar el Mensaje de Aviso FollowHyperlink


++++++++OPCION 1 +++++++++
Para desactivar los Avisos hyperlink :

CreateObject("Wscript.Shell").RegWrite _
             "HKCU\Software\Microsoft\Office\" & Application.Version &  _
             "\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"

Para Activar los Avisos hyperlink :

CreateObject("Wscript.Shell").RegWrite _
             "HKCU\Software\Microsoft\Office\" & Application.Version &  _
             "\Common\Security\DisableHyperlinkWarning", 0, "REG_DWORD"


++++++++OPCION 2 +++++++++


Dim x
x = Shell("""C:\....\MSACCESS.exe C:\tuBase.mdb /Excl /x mcrStartup""")


++++++++OPCION 3 +++++++++


http://access.mvps.org/access/api/api0018.htm

++++++++OPCION 4 +++++++++

http://access.mvps.org/access/api/api0023.htm

++++++++OPCION 5 +++++++++

Mira codigo parte final de la Pagina de Allen Browne
http://www.allenbrowne.com/func-GoHyperlink.html

++++++++OPCION 6 +++++++++

Private Sub btnLink_Click()
'FollowHyperlink No funciona Bien

On Error GoTo ErrProc

Dim wsShell As Object
Set wsShell = CreateObject("WScript.Shell")
wsShell.Run Chr(34) & Me.tbxLink & Chr(34)
ExitProc:
Set wsShell = Nothing
Exit Sub
ErrProc:
MsgBox "Cannot open document. Contact database administrator. : " & Err.Number
End Sub

++++++++OPCION 7 +++++++++


Option Explicit

Function killHyperlinkWarning()
    Dim oShell As Object
    Dim strReg As String


' 11.0 =Access 2003
' 12.0 =Access 2007
' 14.0 =Access 2010
' 15.0 =Access 2013
' 16.0 =Access 2016

    strReg = "Software\Microsoft\Office\11.0\Common\Security\DisableHyperlinkWarning"

    Set oShell = CreateObject("Wscript.Shell")
    oShell.RegWrite "HKCU\" & strReg, 1, "REG_DWORD"
End Function

++++++++OPCION 8 +++++++++

' Codigo de Buho

Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Public Const SW_SHOW = 1


y esto en el evento clic de un botón:

Private Sub Comando2_Click()

Dim ejecutable As String

ejecutable = "excel.exe"   ' excel, word, etc..
ShellExecute Me.hwnd, "open", [ejecutable], "", "", SW_SHOW

End Sub


 



Editado por javier.mil - 22/Octubre/2019 a las 23:29
Arriba
VIMIPAS Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Enero/2006
Localización: ESPAÑA
Estado: Sin conexión
Puntos: 5419
Enlace directo a este mensaje Enviado: 23/Octubre/2019 a las 12:38
Hola de nuevo Javier.

Por fin se consiguió, ya no tengo avisos de seguridad para abrir archivos de voz.

He probado todos y cada uno de los ejemplos que me indicas y, por si a alguien le interesa seguir el desarrollo final del hilo, he aquí mi respuesta:

Me funciona, sí, el ejemplo número 8 (del buho). De esta forma se queda al final, este 8.

En un módulo aparte del formulario pongo esto:

Option Compare Database
Option Explicit
' Obtenido por gentileza de Javier.Mil en el foro de Access y VBA, en respuesta a mi pregunta de HyperLink me da Avisos de seguridad para abrir archivos y quiero QUITAR esos AVISOS
' Página del foro de Access y VBA: http://www.mvp-access.com/foro/access-y-vba_forum1.html
' Página de Javier.Mil: http://www.accessdemo.info/
' Codigo de Buho. Paco. Francisco Javier García Aguado.
' Su página Web: http://www.mvp-access.es/buho/soy.htm

Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Public Const SW_SHOW = 1

En el formulario que me ocupaban los dichosos avisos de seguridad, pongo esto:

Private Sub Comando0_Click()
Dim Ejecutable As String

Ejecutable = "C:\Users\Usuario\Desktop\DE VICENTE\ARCHIVOSVOZbolasBINGO\16.M4A"   ' excel, word, etc.."
ShellExecute Me.hwnd, "open", Ejecutable, "", "", SW_SHOW

......
End Sub

Me funciona, sí, la número 3

http://access.mvps.org/access/api/api0018.htm

No pego el código, ver la página Web.... pero si pego lo que inicia el módulo que he grabado con el código:

API : iniciar una aplicación con ShellExecute

Autor (es)
Dev Ashish

(P) ¿Cómo inicio la aplicación que está registrada para manejar una extensión de archivo en Win Registry?

(A) Tendrá que usar la API ShellExecute. Pase el nombre del archivo a la función fHandleFile. Si la extensión del archivo es "conocida" o registrada, debería llamar automáticamente a la aplicación principal. Si la extensión es desconocida, debería abrir el cuadro de diálogo estándar de Windows "Abrir con".

'************ Code Start **********
 ' Este código fue escrito originalmente por Dev Ashish.
'No debe ser alterado o distribuido,
'excepto como parte de una solicitud.
'Usted es libre de usarlo en cualquier aplicación,
'siempre que el aviso de copyright no se modifique.
'
'Código cortesía de
«Dev Ashish

y también lo que he puesto en mi formulario:

Private Sub Comando0_Click()
'Dim Ejecutable As String

'Ejecutable = "C:\Users\Usuario\Desktop\DE VICENTE\ARCHIVOSVOZbolasBINGO\16.M4A"   ' excel, word, etc.."
'ShellExecute Me.hwnd, "open", Ejecutable, "", "", SW_SHOW

Dim r

r = fHandleFile("C:\Users\Usuario\Desktop\DE VICENTE\ARCHIVOSVOZbolasBINGO\33.M4A", WIN_NORMAL)

.....
End Sub

Queda zanjado el tema por parte.

Dos cosas finales me restan para rematar....

La primera: Agradecer a Javier, Mounir y Pitxiku todo su apoyo en cuanto a la documentación aportada para examinar (de eso se trataba). Y hasta la otra, espero... No sin antes añadir que la de Pitxiku también hice pruebas, pero era mas de lo mismo que yo hacía. Gracias también.

La segunda y última: por favor pueden cerrar el hilo, por mi parte está resuelto.

Saludos.


Editado por VIMIPAS - 23/Octubre/2019 a las 12:45
Gracias
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable