Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 interdire la supression d'un classeur

Anne13

XLDnaute Nouveau
Bonjour à tous,
j'ai créé un ficher avec macro pour gérer un stock de produits pour mes collègues.
Notre service qualité me demande de m'assurer que le fichier ne peut être supprimé. ( même si des points de restaurations sont possible)
Pour celà le service informatique a bloqué les droits de supression sur le répertoire windows contenant notre fichier.
Mais du coup je ne peux plus l'enregistrer après modification : lorsque le fichier est ouvert, un fichier temporaire est créé dans ce répertoire, puis supprimé à l'enregistrement, comme on n'a plus les droits de suppression ça bloque ...
Du coup, est il possible de forcer une autre destination pour l'écriture de ces fichiers temporaires ? Et sinon, y a t'il un autre moyen de protéger un fichier de la suppression ? ( je précise que le contenu du fichier est protégé, mais on peut le supprimer dans l'explorateur windows ...)
Merci de votre aide,
bonne journée
Anne
 
Solution
C
Bonjour Anne13
Merci Patrick

VB:
' Avant fermeture du classeur
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Dim sNomFic As String, sPathDest As String
  ' Chemin d'accès au dossier protégé
  sPathDest = "\\NOMSERVEUR\Dossier\sous-dossier\"
  ' Nom du fichier à enregistrer
  sNomFic = Format(Now(), "yyyymmdd_hhmmss") & " " & ThisWorkbook.Name
  ' Sauvegarder le classeur original
  ThisWorkbook.Save
  ' Créer la backup
  ThisWorkbook.SaveCopyAs sPathDest & sNomFic
End Sub

@+

Anne13

XLDnaute Nouveau
Merci beaucoup, effectivement ça permettra de fair le tri
oups edit ... je n'aurai pas les droits de suppression dans le dit répertoire, ce qui est le problème du début... mais je garde le code, il me servira probablement !!
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…