@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)
