Buenos días amigos 
 Escribo nuevamente a petición de una consulta o ayuda, manejo una base de datos la cual es usada por varios usuarios novatos en la empresa, a esta base le quiero adaptar una macro que guarde una copia del mismo archivo al momento de aperturar y al momento de cerrarlo, debe tener dos condiciones como indique al momento de su apertura este guarde una copia con su "nombre original, el dia y la escritura de apertura", y lo mismo al momento de cerrar. estos en una ruta especifica, esto por si algun cambio guardado debo reversar saber cual archivo usar.

Private Sub Workbook_Open()
ThisWorkbook.SaveCopyAs "Z:\Relacion laboral\GUARDERIA\copia-apertura.xlsm"
End Sub

private sub worbook_beforeclose (cancel as Boolean) 
ThisWorkbook.SaveCopyAs "Z:\Relacion laboral\GUARDERIA\copia-cierre.xlsm"
End Sub

pero no se como hacer lo demás soy nuevo en VBA solo trato de adaptar lo leído y visto en Google y los foros.

gracias por su colaboracion

Prueba a ver que tal va.

 

Dim FechaHora As String

Private Sub Workbook_Open()
FechaHora = Format(Date, "yyyymmdd") & " " & Format(Time, "hhmmss")
ThisWorkbook.SaveCopyAs "Z:\Relacion laboral\GUARDERIA\copia-apertura " & FechaHora & ".xlsm"
End Sub

Private Sub worbook_beforeclose(cancel As Boolean)
FechaHora = Format(Date, "yyyymmdd") & " " & Format(Time, "hhmmss")
ThisWorkbook.SaveCopyAs "Z:\Relacion laboral\GUARDERIA\copia-cierre " & FechaHora & ".xlsm"
End Sub

 

@Macro Antonio 

Funciona Perfecto el de apertura, pero el de cierre no hace nada, solo cuando cierro el libro me pide guardar cambios lo hago y nada no registra la copia

 

Fíjate en la diferencia respecto a la misma línea de tu aporte.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 

Hace 3 horas, Macro Antonio dijo:

 

Fíjate en la diferencia respecto a la misma línea de tu aporte.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 

Ups,  disculpa amigo, ahora si funciona perfecto mil gracias por la ayuda.  no me había percatado.