How to use VBA to close ThisWorkbook if the folderpath it's opened from is not the specified folderpath?

[dougmarkham]

Hi Folks,

Have checked Google and come a blank on this one.
Does anyone know if it's possible to use VBA---in a Private Sub Workbook_Open() macro---to check if the filepath that the file has been opened from matches a specified path, and if not, close the workbook?

Kind regards,

Doug.

 

[Fluff]

How about

Private Sub Workbook_Open()
   If Me.Path <> "Your file path" Then Me.Close False
End Sub

 

[dougmarkham]

How about

Private Sub Workbook_Open()
   If Me.Path <> "Your file path" Then Me.Close False
End Sub

Hi Fluff,

Thanks for that, works perfectly.
Was wondering about the Me.Path syntax: when used in an ordinary module

MsgBox Me.Path

, it says the syntax is incorrect, but it works in the ThisWorkbook window, so what does "Me." actually mean in VBA?

Kind regards,

Doug.

 

[Fluff]

Me refers to different things,
In the ThisWorkbook module it refers to the Workbook.
In a sheet module it's the sheet
In a UserForm module it's the UserForm.

 

[dougmarkham]

Me refers to different things,
In the ThisWorkbook module it refers to the Workbook.
In a sheet module it's the sheet
In a UserForm module it's the UserForm.

Hi Fluff,

Thanks for explaining it to me: I very much appreciate your teaching work!

Kind regards,

Doug.

 

[Fluff]

My pleasure.