Workbook_BeforeClose question

[Adi21]

Hy guys, I have a problem with the Workbook_BeforeClose.
I wrote a code and I want for every time when I close the file, this file to be saved on a site.
When I open the file myself and closed it is working. But that file is opened from another Excel file to complete cells and here is not working anymore. The Workbook_BeforeClose works only when I open myself the file and is not working if it`s automaticly open and close by another file?
I don`t understand why, because I have Private Sub Workbook_Open() in the file and this is working in the both situations.
Thank you.
Here is the code, if helps:

rivate Sub Workbook_BeforeClose(Cancel As Boolean)
Dim thefile, thepath As String
Let thepath = "[URL]http://....etc.../[/URL]"
Let thefile = "DatabaseLealde1.xlsm"
    ActiveWorkbook.SaveAs Filename:=thepath & thefile _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[Andrew Poulsom]

Maybe try changing ActiveWorkbook to ThisWorkbook,

 

[Adi21]

I changed, but the same thing, is working if I open and close the file, but if the another excel open and close it, nothing hapens.

 

[Adi21]

I checked with the debugger and is travel through all the lines from Sub Workbook_BeforeClose but nothing happens.
Maybe is the Save As function the problem? That you wanted to say Andrew?
But replacing ActiveWorkbook with ThisWorkbook doesn`t resolve the problem.

 

[Andrew Poulsom]

How are you closing the workbook? Do you have error trapping set somewhere?

 

[Adi21]

I think no. Here is the code that open and close that file:

Workbooks.Open Filename:=ThisPath & "\" & "BazaDeDate" & "\" & "DatabaseLealde1"
'here is the code to copy some rows
Workbooks("DatabaseLealde1").Close SaveChanges:=True

 

[Andrew Poulsom]

Is the Workbook_BeforeClose event actually firing when you run your code? Why don't you have file extensions?

 

[Adi21]

I checked with the debbuger and yes, Workbook_BeforeClose event is running.
Your refer like this?

Workbooks.Open Filename:=ThisPath & "\" & "BazaDeDate" & "\" & "DatabaseLealde1.xlsm"

 

[Andrew Poulsom]

Well if it's firing and there are no errors it must be working.

 

[Adi21]

This is what I was thinking too. But it`s not working.The debbuger evaluets the line but nothing hapens.