Como conceder nivel de accesos a un archivo

RLunar 

In advance, with your permission, I recommend "setting" the file yourself somewhere in the directory tree and only providing colleagues / employees with a link to the file (e.g. on the desktop). It's just an idea, if you can't please ignore it.

Here is a VBA example where moving a file is prevented.

Private Sub Workbook_Open()

Const pfadname = "D:\hier.xls"  ‘Insert your own pathname
Dim oldpfad As String   ‘pfad is path
oldpfad = UCase(ThisWorkbook.FullName)

If oldpfad <> UCase(pfadname) Then
    If Dir(pfadname) = "" Then
        'Original file does not exist, then save it here
        ThisWorkbook.SaveAs pfadname
         'Delete the moved file
        Kill oldpfad
        MsgBox " File has been moved to its old location."
    Else
        'Original file exists, then delete this file
        With ThisWorkbook
            .Saved = True
            .ChangeFileAccess xlReadOnly
            .IsAddin = True  'hide
        End With
        Kill oldpfad
        MsgBox "Please use the file in the original path!"
        If Workbooks.Count > 1 Then
            ThisWorkbook.Close False
        Else
            ThisWorkbook.Saved = True
            Application.Quit
        End If
    End If
End If

End Sub

Delete file:

At the same time, the access rights can also be set in the server. That you set for each individual user or user group so that they cannot be deleted. Please, ask your system administrator.

Thank you for your time to read my post. At the same time, I would like to emphasize that this is only a suggestion and may not suit you as a solution.

I would still be very happy to hear from you whether it has helped you.

Thank you for your understanding and patience

Nikolino

I know I don't know anything (Socrates)