Confirmation of file
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
|