Discussion :

[nevenblouet]

Bonjour à tous,

Je déterre ce post, qui se rapproche beaucoup de ce que je désire faire.

J'ai créé un classeur sous Excel 2010 qui doit être enregistré dans un répertoire précis sur le réseau de mon entreprise et sous un nom dépendant de plusieurs variables (Date, Range, ...). J'ai donc créé un bouton pour le permettre.

De ce côté là pas de problème, c'est plutôt le fait d'empêcher les utilisateurs d'enregistrer d'une autre manière qui me cause des soucis (Disquette Enregistrer dans le ruban, Onglet Fichier, ou encore Ctrl+S).

J'ai essayé le code de Chouks que j'ai mis dans ThisWorkbook Open, tout en veillant à faire l'inverse dans BeforeClose pour éviter le déagrément qu'à recontré krlblz mais il ne marche pas.

Version d'Excel, mauvaise adaptation du code, ... Je ne sais pas vraiment quel est mon pb.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'Désactive le menu "Fichier" et la disquette dans le ruban
With Application.CommandBars("Standard")
    .Controls("Enregistrer").Enabled = True
End With
With Application.CommandBars("Worksheet Menu Bar")
    .Controls("Fichier").Enabled = True
End With
 
''Désactive le raccourci clavier Ctrl+S
'Application.OnKey "^s", ""
 
End Sub
 
 
Private Sub Workbook_Open()
 
'Désactive le menu "Fichier" et la disquette dans le ruban
With Application.CommandBars("Standard")
    .Controls("Enregistrer").Enabled = False
End With
With Application.CommandBars("Worksheet Menu Bar")
    .Controls("Fichier").Enabled = False
End With
 
''Désactive le raccourci clavier Ctrl+S
'Application.OnKey "^s", ""
 
End Sub

J'y ai mis la désactivation du Ctrl+S en commentaire, étant donné que je ne sais pas comment le réactiver.

Merci beaucoup d'avance pour votre aide

[Menhir]

Le plus simple c'est de mettre les propriété du fichier en lecture seule au niveau de l'Exploreur Windows.
Tu peux aussi gérer les droits plus finement en donnant le droit d'écriture uniquement à certains utilisateurs (toi, par exemple).

[nevenblouet]

Merci pour ta réponse,

Mais du coup je ne suis pas à l'abri d'un "Enregistrer sous", et je sais que ça devient vite le bordel les dossiers sur le réseau de ma boîte si on sécurise pas au max...

[Menhir]

Tu ne peux pas être à l'abrit d'un "Enregistrer Sous...", sauf à supprimer cette fonction dans Excel en enlevant les icones et menus qui y font appel, ce que je te déconseille fortement parce que c'est très risqué.

Personnellement, je préfère responsabiliser les utilisateurs que d'essayer de tout verrouiller partout. Parce que quelles que soient les protections que tu mettes, elles risquent d'être contournées (un des principes de Murphy).
Cette façon de voir fait un peu grincer des dents au début (de part et d'autre) mais, au final, j'ai l'impression que c'est plus efficace.

[nevenblouet]

Je suis d'accord avec toi que, sur le principe, la formation est plus efficace (et soi dit en passant plus valorisante),
Mais beaucoup d'utilisateurs utiliseront ce fichier et je sais pertinement qu'il y aura des dérives.

Après, si je rétablis les conditions d'origine en réactivant les icônes, ... d'Excel à la fermeture du classeur, il y aura toujours un risque ?

Merci pour ton temps et ta patience