Guardar y cerrar un libro compartido sin dejar de compartir

[juanantoniomillar]

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