Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Verifying path fails for no apparent reason..Clueless
Hi
What I want to do is to ensure that the workbook is opened only from the designated folder, in this case it is a folder in a mapped network drive P:\. The code works as intended if I try to open the workbook from my C:\ drive, ie. the workbook closes showing the message box. The code is: Const ServerPath As String = "P:\Documents and Settings\All Users\Documents" Private Sub Workbook_Open() If ThisWorkbook.Path < SeverPath Then MsgBox "You are not allowed to open the workbook from the current location" ThisWorkbook.Close End If End Sub However when the file is on the server, the workbook still closes. Following command yielded the following: Debug.Print ServerPath Debug.Print ThisWorkbook.Path Debug.Print ThisWorkbook.Path < SeverPath P:\Documents and Settings\All Users\Documents P:\Documents and Settings\All Users\Documents True Why is If ThisWorkbook.Path < SeverPath evaluating to true, eventhough both ServerPath and ThisWorkbook.Path is same? I am stumped. Any suggestions? TIA. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Verifying path fails for no apparent reason..Clueless
Bangs head on table.
That was the only module I didnt have Option Explicit... :-( Thanks Ardus for pointing it out. Now there is another thing I just noticed. If I disable Macro on opening I can still view the Worksheet. I am wondering if there is a workaround to that...? Anyway thanks.. Ardus Petus wrote: Typo: If ThisWorkbook.Path < SeverPath Then should be: If ThisWorkbook.Path < ServerPath Then The error would be easier to find if you used Option Explicit HTH -- AP a écrit dans le message de news: ... Hi What I want to do is to ensure that the workbook is opened only from the designated folder, in this case it is a folder in a mapped network drive P:\. The code works as intended if I try to open the workbook from my C:\ drive, ie. the workbook closes showing the message box. The code is: Const ServerPath As String = "P:\Documents and Settings\All Users\Documents" Private Sub Workbook_Open() If ThisWorkbook.Path < SeverPath Then MsgBox "You are not allowed to open the workbook from the current location" ThisWorkbook.Close End If End Sub However when the file is on the server, the workbook still closes. Following command yielded the following: Debug.Print ServerPath Debug.Print ThisWorkbook.Path Debug.Print ThisWorkbook.Path < SeverPath P:\Documents and Settings\All Users\Documents P:\Documents and Settings\All Users\Documents True Why is If ThisWorkbook.Path < SeverPath evaluating to true, eventhough both ServerPath and ThisWorkbook.Path is same? I am stumped. Any suggestions? TIA. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
customized toolbars reset for no apparent reason can't find .xlb | Setting up and Configuration of Excel | |||
#NAME? error for no apparent reason... | Excel Worksheet Functions | |||
Workbooks.Open fails when using a full network path.... | Excel Programming | |||
Excel is behaving strangely for no apparent reason. | New Users to Excel | |||
Excel resizes images with no apparent reason | Excel Programming |