Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Disable spreadsheet when copied to incorrect file path or differen ip address
I have password protected the worksheets and VB code and disabled the
saving function. Still, the program can be copied and pasted to another location. Is there a way to implement a macro that will disble the spread sheet if is in an incorrect file location or an incorrect IP address? |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Disable spreadsheet when copied to incorrect file path or differen ip address
Schatzi wrote :
I have password protected the worksheets and VB code and disabled the saving function. Still, the program can be copied and pasted to another location. Is there a way to implement a macro that will disble the spread sheet if is in an incorrect file location or an incorrect IP address? You can check 'ThisWorkbook.Path' on startup for the expected string value and if not correct then 'ThisWorkbook.Close'! -- Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Disable spreadsheet when copied to incorrect file path ordifferen ip address
I tried using the code:
MyFullName = ThisWorkbook.FullName ActiveWorkbook.Close False I'm not sure where I need to import the correct path. I have this in the Auto_open sub. On Apr 28, 3:59*pm, GS wrote: Schatzi wrote : I have password protected the worksheets and VB code and disabled the saving function. Still, the program can be copied and pasted to another location. Is there a way to implement a macro that will disble the spread sheet if is in an incorrect file location or an incorrect IP address? You can check 'ThisWorkbook.Path' on startup for the expected string value and if not correct then 'ThisWorkbook.Close'! -- Garry Free usenet access athttp://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Disable spreadsheet when copied to incorrect file path or differen ip address
on 4/28/2011, Schatzi supposed :
I tried using the code: MyFullName = ThisWorkbook.FullName ActiveWorkbook.Close False I'm not sure where I need to import the correct path. I have this in the Auto_open sub. On Apr 28, 3:59*pm, GS wrote: Schatzi wrote : I have password protected the worksheets and VB code and disabled the saving function. Still, the program can be copied and pasted to another location. Is there a way to implement a macro that will disble the spread sheet if is in an incorrect file location or an incorrect IP address? You can check 'ThisWorkbook.Path' on startup for the expected string value and if not correct then 'ThisWorkbook.Close'! -- Garry Free usenet access athttp://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc You should know where the project is to be stored. It's not some value that you retrieve somehow; it's a deliberately decided location. You could store the correct path in a constant, the Registry, or a file in the same folder as the project. In fact, you don't even need to store the path because you could use a dummy file in the same folder and check if that exists at startup. Users will not likely know that this file is needed and so would copy/saveas the workbook only. -- Garry Free usenet access at http://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Disable spreadsheet when copied to incorrect file path ordifferen ip address
On Apr 28, 5:09*pm, GS wrote:
on 4/28/2011, Schatzi supposed : I tried using the code: MyFullName = ThisWorkbook.FullName ActiveWorkbook.Close False I'm not sure where I need to import the correct path. I have this in the Auto_open sub. On Apr 28, 3:59*pm, GS wrote: Schatzi wrote : I have password protected the worksheets and VB code and disabled the saving function. Still, the program can be copied and pasted to another location. Is there a way to implement a macro that will disble the spread sheet if is in an incorrect file location or an incorrect IP address? You can check 'ThisWorkbook.Path' on startup for the expected string value and if not correct then 'ThisWorkbook.Close'! -- Garry Free usenet access athttp://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc You should know where the project is to be stored. It's not some value that you retrieve somehow; it's a deliberately decided location. You could store the correct path in a constant, the Registry, or a file in the same folder as the project. In fact, you don't even need to store the path because you could use a dummy file in the same folder and check if that exists at startup. Users will not likely know that this file is needed and so would copy/saveas the workbook only. -- Garry Free usenet access athttp://www.eternal-september.org ClassicVB Users Regroup! comp.lang.basic.visual.misc- Hide quoted text - - Show quoted text - I was able to use this code and it works great. It does check where the file is stored and makes sure it matches up with where I want it to be stored: Private Sub Workbook_Open() FullPath = ThisWorkbook.FullName If FullPath < "c:\test.xls" Then MsgBox "This file can only be accessed from the server: " + FullPath, vbExclamation, "Access Denied" ActiveWorkbook.Close False End If End Sub Thanks for your help. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Is there a function to print file name/path on a spreadsheet? | Excel Worksheet Functions | |||
Formula too long - new file path is shorter than old file path - Excel 2003 | Excel Worksheet Functions | |||
Excel 2003 link path is incorrect | Setting up and Configuration of Excel | |||
how to merge 2 different versions of same file edited on differen. | Excel Discussion (Misc queries) | |||
Change Path names in copied work book | Excel Worksheet Functions |