授予用户在文件夹中添加文件的权限，但不授予删除权限

Question

我用的是windows10。

在工作中，我们都连接在同一个网络上。 我在桌面上创建了一个文件夹，并添加了我的一位同事也可以访问该文件夹。 我希望他能够添加文件并查看它们，但不能删除任何文件。

他正在使用 excel 文件，当他运行特定宏时，它将工作表提取到 pdf 并将其发送到所述文件夹。

一切正常，但即使我取消选中“删除子文件夹和文件”或“抑制”，他仍然可以删除文件。

如果我取消选中 BOTH，他将无法删除该文件，但没有人能够打开该文件，因为它已损坏。

这是我正在使用的宏：

Sub Macro1()

   Sheets("Grille").Activate
   ActiveSheet.UsedRange.Select


   ThisWorkbook.Sheets("Grille").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      "\\mtr.intra\367$\profils\R06C286A\_RD\morv02\Desktop\Heures\Test\FeuilleDeTemps_" & "TEST" & Format(Now(), "DD-MMM-YYYY") & ".pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      False
End Sub