Forzar la ubicacion de archivo

Estimado amigo, en realidad no te dare una respuesta "exacta" a lo que
pides, pero de todos modos quiero escribirte. Antes que nada, como no
se si entras al "grupo" por medio de microsoft, de google, o solo
"recibes" correos a traves de Outlook, te dejo la url del grupo en
google, donde hay una opcion BUSCAR que es perfecta para encontrar
varias respuestas a tus pedidos:

http://groups.google.com/group/micr...ic.es.exce

Obviamente, todo tiene que ir en una macro AUTO_OPEN de un modulo, o
en el evento OPEN del modulo ThisWorkBook.
Eso si, si alguien no habilita las macros, pues, no "correran" la
macro

- Para "forzar" la ubicacion, primero, obviamente, tu debes saber la
ruta en donde estara tu archivo, y asi con un IF y usando
application.path "comprobar" si el archivo a sido "movido" y en ese
caso, el arhcivo se cierra o se abre en una hoja sin datos, o como tu
desees.

- Para bloquear el "guardar como", pues con codigo tipo:
Application.CommandBars("File").Controls(5).Delete, elimnas esa opcion
o la "inhabilitas"
Application.CommandBars("File").Controls(5).enabled=true, y asi con
todas las que quieras. Incluso con el menu "herramientas" o sus
submenus, para evitar que "personalizen" las barras o los menus y
puedan "habilitar" lo que no deseas.

- Para conseguir el numero o serie del disco duro, usa el BUSCAR del
foro en google, y veraz que hay varias respuestas. sobre el usuario de
windows, igualmente hay varias respueats, eso si, en eso caso se usan
API`s

Solo una ultima cosa, para evitar que "muestren" hojas que no quieras,
ocultas usando xlsheetveryhidden asi el menu "mostrar" no podra con
ella :) otra cosa, no olvides proteger las hojas, el libro y sobre
todo las macros!!!! Definitivamente eso dificultara el que muevan, o
abran tu archivo en otra maquina. Eso si, algun "usuario" digamos,
avanzado, no tendra demasiados problemas, pero, lo bueno es que para
el "usuario" comun y corriente, preacticamente se le hara imposible
modificar algo

Abraham