ActiveWorkbook Property Errors When Openend from Email

[Jonathan78]

Hello all,

The following code works correct.
It determines if the workbook is stored on an "authorized" location.
the authorized file paths are stored in range G4:G20 on sheet "PROTECTION"

It only errors when the file is opened from en email attachment.
And all I try, I can't get it to work.
The problem seems to be the "Active..." properties.
Does any of you recognize the problem?

Please Login or Register  to view this content.

I also tried. (but without success"

Please Login or Register  to view this content.

[Norie]

If the file has been opened from an attachment without saving then it might not have a path.

If it does it's probably to a temporary folder of some kind.

By the way, if you want to refer to the workbook the code is in use ThisWorkbook instead of ActiveWorkbook.

[Jonathan78]

If the file has been opened from an attachment without saving then it might not have a path.

If it does it's probably to a temporary folder of some kind.

By the way, if you want to refer to the workbook the code is in use ThisWorkbook instead of ActiveWorkbook.

ThisWorkbook did the trick.
Thank you Norie!

[Jonathan78]

Hello,

I got the same problem with "ActiveWindow"
Is there an alternative for this?

(Again, the error only occurs when opened from email)

Please Login or Register  to view this content.

[Norie]

Where is all this code located?

[Jonathan78]

Hello Norie,

It's located in the workbook_Open.
This is the full code

Please Login or Register  to view this content.

[Norie]

Probably a stupid question, but do you need all of the code?

[Jonathan78]

hahaha, I think I do.
Do you know a better way?

I'm not that experienced yet

[Norie]

Jonathan

Are you just trying to open these files?

[Jonathan78]

I'm trying to "secure" it.
It can only be opened on computers and folders that are mentioned in sheet "PROTECTION"
This all works properly but gives an error when opened from an email.
After it has been saved on a computer it works properly again.

[Norie]

Jonathan

I'm a little confused, is this your code and you are sending out the workbook(s)?

Or are you receiving the workbook(s) and this isn't your code?

[Jonathan78]

This is my code Norie,
The file is being used by my colloquies but don't want them to make copies and sent them to home.
If they sent it by mail to their homes, I want it to be closed upon trying to open it.

[Norie]

Jonathan

If it's your code why not just remove the parts that don't work?

By the way, this code could be easily be bypassed.

[Jonathan78]

Norie,

If I remove the part that doesn't work.
ActiveWindow.DisplayWorkbookTabs = False
It will display the workbooktabs (I want them to be hidden)

btw How can it bypassed? (Macro's are password protected, and all menu's "sheettabs" are hidden)

[Norie]

The user could disable macros, or hold downd SHIFT when the workbook is opened.

Both would stop the code running.

Having passwords might help but Excel really isn't a secure environment.

What is it you want to prevent the user copying?

[Jonathan78]

The workbook doesn't work with the macro's disabled.
I know it isn't a secure environment but enough for the normal user.

I want the user to see only the "start" sheet and don't want them to see the macro's and other sheets

[Norie]

They can still open the workbook and then copy it.

If you just want the user to see one sheet, why are you hiding all worksheet tabs?

This will hide all sheets apart from 'Start'.

Please Login or Register  to view this content.

[Jonathan78]

Thanks Norie,
I will use your solution.
btw. Do you know a better way to secure my workbook?