I want to write code in the Worksheet so that when users open the
spreadsheet [TMR.xls]it looks for and confirms that a file [hyperlink.twd]
exists in the Windows sys32 folder. Otherwise it closes the spreadsheet.
Does anyone know how to do this?
your help will be appreciated
here is the 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!Macro74"
Application.Run "TMR.xls!Macro76"

Sheets("MENU").Select

If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then
Sheets("MENU").Select
Else
Sheets("End").Select
Range("A1").Select
MsgBox "Contact Psyfactor Ltd for Licence", vbOKOnly, "TMR"
Application.ActiveWorkbook.Save
Application.QUIT


End If

End Sub

Your help will be appreciated.

--
phil in da uk

Phil,

Adding the following code will accomplish your task...

If Dir("C:\WINNT\system32\hyperlink.twd") = vbNullString Then
ThisWorkbook.Close False
End If

You may need to replace "WINNT" with "Windows" depending on if your running
NT or not.

The False after close prevents the save workbook dialog


"phil" wrote:

I want to write code in the Worksheet so that when users open the
spreadsheet [TMR.xls]it looks for and confirms that a file [hyperlink.twd]
exists in the Windows sys32 folder. Otherwise it closes the spreadsheet.
Does anyone know how to do this?
your help will be appreciated
here is the 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!Macro74"
Application.Run "TMR.xls!Macro76"

Sheets("MENU").Select

If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then
Sheets("MENU").Select
Else
Sheets("End").Select
Range("A1").Select
MsgBox "Contact Psyfactor Ltd for Licence", vbOKOnly, "TMR"
Application.ActiveWorkbook.Save
Application.QUIT


End If

End Sub

Your help will be appreciated.

--
phil in da uk

we'll give it a try..it looks right
and if it works I'll tick the box
thanks for your help

"Jack" wrote:

Phil,

Adding the following code will accomplish your task...

If Dir("C:\WINNT\system32\hyperlink.twd") = vbNullString Then
ThisWorkbook.Close False
End If

You may need to replace "WINNT" with "Windows" depending on if your running
NT or not.

The False after close prevents the save workbook dialog


"phil" wrote:

I want to write code in the Worksheet so that when users open the
spreadsheet [TMR.xls]it looks for and confirms that a file [hyperlink.twd]
exists in the Windows sys32 folder. Otherwise it closes the spreadsheet.
Does anyone know how to do this?
your help will be appreciated
here is the 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!Macro74"
Application.Run "TMR.xls!Macro76"

Sheets("MENU").Select

If ActiveWorkbook.FullName = "C:\TMR\TMR.xls" Then
Sheets("MENU").Select
Else
Sheets("End").Select
Range("A1").Select
MsgBox "Contact Psyfactor Ltd for Licence", vbOKOnly, "TMR"
Application.ActiveWorkbook.Save
Application.QUIT


End If

End Sub

Your help will be appreciated.

--
phil in da uk