Macro for avoiding unauthorized duplication for excel file

[gestioperformance]

Hi everybody,
i'm having issues with the following macro that i want to include in a spreadsheet to prevent the user to give the file to unauthorized third parties. basically, i want to make the file readable only by a specific "computer name".


hereby the macro:



Private Sub Workbook_Open()
Dim cella As Range
Set cella = Sheets(1).Cells(Rows.Count, Columns.Count)
If cella = "" Then
cella = Environ("computername")

ActiveWorkbook.Save
Exit Sub
End If
If cella <> "PC NAME" Then ' username Vale
MsgBox "Unauthorized access", vbCritical, "Access Denied"


ActiveWindow.Close
End If
Set cella = Nothing
End Sub








Thank you in advance for any kind of help.

 

[gestioperformance]

Re: Help: macro for avoiding unauthorized duplication for excel file

i have to merge the initial macro with this one, but i don't understand how to do it.
essentially, i want the macro to read the pc name on a support spreadsheet and, if on this file the macro finds the correct pc name, open the "effective" file.

This is the first macro:

Private Sub Workbook_Open()
Dim cella As Range
Set cella = Sheets("Foglio1").Cells(Rows.Count, Columns.Count)
If cella = "" Then
cella = Environ("computername")
ActiveWorkbook.Save
Exit Sub
End If
If cella <> Environ("COMPUTERNAME") Then
MsgBox "PC NON AUTORIZZATO ALL'ACCESSO AL FILE", vbCritical, "ACCESSO NEGATO"


Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

End If
Set cella = Nothing
End Sub