| Home |
| Search |
| Today's Posts |
|
|
|
#1
|
|||
|
|||
Office Excel 2003 Versions and VBA
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 |
|
#2
|
|||
|
|||
|
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 |
|
#3
|
|||
|
|||
|
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 |
|
#4
|
|||
|
|||
|
You did put it in the ThisWorkbook code module, not a standard code module?
-- HTH Bob Phillips "Cameron Young" wrote in message ... 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 |
|
#5
|
|||
|
|||
|
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 |
|
#6
|
|||
|
|||
|
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 |
|
#7
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Hybrid Mode
