Discussion :

[arsay200]

Dans cette discussion.
Voici une méthode de "bourrin" :

Elle empêche l'utilisateur d'accèder au menu fichier, à l'icone disquette et d'utiliser le raccourci clavier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub empecheEnr()
 
    With Application.CommandBars("Standard")
        .Controls("Enre&gistrer").Enabled = False
    End With
    With Application.CommandBars("Worksheet Menu Bar")
        .Controls("Fichier").Enabled = False
    End With
 
    'desactive le raccourci clavier Ctrl+S
    Application.OnKey "^s", ""
 
End Sub

bonjour

J'ai essayé cette méthode qui fonctionne mais qui enregistre quand même quand on quitte le fichier car on a la boite de dialogue qui nous demande si on veut enregistrer.
je l'ai modifié pour avoir seulement la fonction "enregistrer" qui est bloqué et pas "enregistrer sous"
J'ai un pb car cette macro bloque tous les fichiers excel alors que je voulais seulement que cela bloque un seul fichier.
De plus j'ai aussi le menu insertion qui est grisé donc je ne peux pas y acceder.

merci de votre aide

[ucfoutu]

Bonjour,

La méthode qu'utilise cwain ou celle d'un travail en miroir me paraissent les mieux adaptées et les plus simples à mettre en oeuvre.

[Didier Gonard]

bonjour,

Soft et ne concernant que le classeur voulu, à mettre dans le ThisWorkbook :

Code :

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

1
2
3
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True
End Sub

Pour plus de confort, tu pourras aussi détourner le message de fermeture du classeur, que l'utilisateur ne tourne pas bourrique (il n'a plus toutes les options ), ou mieux rajouter aux endroits voulus un msgbox clarifiant la situation ce qui est plus "correct".

Attention, si emploi, à Onkey, rétablir les choses avant de quitter surtout !

cordialement,

Didier

[ucfoutu]

Bonjour,

et si tu utilisais la méthode Close en t'intéressant à la valeur qui peut être donnée à un argument (par exemple l'argument SaveChanges) ?

Non ? Pas bon ?

[arsay200]

bonsoir
merci tous pour votre aide, comme je débute c'est encore flou pour moi,je vais essayer d'abord de me perfectionner.
car ce code dans thisworbook ne passe pas (message d'erreur):

Code :

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

1
2
3
4
Private Sub Workbook_BeforeClose()
    ' ferme le classeur modifié sans l'enregistrer et sans qu'un message vous propose de le faire.
    ThisWorkbook.Saved = True
End Sub

[ucfoutu]

Mais ce n'est pas dans cet évènement, qu'il te faut donner cette instruction !

Lis ici, alors :

http://support.microsoft.com/kb/129153

et tu y trouveras également ce dont je t'ai parlé plus haut (autre méthode avec SaveChanges)