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
|
Similar Threads
