Prevent Error Message

[Guest]

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

 

[Bob Phillips]

Where is the open code?

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

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

 

[Tom Ogilvy]

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.