Utilizar archivo de excel en la misma ubicación, evitar copias

[icemoonlove]

Hola Buen día

He visto que es posible mediante un código evitar hacer copias de un archivo de excel o mejor dicho que si el archivo se mueve de la ubicación en la que esta simplemente no funciona o si se copia sin el archivo al que esta vinculado.

¿cómo puedo hacer para que el archivo solo se utilice en una usb?

Este código es cortesia de Julibaga, y quisiera saber como modificarlo para aplicarlo a una usb y además que no se muestren todas las hojas, puesto que necesito que algunas permanezcan ocultas

'Poner lo siguiente en ThisWorkgroup:
===========================================

Const archivoInicial = "C:\WINDOWS\Nombre_archivo.Extensión"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim W As Worksheet, sH As String
Application.ScreenUpdating = False
sH = ActiveSheet.Name

For Each W In ThisWorkbook.Worksheets
    If W.Name <> sH Then
        W.Visible = xlSheetVeryHidden
    End If
Next W
Application.ScreenUpdating = True
If ThisWorkbook.ReadOnly = True Then
    ThisWorkbook.Close False
End If

End Sub


Private Sub Workbook_Open()
Application.ScreenUpdating = False

Dim W As Worksheet

On Error Resume Next

If Not (existeArchivo(archivoInicial)) Then
    MsgBox "NO Registrado. Póngase en contacto " & _
        "con el Autor para verificarlo", vbCritical + vbOKOnly, "ATENCIÓN"
    ThisWorkbook.Close True
    Exit Sub
End If

For Each W In ThisWorkbook.Worksheets
    If W.Name <> Hoja2.Name Then
        W.Visible = xlSheetVisible
    End If
Next W
Hoja2.Visible = xlSheetVeryHidden
Set W = Nothing
Application.ScreenUpdating = True
End Sub
================================================

Poner lo siguiente en Módulo1:
==============================

Function existeArchivo(strArchivo As String) As Boolean
Dim miArchivo As String
existeArchivo = Len(Dir(strArchivo)) > 1
End Function

[/PHP]

De antemano muchas gracias

[Invitado biemofang]

Gran descuento del 80%! ! Sólo Euro €99, Teléfono móvil ultrafino ,Pantalla grande ,Configuración del sistema de gama alta ,Garantía de devolución.

Queridos amigos, este móvil nos ha traído una gran cantidad de clientes en los últimos dos meses, ¿sabes por qué?? 4.7 Pulgadas Android 4.1 4GB ROM i9300 Teléfono inteligente Dual SIM Dual Core de 1GHz MTK6577 Cámara de 8 megapíxeles GPS WiFi, este teléfono móvil obtiene una gran cantidad de buenos comentarios y buenas reputaciones y convertirse en uno de los productos más vendidos. Potente función, operación fácil, rápida respuesta, alta calidad, GPS, todo es tan perfecto. muchos de nuestros colegas han comprado este teléfono. He comprado una hace cuatro meses, navegar por Internet, ver películas, jugar juegos, enviar mensajes de texto, tiene una cámara de 8MP una enorme pantalla de alta definición, este teléfono es impresionante! Me alegro de que me había hecho la elección correcta, nuestras familias y amigos también espero que podamos ayudarles a comprar uno.Hoy te comparto mis colegas y yo, y muchos españoles experiencia comercial clientes aquí, y espero que te interesará. Entrega rápida de alta calidad + servicio post-venta perfecto, hemos vendido muchas, recepción para hacer el pedido! ! --Clic aquí para más detalles--

Este teléfono móvil es 512 MB de RAM.Si te gusta 1G , podemos ofrecerle la segunda opción, pero su precio es de Euro €114.Los dos tipos tienen el mismo diseño y apariencia, la única diferencia es 512M y 1G,--clic aquí para segunda opción(1G)--

[nachobm]

En princicio si en esta linea

Const archivoInicial = "C:\WINDOWS\Nombre_archivo.Extensión"

[/PHP]

pones la ruta completa del archivo deberia ser suficiente, debes sustituir [color=#000000][color=#007700][/color][color=#0000BB][/color][color=#007700][/color][color=#DD0000]"C:\WINDOWS\Nombre_archivo.Extensión"[/color][/color] por la ruta ej : "C:\archivosexcel\libro1.xlsm"