forzar propiedad "compartido" desde visual a un excel

09/05/2006 - 09:52 por xabi | Informe spam
Buenas...este es mi primer post aqui,saludo a todo el mundo.Me gustaria
saber si al crear un archivo excel desde visual se puede indicar que este
sea "compartido" para que no se machaquen entre si la info los diferentes
usuarios en paralelo.
muchisimas gracias.
xabi
 

Leer las respuestas

#1 Héctor Miguel
11/05/2006 - 08:25 | Informe spam
hola, xabi !

... saber si al crear un archivo excel desde visual se puede indicar que este sea "compartido"
para que no se machaquen entre si la info los diferentes usuarios en paralelo.



prueba usando instrucciones +/- como las siguientes [xl '97 en adelante]:

op1:
With el_objeto_libro_que_has_creado
.KeepChangeHistory = True
.ProtectSharing(Filename, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, SharingPassword)
End With

donde:
FileName es una cadena de texto con el nombre del archivo
Password es una cadena de texto con la clave 'contra' apertura
WriteResPassword es una cadena de texto con la clave 'contra' esctritura
ReadOnlyRecommended es una variable True o False
CreateBackup es una variable True o False
SharingPassword es una cadena de texto con la clave 'contra' esctritura

op2:
objeto_libro.SaveAs(Filename, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodePage, TextVisualLayout)
End With

donde:
FileName es una cadena de texto con el nombre del archivo
FileFormat es [generalmente] la constante: -> xlWorkbookNormal
Password es una cadena de texto con la clave 'contra' apertura
WriteResPassword es una cadena de texto con la clave 'contra' esctritura
ReadOnlyRecommended es una variable True o False
CreateBackup es una variable True o False
AccessMode [aqui usa la constante] -> xlShared (archivo compartido)
- ConflictResolution puedes considerar las siguientes opciones:
- xlUserResolution (muestra el cuadro de dialogo de resolucion de conflictos) -por omision-
- xlLocalSessionChanges (acepta los cambios del usuario local)
- xlOtherSessionChanges (acepta los cambios que no pertenezcan al usuario local)
AddToMru es True o False -por omision- para agregar el archivo a la lista de los usados recientemente
TextCodePage [no se utiliza]
TextVisualLayout [no se utiliza]

nota: es posible que desde vb [stand-alone] NO se 'reconozcan' las constantes internas de excel :-((
-> pero puedes bajar un ZIP con las equivalencias de las constantes en: http://www.cpearson.com/Zips/XLConsts2.ZIP

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

Preguntas similares