Have not yet tried.
The workbook I'm having trouble with does work as expected on other users
pc's.
.........[minutes later].......
No, sadly, no other xls workbooks with Workbook_Open() events are working.
This is a problem.
--
Cheers,
Cameron


"Dave Peterson" wrote:

Do other workbooks with macros run when you open them the same way?

Cameron Young wrote:

I open the file by either:
a) Double-clicking the file from its folder.
b) Using the Excel Recent FilecHistory list.
c) Performing a "File | Open".

--
Cheers,
Cameron

"Dave Peterson" wrote:

How do you open that workbook?

Do you open it using another macro in a different workbook?

If yes, do you use a shortcut key assigned to that macro.

If yes, does that shortcut key include the shiftkey.

If yes (again!), then remove the shiftkey from the short cut key.

===

Do you have events enabled when you try to open the workbook?


Cameron Young wrote:

Gents,
Thanks for your responces.
Bob:: Workbook_Open() code is in the ThisWorkbook module.
Dave:: Have already sert the macro security to low. And still nothing.
--
Cheers,
Cameron

"Dave Peterson" wrote:

Close that workbook (if it's open)
tools|macro|security...|security level tab

Change it to medium (to be prompted each time a workbook containing macros
opens)
or
change it to low (to always allow macros to run)



Cameron Young wrote:

Hi Bob,

Actually, all of it. For some reason the Workbook_Open() event just doesn't
seem to fire.
--
Cheers,
Cameron

"Bob Phillips" wrote:

Which bit doesn't work?

--
HTH

Bob Phillips

"Cameron Young" wrote in message
...
Hi all,

Have whipped the following code in Excel/VBA and placed in the
'ThisWorkbook' module. The problem that I have is that it works well with
other users using Excel 2003 Standard edition.
I'm using Beginners edition - is that why the code won't run?

The vba code:
[-- code start --]
Private Sub Workbook_Open()

'Prompt user on opening XLS to Print Worksheet and quit.

Dim Resp

Resp = MsgBox("Do you wish to Print and Exit ?", _
vbYesNo + vbQuestion, _
"Print & Exit ?")

If Resp = vbYes Then
ActiveWorkbook.PrintOut
Application.Quit
End If

End Sub
[-- code end --]

Please help - this is driving me nuts.
--
Cheers,
Cameron




--

Dave Peterson


--

Dave Peterson


--

Dave Peterson