empecher d enregistre le document

bonjour,
j ai un document qui est enregistré par un bouton sur une feuille spéciale.
je voudrai que seul ce bouton puisse enregistrer le document et pas fichier enregistrer ou le bouton.

j ai pensé à supprimer les 2 boutons mais le fichier est utilisé sur differentes machines et la config est differente. donc ca marche pas.

si quelqu'un a une idée???

m@th85

Tout dépend ce que contient ta form : quels type de contrôle, quel type de projet est-ce ? MDI ou Single Form.

Chris...
Web : Firstruner - eMail : Support

c'est un classeur du excel

m@th85

Bhà le seul truc c'est de virer la barre d'icone er de menu ainsi que le racourcis clavier. pour les 2 premier cela doit être faisable avec la base de registre mais le 3ème beaucoup moins.

Chris...
Web : Firstruner - eMail : Support

oé mais c'est juste pour un document excel que je veu faire ca.

en plus je ne usis pas admin sur les pc. j'ai pas acces ) la base de registres

m@th85

Alors impossible, sauf si tu essaie de modifier la base avec du code VB, mais ne sait plus je vais te retrouver cela.

Chris...
Web : Firstruner - eMail : Support

Salut

Si c'est possible,
Tu peux tout à fait empêcher l'enreg d'un classeur par le menu fichier 'enregitrer' et 'enregistrer sous..' (et par les icones de la barre d'outils).
Tu peux aussi compléter par empêcher les messages quand on quitte excel sans sauvegarder.

Il suffit de zapper la sauvegarde manuelle et d'autre part de faire croire à Excel que le classeur est déjà sauvegardé. Ainsi, la sauvegarde ne se fera que par ta macro attachée à ton bouton.
Pour ça, (en excel 97 mais pour les autres versions c'est sensiblement pareil) tu fais soit Alt + F11 soit menu Outils/Macros/Visual Basic Editor et dans la liste de gauche tu double-click sur ThisWorkbook. Dans la fenêtre de droite, tu colles ça :

Pour empêcher les messages du style voulez-vous sauvegarder .... quand on quitte :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Saved = True
End Sub

Pour empêcher les sauvegardes par enregistrer et enregistrer sous :

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

Le seul truc, et de taille, que je n'ai pas encore trouvé c'est que si tu mets ça dans tes macros, toi-même tu ne pourras pas enregistrer tes macros.


Cordialement, CanisLupus