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
|