Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · publicado
Buenas tardes.
Necesito ayuda para abrir un archivo en modo escritura que ya está siendo usado en la web online.
La ruta del archivo es esta..(sustituyendo algunos datos)
Workbooks.Open Filename:= _
"https://xxxxxxx-my.sharepoint.com/personal/xxxxxxxxxx_com/Documents/Desktop/MANUAL%20USO%20DE%20LAS%20CAM/ejemplo.%20ejemplo.xlsx"
Cuando accedo a el me lanza el siguiente mensaje.
Archivo en uso.
Usuario - bloqueo la edición del archivo
Opciones:
Ver una copia.
Guardar y editar una copia del archivo.
No se si existiría la forma de poder acceder en modo escritura a el sin tener que expulsar a la gente que está trabajando en el mismo archivo online.
Muchísimas gracias de ante mano y un saludo.
Editado el por FPAYNO