VBA fails to fire when opened

[Biz]

Dear All,

If I save the file and close the file. Try re -opening file then macro does not fire.
Using Excel 2010.

[COLOR=#1f497d][SIZE=3][FONT=Calibri]Private Sub Workbook_Open()[/FONT][/SIZE][/COLOR]
[COLOR=#1f497d][SIZE=3][FONT=Calibri]    Application.WindowState = xlMaximized[/FONT][/SIZE][/COLOR]
[COLOR=#1f497d][SIZE=3][FONT=Calibri]MsgBox "This is auto open macro in This workbook"<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>[/FONT][/SIZE][/COLOR]
[COLOR=#1f497d][SIZE=3][FONT=Calibri]End Sub<o:p></o:p>[/FONT][/SIZE][/COLOR]

Your help would be greatly appreciated.

Biz

 

[AMAS]

Works fine for me. Make sure you put the macro in the "ThisWorkbook" object not a standard module.

AMAS

 

[shadow12345]

And works for me too..

If it is in the This workbook and not in a module try adding application.EnableEvents=True

 

[Peter_SSs]

If it is in the This workbook and not in a module try adding application.EnableEvents=True

If the existing code is not 'firing' because Events are disabled, adding this line to the existing code won't make any difference.


Biz
If disabled events is the problem, and it could very well be, some manual action is required to re-enable them. Here is one way.

In the VBA window, ensure the Immediate Window is visible (View|Immediate Window) and then on a new line in the Immediate Window, type
Application.EnableEvents=True and press Enter

Now try saving, closing and re-opening your workbook.

 

[Biz]

Hi,

Tried Application.EnableEvents=True and it is working now. Thank you all.

I tried code below it works but Ctrl + F4 shortcut and also clicking on red x does not work.

Private Sub Workbook_Activate()
Application.EnableEvents = True
Call umUnProtect
 ActiveWindow.WindowState = xlMaximized
Call umProtect
MsgBox "This is Workbook Activate macro in This workbook"
End Sub

Any suggestions?

Biz

 

[Biz]

Hi All,

I dropped protect Windows and now everything working like a charm.
Hope this helps someone else with the similar problems.

Private Sub Workbook_Activate()
Application.EnableEvents = True
Call umUnProtect
 ActiveWindow.WindowState = xlMaximized
Call umProtect
'MsgBox "This is Workbook Activate macro in This workbook"
End Sub

Biz

 

[Biz]

Hi Guys,

I found hack and now I can protect Windows and still ctrl +F4 or clicking red x closes the file.
The change in code in bold red.


see code below:

Private Sub Workbook_Activate()
Application.EnableEvents = True
Call umUnProtect
 ActiveWindow.WindowState = xlMaximized
[COLOR=red][B]Application.OnKey "^{f4}"[/B][/COLOR]
Call umProtect
'MsgBox "This is Workbook Activate macro in This workbook"
End Sub

I know this is not neat way but it works.

Biz