Sauvegarde sur feuille protégée

[SerGoy]

Bonjour

J'ai créé un classeur avec des feuilles dont certaines cellules sont protégées. Le fait qu'il n'y a pas de mot de passe à la protection, lorsque je clic sauvegarde celle-ci se fait. Voilà que j'ai dû installer un mot de passe pour les feuilles et maintenant à chaque fois que je clic sauvegarde il faut que je retire la protection afin de sauvegarder et par le fait même le classeur n'est plus protégé .

Est-il possible de créer une macro qui retirerait la protection, sauvegarderait le classeur et réinstallerait la protection avec le mot de passe ? Mot de passe "toto"

 

[PUARAI]

Re : Sauvegarde sur feuille protégée

Peux tu m'envoyer un fichier d'exemple sans données confidentiel

PUARAI

 

[SerGoy]

Re : Sauvegarde sur feuille protégée

Deux barre d'outils personnalisées font parties du classeur. Est-ce que les barres vont suivre le classeur ?
Bizarrement quand une autre personne du bureau ouvre le classeur les barres ne sont pas complète ou ouvre tout croche. Cela est aussi un problème que je dois résoudre.

 

[tototiti2008]

Re : Sauvegarde sur feuille protégée

Bonjour à tous,

je n'ai jamais vu d'impact entre feuille protégée et enregistrement, qu'il y ait un mot de passe ou pas...
pour les barres d'outils, tout dépend si elles sont créées par macro.

 

[SerGoy]

Re : Sauvegarde sur feuille protégée

Bon le fichier n'est pas de la CIA alors vous pouvez le télécharger à partie du lien : http://www2.cslaval.qc.ca/rmat/TableauProjets_v3.zip

Faites seulement l'ouvrir et sauvegarder. Mot de passe = toto

 

[PUARAI]

Re : Sauvegarde sur feuille protégée

Ecoute comme ton fichier est assez lourd je ne sais comment l'envoyer donc je te donnerais juste le code que j'ai changer
Dans This workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Save
End Sub
Private Sub Workbook_Open()
ActiveWindow.WindowState = xlMaximized
ActiveSheet.Protect Password:="toto", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

si ce n'est pas ce que tu voulais reéxplique moi plus en détail

Merci

A +++

 

[PUARAI]

Re : Sauvegarde sur feuille protégée

OOOUUUUPS

Escuse moi tremper sur une chose

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Activeworkbook.Save
End Sub