Guardar copia archivo si el original es de solo lectura oesta ocupado

Muy buenas, amigos les agradesco quien me puede ayudar

Actualmentetengo una macro que guarda el inicio de un archivo con este código.

With ActiveWorkbook

.RunAutoMacros xlAutoClose

.Save

.Close

End With

Pero tengo un problema cuando el archivo está en uso,Si el archivo Excel está en uso como puedo hacer para que esta guarde una copia si el archivo está en uso.

Gracias

- - - - - Mensaje combinado - - - - -

En el foro encontre esto, pero quien tenga una mejor idea.

Dim XLSLibro_B As Excel.Worksheet 'Se define la variable como hoja Excel

Set XLSLibro_B = Workbooks("NOMBRE DEL ARCHIVO").Sheets(1)

If Not Workbooks(XLSLibro_B.Parent.Name).ReadOnly Then

Workbooks(XLSLibro_B.Parent.Name).Close (True) 'cierra XLSLibro_B GUARDANDO los cambios

Else

Workbooks(XLSLibro_B.Parent.Name).Close (False) 'cierra XLSLibro_B SIN GUARDAR los cambios

MsgBox "El archivo está siendo utilizado por otro usuario." & Chr(10) _ & "Deberá volver a intentarlo más tarde, cuando el archivo esté disponible.", vbCritical

End If

Voy intentar con este codigo de ejemplo avr que logro.