I have one excel workbook (called “workbookA”) stored on network device (hard drive with its own ip address). The idea is not to allow users to save that excel workbook locally on individual pcs; otherwise, others wont be able to see updates done by a particular user that saved the workbook on his or her computer (regardless of intention).
The idea I have is to have a second workbook (called “workbookB”) on the same network drive; and cell $A$1 of this workbookB is being referenced by workbookA.
$A$1 cell of workbookB has value of ‘20’. And, cell A8 of workbookA refers to that cell
My code below checks the value of A8 cell of workbookA against the value of $A$1 cell of workbookB has value of ‘20’. If the values do not match, cell A9 of workbookA displays “Unauthorized Copy”
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("$A$8") <> "'[NO_NO.xls]SHEET00'!$A$1" Then
' places "Unauthorized Copy" to Cell $A$9
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("FID").Unprotect Password:="password"
Range("'[FID.xls]FID'!$A$9").Value = "UNAUTHORIZED COPY"
Sheets("FID").Protect Password:="password"
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
I feel embarrassed, but this is the best idea I’ve got. Plus I am getting "Run-time error '1004'; Method 'Range' of object '_Worksheet' failed" & whenever the workbook is being opened, excel asks is the links (referenced) are to be updated or not (whole another story). Are there any simpler & more interesting ideas to ensure that the user gets alerted whenever the workbookA is removed from the network device?
Bookmarks