TiPO DE ARCHIVO

hola, moises !

Como podria a traves de codigo guardar un libro con otra extension ej : en vez de libro1.xls sea libro1.obr
y que este no se vincule a excel es decir que no se abra al hacer doble clicky luego tambien a travez de codigo pueda abrirlo
*** la idea es que el usuario comun no se percate de que es un documento de excel
y no pueda editarlo solo si este es abierto desde otro libro por medio de macros

-> puedes modificar la extension de 'tus' libros [no tienen porque 'apellidarse' XLS, XLA, etc.]
incluso, puedes hacerlo desde la interfase con el usuario
-> delimitando por comillas dobles el nombre del archivo INCLUYENDO la EXTension [p.e. "Libro1.xyz"] PERO...
a) no pierdas de vista que el usuario tambien puede 'mostrar' todo tipo de archivos al hacer un archivo/abrir
b) existe la posibilidad de que la EXTension de 'tus' archivos se muestre en la barra de titulos de la aplicacion :-((
-> a menos que le modifiques tambien la propiedad Window.Caption [ya sea al libro y/o a la/s hoja/s] ;)

-> tambien podrias 'faciitarle' la labor al abrirlos +/- de la siguiente forma:

Sub Abrir_mis_archivos()
Dim Este_archivo As String
Este_archivo = Application.GetOpenFilename("Mis archivos (*.xyz), *.xyz", , "Mi aplicación")
If Este_archivo = False Then Exit Sub
MsgBox Este_archivo & vbCr & "es el que se ""abre por codigo"" [si quieres o validas]"
End Sub

la [unica ?] 'ventaja' seria que mientras la EXTension no este 'vincuada' con excel, no se podrian abrir [p.e.] desde 'atajos' ;)

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

Gracias Miguel.
Al probar ... me percate de que
aunque le cambie la extension si cliqueo se abre el libro
a me nos que asigne en herramientas , opciones de carpeta, tipo de archivo
nuevo y coloque la extension y abrir con "nuevo"
entonces si. solo puedo abrirlo desde excel o en abrir como

??? como creo ese tipo de archivo, extension, desde una macro
o acaso estoy haciendo algo mal ? erroneo? otra forma ???

Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises !

> Como podria a traves de codigo guardar un libro con otra extension ej : en vez de libro1.xls sea libro1.obr
> y que este no se vincule a excel es decir que no se abra al hacer doble clicky luego tambien a travez de codigo pueda abrirlo
> *** la idea es que el usuario comun no se percate de que es un documento de excel
> y no pueda editarlo solo si este es abierto desde otro libro por medio de macros

-> puedes modificar la extension de 'tus' libros [no tienen porque 'apellidarse' XLS, XLA, etc.]
incluso, puedes hacerlo desde la interfase con el usuario
-> delimitando por comillas dobles el nombre del archivo INCLUYENDO la EXTension [p.e. "Libro1.xyz"] PERO...
a) no pierdas de vista que el usuario tambien puede 'mostrar' todo tipo de archivos al hacer un archivo/abrir
b) existe la posibilidad de que la EXTension de 'tus' archivos se muestre en la barra de titulos de la aplicacion :-((
-> a menos que le modifiques tambien la propiedad Window.Caption [ya sea al libro y/o a la/s hoja/s] ;)

-> tambien podrias 'faciitarle' la labor al abrirlos +/- de la siguiente forma:

Sub Abrir_mis_archivos()
Dim Este_archivo As String
Este_archivo = Application.GetOpenFilename("Mis archivos (*.xyz), *.xyz", , "Mi aplicación")
If Este_archivo = False Then Exit Sub
MsgBox Este_archivo & vbCr & "es el que se ""abre por codigo"" [si quieres o validas]"
End Sub

la [unica ?] 'ventaja' seria que mientras la EXTension no este 'vincuada' con excel, no se podrian abrir [p.e.] desde 'atajos' ;)

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

hola, moises !

