"El libro" ,ya esta abierto. Si lo vuelve a abrir perderá los cambios que no haya

He buscado en los foros y no he encontrado algo concreto que me lleve a solucionar este mensaje que ocurre cuando intento abrir mi "libro12.xlsm", y ya esta abierto (en uso), he intentado modificar este código que encontré en foro pero no me funciona:

Private Sub Workbook_Open()

Dim TestWorkbook As Workbook

Set TestWorkbook = Nothing

On Error Resume Next

Set TestWorkbook = Workbooks("Libro12.xlsm")

On Error GoTo 0

If TestWorkbook Is Nothing Then

userform1.show

Else

msgbox"Este libro ya esta abierto pero se cerrará"

ActiveWorkbook.Save

Workbooks("Libro1.xlsm").Close

End If

end sub

Agradeceré encarecidamente...