If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
|
Thread Tools | Display Modes |
#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 |
#8
|
|||
|
|||
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 |
#9
|
|||
|
|||
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 |
#10
|
|||
|
|||
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 |
|
Thread Tools | |
Display Modes | |
|
|