Al probar ... me percate de que aunque le cambie la extension si cliqueo se abre el libro
a me nos que asigne en herramientas, opciones de carpeta, tipo de archivo nuevo y coloque la extension y abrir con "nuevo"
entonces si. solo puedo abrirlo desde excel o en abrir como
??? como creo ese tipo de archivo, extension, desde una macro o acaso estoy haciendo algo mal ? erroneo? otra forma ???

- 'como' son las instrucciones con las que guardas el archivo con extension diferente ?
- cual es la version de excel que estas usando ?

saludos,
hector.

HOLA.
lo guardo usando este codigo:
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Moisés Fernández\Mis
documentos\sesiom.obr" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

uso office 2003
como te comente antes..
aunque lo guarde asi puedo abrirlo cliqueando a menos que cree un nuevo tipo
de archivo y no lo vincule a ningun programa.
como hacer esto desde una macro ??? o alguna otra sugerencia ?
Gracias
PD: El nombre es SESIOM es el nombre que le di a la aplicacion que estoy
creando
( MOISES al revez) esto tambien es referente al otro post.

GRACIAS ! ! !
Me alimento del conocimiento de todos


"Héctor Miguel" wrote:

hola, moises !

> Al probar ... me percate de que aunque le cambie la extension si cliqueo se abre el libro
> a me nos que asigne en herramientas, opciones de carpeta, tipo de archivo nuevo y coloque la extension y abrir con "nuevo"
> entonces si. solo puedo abrirlo desde excel o en abrir como
> ??? como creo ese tipo de archivo, extension, desde una macro o acaso estoy haciendo algo mal ? erroneo? otra forma ???

- 'como' son las instrucciones con las que guardas el archivo con extension diferente ?
- cual es la version de excel que estas usando ?

saludos,
hector.

hola, moises !

lo guardo usando este codigo:
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Moisés Fernández\Mis documentos\sesiom.obr" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
aunque lo guarde asi puedo abrirlo cliqueando a menos que cree un nuevo tipo de archivo y no lo vincule a ningun programa.
como hacer esto desde una macro ? o alguna otra sugerencia ?

1) lo que permite que tu archivo se pueda abrir en excel desde un atajo/doble-click/etc. [aun si no se apellida *.XL*]
es el formato aplicado al momento de guardarlo: -> FileFormat:=xlNormal o... FileFormat:=xlWorkbookNormal
y que [dicho sea de paso] es el que se aplica si omites el argumento para el tipo de archivo :))
[si no recuerdo mal... antes no eran 'reconocidos' por las aplicaciones los archivos con EXTensiones diferentes] -?-

2) segun lo anterior, aparentemente la 'unica' ventaja actualmente es que tus archivos *.obr no 'pareceran' archivos de excel
[esto, 'a la vista' del usuario en la interfase grafica de windows, p.e. desde el explorador de windows, MiPC, etc.] :))

3) 'regresando' al objetivo de tu consulta original...
" *** la idea es que el usuario comun no se percate de que es un documento de excel y no pueda editarlo "
" solo si este es abierto desde otro libro por medio de macros. "
-> probablemente te saldria mas 'barato' si una vez grabado, lo ocultas
OJO: no ocultando su ventana sino el archivo *real*, o sea, sus atributos en/para/desde/... el sistema operativo [p.e.]

ActiveWorkbook.SaveAs "C:\Documents and Settings\Moisés Fernández\Mis documentos\sesiom.obr"
With CreateObject("Scripting.FileSystemObject")
With .GetFile(ActiveWorkbook.FullName)
.Attributes = 2
End With
End With

nota: el hecho de que no se pueda 'ver' en la interfase grafica de windows [p.e. desde el explorador de windows, MiPC, etc.]
-> no significa que no se pueda abrir... :)) [solo es indispensable que *efectivamente* exista donde se busca] p.e.
Workbooks.Open "C:\Documents and Settings\Moisés Fernández\Mis documentos\sesiom.obr"

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