Guardar y cerrar un libro compartido sin dejar de compartir
publicado
Hola!, les cuento que tengo una base de datos en excel que consiste en un libro compartido, esta es abierta por medio de otro libro excel que contiene macros para abrir, modificar, guardar y cerrar el libro compartido. El tema es... que cuando está cerrando el libro compartido aparece el siguiente mensaje.. "La siguiente acción quitará el uso compartido del libro, ¿Desea quitar el uso compartido? Si, No...", Quisiera saber si hay forma de que este mensaje no aparezca o bien, que se haga click en "No" automáticamente por código.
La idea de modificar un libro compartido es que siempre este compartido no?
Hola!, les cuento que tengo una base de datos en excel que consiste en un libro compartido, esta es abierta por medio de otro libro excel que contiene macros para abrir, modificar, guardar y cerrar el libro compartido. El tema es... que cuando está cerrando el libro compartido aparece el siguiente mensaje.. "La siguiente acción quitará el uso compartido del libro, ¿Desea quitar el uso compartido? Si, No...", Quisiera saber si hay forma de que este mensaje no aparezca o bien, que se haga click en "No" automáticamente por código.
La idea de modificar un libro compartido es que siempre este compartido no?
Saludos y espero vuestra mano amiga.
NombreArchivo = "Z:\Preciosv13.xlsm"
'NombreArchivo = "C:\Users\" & USUARIO & "\Dropbox\PRECIOS BARRACA\Preciosv13.xlsm"
'Validamos si el archivo ya está abierto
If IsFileOpen(NombreArchivo) Then
Else
With .Workbooks.Open(NombreArchivo)
'MsgBox "" & ulfila
For i = 2 To ulfila Step 1
cantidad = Sheets("Precios").Range("A" & i).Value
'Hacemos las modificaciones en el archivo
.Worksheets("PRINCIPAL").Range("I" & i) = .Worksheets("PRINCIPAL").Range("I" & i) - cantidad
'Cerramos el archivo guardando cambios
avance = i / ulfila
Next
Correl = .Worksheets("CORRELATIVOS").Range("B2").Value
Worksheets("CORRELATIVOS").Range("B2").Value = .Worksheets("CORRELATIVOS").Range("B2").Value + 1
.Close SaveChanges:=False ' AQUI APARECE EL MENSAJE PREGUNTANDO SI DESEO QUITAR EL USO COMPARTIDO
End With
End If
guardar y cerrar un libro compartido sin dejar de compartir
guardar y cerrar un libro compartido sin dejar de compartir