ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Enable Macros (https://www.excelbanter.com/excel-programming/299223-enable-macros.html)

ronbo

Enable Macros
 
I am looking for a way to bypass the enable/disable
macros when opening a workbook so that someone else can't
open the workbook without enabling the macros.

Thanks for any Help.

Tom Ogilvy

Enable Macros
 
If this was possible, there would be no reason to have it as Virus writers
would bypass it as well.

About the best you can do is hide all you sheets and deny your user the
functionality of the workbook if macros are not enable. Have the macro
place you workbook in an operable condition. (if not enabled, it is not
operable).

If you and your users are using Excel 2000 or later you can certify your
workbook and have the user accept you as a trusted source.

--
Regards,
Tom Ogilvy


"Ronbo" wrote in message
...
I am looking for a way to bypass the enable/disable
macros when opening a workbook so that someone else can't
open the workbook without enabling the macros.

Thanks for any Help.




Chris

Enable Macros
 
You can set the Security level to low using the Security option on the visualbasic toolbar. But this is not available at the Workbook file level, only at the users application level. So, i don't know how much control you can exercise over another user's computer and his Excel App settings. As a matter of fact thats the reason they set it up that way, to prevent unwanted macros from running without you knowing.

Thomas Ramel

Enable Macros
 
Grüezi Ronbo

Ronbo schrieb am 24.05.2004

I am looking for a way to bypass the enable/disable
macros when opening a workbook so that someone else can't
open the workbook without enabling the macros.


As said, this is not possible (fortunatey).

But you could 'hide' your sheets by the following code:

Private Sub Workbook_Open()
ThisWorkbook.IsAddin = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.IsAddin = True
ThisWorkbook.Save
End Sub

--
Regards

Thomas Ramel
- MVP for Microsoft-Excel -

[Win XP Pro SP-1 / xl2000 SP-3]


All times are GMT +1. The time now is 07:19 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com