Protéger/déprotéger fichier excel en VBA

Bonjour à tous,

je suis en train de rechercher comment faire pour protéger et déprotéger un classeur excel via une commande VBA.

je vous explique ma problématique

je pars d'un classeur Excel A sur lequel j'ai un bouton qui fait la liaison avec un classeur Excel B (nommé suivi.xlsm)
sur le classeur Excel B afin qu'il ne soit pas touché/modifié j'ai un mot de passe dessus à l'ouverture du classeur

ce que j'aimerais c'est lors de l'appui sur le bouton "sauvegarder" dans mon fichier A ca puisse enlever la protection de mon classeur B et que ca fasse tourner mon code et qu'ensuite à la fin de celui-ci ca remette la protection

j'ai tenté ceci mais ca ne fonctionne pas:

Code:

---

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

Sub Sauvegarder()   ActiveWorkbook.Protect userinterfaceonly:=True, Password:="test"   ' Déclaration variable Dim nbdx As Integer   'A - Sauvegarde après avoir figé le n° du bordereau   Sheets("DATA").Select Sheets("Module_SOPRO").Select Range("D2").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ChDir Range("D12").Value ActiveWorkbook.SaveAs Filename:= _ Range("D15").Value _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False     Application.CutCopyMode = False Windows("Suivi.xlsm").Close SaveChanges:=True   Application.DisplayAlerts = False Application.Quit   End Sub

---

Merci de votre aide
Blado_sap

Bonjour,

Il faudrait voir de quelle protection il s'agit.
Si c'est la feuille qui est protégée, tu peux utiliser Workbooks("Suivi.xlsm").Sheets("LaFeuille").UnProtect "mot de passe si nécessaire"
Si c'est le classeur, tu peux enlever la protection lors du Workbooks.Open

Il y a de nombreuses façon de protéger un fichier Excel : Protection du fichier par droits liés au login, protection du classeur contre la lecture ou l'écriture, protection des cellules, etc.

Pour (dé)protéger une feuille de calcul au niveau cellule, il faut utiliser la méthode Protect / Unprotect de Worksheet
Une méthode de même nom (mais à la syntaxe et aux effets différents) peut être appliquée à Workbook pour protéger tout le classeur.

Pour ce qui est de la protection du classeur contre la modification d'une manière générale, ça se fait dans las paramètres de la méthode SaveAs de Workbook et Open de Workbooks (attention au "s" final de ce Workbooks).

Bonjour à tous,

c'est le classeur complet qui est protégé et non les feuilles

lorsque vous etes sous Excel c'est l'option "chiffrer avec mot de passe" qui demande un mot de passe à l'ouverture d'excel

avez vous une idée?

D'avance merci

et si oui en fonction de mon code svp car je m'en sors pas

Blado_sap

Citation:

---

Envoyé par Blado_sap

c'est le classeur complet qui est protégé et non les feuilles

---

