Diferente path

hola, Roberto !

Tengo un archivo... que esta 'protegido'...
Mi 'metodo' de proteccion es verificar el path del archivo... si el path es diferente simplemente se cierra el libro.
Cuando el usuario lo abre desde excel, no hay problema alguno...
Hemos puesto un hyperlink en un archivo de Powerpoint para acceder al archivo
pero no nos deja abrirlo porque el path del libro... como no es igual me cierra el libro.
Como puedo detectar si el libro se abrio desde Excel o desde un hyperlink de Powerpoint?

asumiendo que el metodo de poteccion se ejecuta desde el evento '_open' de ese libro -?-
prueba como primera linea en ese evento una instruccion +/- como la siguiente:

Private Sub Workbook_Open()
If Not Application.UserControl Then Exit Sub
MsgBox "Aqui se procesan acciones 'normales'..."
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias por su pronta respuesta maestro.
Buscando por el foro ya había encontrado una respuesta suya con la
sugerencia
de usar Application.Usercontrol, el problema es que me devuelve True en
ambos
casos, cuando lo abro desde Excel y cuando lo abro desde PPoint.

Le expongo mi código para ver que estoy haciendo mal.


Private Sub Workbook_Open()
If Not Application.UserControl Then Exit sub

If ThisWorkbook.Path <> "S:\Directorio Comun\Especificaciones" Then
MsgBox "Este libro ha sido movido sin autorización", vbCritical,
"Control de cambios"
Application.DisplayAlerts = True
ThisWorkbook.Close
End If
End Sub




"Héctor Miguel" escribió en el mensaje
news:OhpK%

hola, Roberto !

Tengo un archivo... que esta 'protegido'...
Mi 'metodo' de proteccion es verificar el path del archivo... si el path
es diferente simplemente se cierra el libro.
Cuando el usuario lo abre desde excel, no hay problema alguno...
Hemos puesto un hyperlink en un archivo de Powerpoint para acceder al
archivo
pero no nos deja abrirlo porque el path del libro... como no es igual me
cierra el libro.
Como puedo detectar si el libro se abrio desde Excel o desde un hyperlink
de Powerpoint?

asumiendo que el metodo de poteccion se ejecuta desde el evento '_open' de
ese libro -?-
prueba como primera linea en ese evento una instruccion +/- como la
siguiente:

Private Sub Workbook_Open()
If Not Application.UserControl Then Exit Sub
MsgBox "Aqui se procesan acciones 'normales'..."
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, Roberto !

... el problema es que me devuelve True en amboscasos, cuando lo abro desde Excel y cuando lo abro desde PPoint...

1) el primer 'detalle' es que la instruccion Application.UserControl [solamente] 'detecta' si la aplicacion misma [excel]
-> ha sido abierta 'bajo el control del usuario' :)) [o sea]...
-> si excel ya es una aplicacion 'corriendo' cuando usas el hipervinculo en PP... :-((

2) otro 'detalle' -posible y 'hablando' de unidades en red-... pudiera ser alguno [o varios] de los siguientes:
-> si estas usando vinculos 'relativos' o 'absolutos' ?
-> lo que pudieras tener establecido en [menu] archivo / propiedades... / [ficha] resumen -> 'base del hipervinculo:'
prueba a establecer como 'base' la unidad 'logica' de tu servidor [p.e. M:\] -?-
[entre otras posibilidades] ;)

comentas [si encuentras] algun otro detalle +/- 'significativo' ?
saludos,
hector.

Gracias Mil.
Lo checaré y te comento
;)

"Héctor Miguel" escribió en el mensaje
news:

hola, Roberto !

... el problema es que me devuelve True en amboscasos, cuando lo abro
desde Excel y cuando lo abro desde PPoint...

1) el primer 'detalle' es que la instruccion Application.UserControl
[solamente] 'detecta' si la aplicacion misma [excel]
-> ha sido abierta 'bajo el control del usuario' :)) [o sea]...
-> si excel ya es una aplicacion 'corriendo' cuando usas el
hipervinculo en PP... :-((

2) otro 'detalle' -posible y 'hablando' de unidades en red-... pudiera ser
alguno [o varios] de los siguientes:
-> si estas usando vinculos 'relativos' o 'absolutos' ?
-> lo que pudieras tener establecido en [menu] archivo / propiedades...
/ [ficha] resumen -> 'base del hipervinculo:'
prueba a establecer como 'base' la unidad 'logica' de tu servidor
[p.e. M:\] -?-
[entre otras posibilidades] ;)

comentas [si encuentras] algun otro detalle +/- 'significativo' ?
saludos,
hector.