Borrar copias abiertas de libro original
En caso de que llegue un usuario 3 y vuelva hacer lo mismo que usuario 2 (abrir el archivo original y hacer una copia) éste ultimo no podrá crear la copia porque el usuario 2 va a tener la copia con el nombre de "copia" y obviamente va arrojar el error de que no se pueden tener dos libros abiertos con el mismo nombre, ¿Me podrá arreglar este problema?
Esta bien la forma en que me dijiste
"con el usuario 2 crear la "copia1", con el usuario 3 crear la "copia2", cada que se cierre el archivo eliminará la copia correspondiente"
1 respuesta
Respuesta de Dante Amor
1
Cambia la macro del módulo por esta:
Sub Crear_Copia() 'Por.Dante Amor 'crea una copia Application.DisplayAlerts = False ruta = ThisWorkbook.Path & "\" n = 1 Do While True nombre = "copia" & n & ".xlsm" If Dir(ruta & nombre) = "" Then ThisWorkbook.SaveAs ruta & nombre Exit Do End If n = n + 1 Loop End Sub
Nota: Cada archivo original que se abra deberá abrirse con una instancia diferente de excel.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