Dans ce cas, tu ne peut déverouiller ton classeur qu'à l'ouverture : voir les options de la méthode Open de l'objet Workbooks.
Pour rétablir la protection, voir les options de la méthode SaveAs de l'objet Workbook.
(attention, remarque bien que dans le premier cas, Workbooks est avec un "s" final et que dans le second cas, il n'y en a pas).

bonjour,

j'ai testé ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Sauvegarder()   Workbooks.Open Filename:="C:\test.xlsm", Password:="test"   ' Sauvegarder Macro ' 'A - Je sauvegarde après avoir figé le n° du bordereau   Sheets("DATA").Select Sheets("Module_SOPRO").Select Range("D2").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ChDir Range("D12").Value ActiveWorkbook.SaveAs Filename:= _ Range("D15").Value _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---

en début de mon fichier mais ça ne fonctionne pas

je me demande si le fait lorsque j'accède a ce morceau de code il n'est pas déjà trop tard et que la macro essaye déjà ouvrir excel avant en me demandant le mot de passe

une idee?
Blado_sap

Ça dépend comment est protégé le fichier.
Il y a Password et WriteResPassword où tu peux mettre un mot de passe.

Citation:

---

Envoyé par Blado_sap

ça ne fonctionne pas

---

Extrèmement précis comme descriptif de problème... :roll:

Citation:

---

Code:

---

1 2 3 4 5 6 7 8

Sheets("DATA").Select Sheets("Module_SOPRO").Select Range("D2").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False ChDir Range("D12").Value ActiveWorkbook.SaveAs Filename:= Range("D15").Value, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---

---

Je ne comprends pas pourquoi tu mets deux Select d'onglet à la suite. Le premier n'a aucun intérêt puisqu'il est annulé par le suivant.
Sans compter sur sur un Worksheet, on met plutôt un Activate qu'un Select si l'on veut que l'onglet devient celui désigné par défaut dans les instructions qui suivent.

A ta place, je supprimerai aussi le Select sur le Range et je remplacerai les Selection par Range("D2").

Pour le PasteSpecial, inutile de mettre les options implicites. Tu pourrais te contenter de :

Code:

---

Range("D2").PasteSpecial Paste:=xlPasteValues

---

C'est plus facilement lisible.

Bonjour,

merci pour ces précieux conseils

par contre ca ne resoud toujours pas mon probleme de mot de passe

en fait en mettant la ligne de code workbooks.open...
et bien le système me demande toujours le mot de passe, il ne tient pas compte de l'instruction ou je passe le mot de passe dedans

est ce plus clair?

Blado_sap

Quand tu ouvres ton fichier manuellement, qu'est-ce que tu as comme message ?

Ouverture en lecture seule qui permet de l'ouvrir même sans mot de passe ?
Pièce jointe 170085

Ou protégé que tu ne peux ouvrir ?
Pièce jointe 170086

Si aucun de ceux-ci, comment protèges-tu le fichier ?
en enregistrant sous... / Outils / Options générales
ou directement dans le menu Excel ?

c'est le deuxième message que j'ai "protégé que je ne peux ouvrir"

Blado_sap

Je vais sans doute poser une question bête mais est-ce que tu es sûr de mettre le bon mot de passe dans ta commande Open ?

Citation:

---

Envoyé par Menhir

Je vais sans doute poser une question bête mais est-ce que tu es sûr de mettre le bon mot de passe dans ta commande Open ?

---

Effectivement... et attention aussi à la casse...

bonjour,

oui je suis certain de mette le bon mot de passe

en même temps : test
comme mot de passe c'est pas très compliqué ;)

blado_sap

Et si tu reprenais ton code en mettant bien le nom du classeur visé en plus du nom de la feuille dans les lignes d'instructions ?

c'est à dire??

Blado_sap

En fait, dans la même sub, tu utilises
ActiveWorkbook et Windows("Suivi.xlsm")

Au cas où...
ActiveWorkbook est le classeur affiché à l'écran
ThisWorkbook est celui qui contient la macro qui roule.

Comme je ne connais pas tes fichiers, je ne suis pas certain où on se trouve...
Si tu remettais le code où tu en es en disant sur quelle ligne ça plante ?

Le fichier que j'essaie d'ouvrir s'appelle test.xlsm
Ce fichier est protégé à l'ouverture par un mot de passe : test

dans ce fichier j'ai ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Sauvegarder()   Workbooks.Open Filename:="C:\test.xlsm", Password:="test"   ' Sauvegarder Macro ' 'A - Je sauvegarde après avoir figé le n° du bordereau   Sheets("Module_SOPRO").Select Range("D2").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ChDir Range("D12").Value ActiveWorkbook.SaveAs Filename:= _ Range("D15").Value _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

---

Le bouton Sauvegarder se trouve dans un autre fichier excel sur lequel je n'ai pas la main (il y a juste ce bouton qui me permet d'accéder au fichier test.xlsm)

Blado_sap

Qu'entends-tu par

Citation:

---

Le bouton Sauvegarder se trouve dans un autre fichier excel sur lequel je n'ai pas la main

---

Donc la macro plante dès la première ligne qui cherche à ouvrir test.xlsm ?
Si c'est le cas, est-ce qu'il y a quelque chose dans Workbook_Open() de ce fichier qui l'empêcherait de s'ouvrir ?

La macro ne plante pas c'est juste que le code pour ouverture avec le mot de passe est comme ignore car excel me demande tjr le mot de passe