Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Prevent Error Message
I have code written (see below) that makes sure if a workbook (TMR.xls)
is called something else or is not located in the right folder (TMR folder), then the user cannot open it. It works fine if the workbook has been located in another folder. But, if it has the wrong name and is in the TMR folder, a Visual Basic Error message appears saying it can't locate the workbook, AND THEN OPENS IT !!!! The visual basic error is preventing the rest of the code, which would close the workbook. any suggestions how to get around this? Your help will be appreciated. code= If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then Sheets("MENU").Select Else Sheets("End").Select Application.ActiveWorkbook.Save Application.Quit Please note that simply entering 'On Error Resume Next' in the code is not making any difference. I need to prevent the Error dialogue kicking in. Your help is much needed and appreciated Expand AllCollapse All -- phil in da uk |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Prevent Error Message
Where is the open code?
-- HTH RP (remove nothere from the email address if mailing direct) "phil" wrote in message ... I have code written (see below) that makes sure if a workbook (TMR.xls) is called something else or is not located in the right folder (TMR folder), then the user cannot open it. It works fine if the workbook has been located in another folder. But, if it has the wrong name and is in the TMR folder, a Visual Basic Error message appears saying it can't locate the workbook, AND THEN OPENS IT !!!! The visual basic error is preventing the rest of the code, which would close the workbook. any suggestions how to get around this? Your help will be appreciated. code= If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then Sheets("MENU").Select Else Sheets("End").Select Application.ActiveWorkbook.Save Application.Quit Please note that simply entering 'On Error Resume Next' in the code is not making any difference. I need to prevent the Error dialogue kicking in. Your help is much needed and appreciated Expand AllCollapse All -- phil in da uk |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Prevent Error Message
Here is the full Open code:
Private Sub Workbook_Open() Worksheets.Select Columns("A:M").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:M30" Range("A1").Select Application.CommandBars.ActiveMenuBar.Enabled = False Application.DisplayFullScreen = True Application.CommandBars("Full Screen").Enabled = False Dim NumberofTBs As Integer Dim TBC As Integer Let NumberofTBs = Toolbars.Count For TBC = 1 To NumberofTBs Toolbars(TBC).Visible = False Next TBC For TBC = 2 To 18 Application.CommandBars(TBC).Visible = False Application.DisplayStatusBar = False Application.DisplayFormulaBar = False Next TBC Application.Run "TMR.xls!Macro84" Application.Run "TMR.xls!Macro81" Sheets("MENU").Select On Error Resume Next If ActiveWorkbook.FullName < "C:\TMR\TMR.xls" Or _ Dir("C:\WINDOWS\system32\unicode.txt") = vbNullString Then MsgBox "Contact Psyfactor Ltd for Licence", vbOKOnly, "TMR" Application.ActiveWorkbook.Save Application.Quit Else Sheets("MENU").Select End If End Sub "Bob Phillips" wrote: Where is the open code? -- HTH RP (remove nothere from the email address if mailing direct) "phil" wrote in message ... I have code written (see below) that makes sure if a workbook (TMR.xls) is called something else or is not located in the right folder (TMR folder), then the user cannot open it. It works fine if the workbook has been located in another folder. But, if it has the wrong name and is in the TMR folder, a Visual Basic Error message appears saying it can't locate the workbook, AND THEN OPENS IT !!!! The visual basic error is preventing the rest of the code, which would close the workbook. any suggestions how to get around this? Your help will be appreciated. code= If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then Sheets("MENU").Select Else Sheets("End").Select Application.ActiveWorkbook.Save Application.Quit Please note that simply entering 'On Error Resume Next' in the code is not making any difference. I need to prevent the Error dialogue kicking in. Your help is much needed and appreciated Expand AllCollapse All -- phil in da uk |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Prevent Error Message
I assume the workbook being opened is supposed to be C:\TMR\TMR.xls
if it isn't named TMR then these will raise that error Application.Run "TMR.xls!Macro84" Application.Run "TMR.xls!Macro81" this stops the code from running, but the workbook will continue to open. -- Regards, Tom Ogilvy "phil" wrote in message ... Here is the full Open code: Private Sub Workbook_Open() Worksheets.Select Columns("A:M").Select ActiveWindow.Zoom = True ActiveSheet.ScrollArea = "A1:M30" Range("A1").Select Application.CommandBars.ActiveMenuBar.Enabled = False Application.DisplayFullScreen = True Application.CommandBars("Full Screen").Enabled = False Dim NumberofTBs As Integer Dim TBC As Integer Let NumberofTBs = Toolbars.Count For TBC = 1 To NumberofTBs Toolbars(TBC).Visible = False Next TBC For TBC = 2 To 18 Application.CommandBars(TBC).Visible = False Application.DisplayStatusBar = False Application.DisplayFormulaBar = False Next TBC Application.Run "TMR.xls!Macro84" Application.Run "TMR.xls!Macro81" Sheets("MENU").Select On Error Resume Next If ActiveWorkbook.FullName < "C:\TMR\TMR.xls" Or _ Dir("C:\WINDOWS\system32\unicode.txt") = vbNullString Then MsgBox "Contact Psyfactor Ltd for Licence", vbOKOnly, "TMR" Application.ActiveWorkbook.Save Application.Quit Else Sheets("MENU").Select End If End Sub "Bob Phillips" wrote: Where is the open code? -- HTH RP (remove nothere from the email address if mailing direct) "phil" wrote in message ... I have code written (see below) that makes sure if a workbook (TMR.xls) is called something else or is not located in the right folder (TMR folder), then the user cannot open it. It works fine if the workbook has been located in another folder. But, if it has the wrong name and is in the TMR folder, a Visual Basic Error message appears saying it can't locate the workbook, AND THEN OPENS IT !!!! The visual basic error is preventing the rest of the code, which would close the workbook. any suggestions how to get around this? Your help will be appreciated. code= If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then Sheets("MENU").Select Else Sheets("End").Select Application.ActiveWorkbook.Save Application.Quit Please note that simply entering 'On Error Resume Next' in the code is not making any difference. I need to prevent the Error dialogue kicking in. Your help is much needed and appreciated Expand AllCollapse All -- phil in da uk |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
prevent message | Excel Discussion (Misc queries) | |||
how to prevent zero error message for logarithmic plots | Charts and Charting in Excel | |||
How to write a formula that will prevent appearance ERROR MESSAGE | Excel Worksheet Functions | |||
changing the message in an error message | Excel Worksheet Functions | |||
How do I get rid of "Compile error in hidden module" error message | Excel Discussion (Misc queries) |