verrouillage de toutes les feuilles en une fois

Version imprimable

11/07/2020, 16h25
bigounet

1 pièce(s) jointe(s)

verrouillage de toutes les feuilles en une fois
Bonjour à vous tous,
Sur ce forum, j'ai trouvé une procédure pour verrouiller/déverrouiller toutes les feuilles d'un classeur excel.
J'ai 8 feuilles et quand je ferme mon classeur, les feuilles sont automatiquement verrouillées.
https://www.developpez.net/forums/d1...es-d-classeur/

Pour verrouiller, cela fonctionne très bien mais pas l'inverse.
J'ai une erreur 1004, mot de passe non valide. Par contre, quand je déverrouille manuellement, mon mot de passe est correct.
Je suis occupé à me tirer les cheveux, sûrement pour une bêtise.
Merci pour votre aide. Je précise que je suis sous excel 2016
Code:

1 2 3 4 5 Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Protect Password:="Password" Next
Code:

1 2 3 4 5 Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Unprotect Password:="Password" Next
Sur mon print screen, les boutons 6 et 7 ne me servent que de test. Bouton 6 pour le déverrouillage et le 7, verrouillage

Pièce jointe 574839
11/07/2020, 18h26
mfoxy

Hello,

Assez bizarre, surtout que dans ton code les deux mdp sont identiques.

Essaie peut-être de variabiliser ton mdp par une variable public et aussi d'indiquer la parentalite de ta feuille (Worbooks("non du classeur"), c'est toujours mieux en cas de plusieurs wb ouverts.

Quid : à voor si le mdp bug pour toutes tes feuilles, peut-être l'une d'elle était déjà "bloquée" avec un autre mdp ?

Pour info, le fait de "protéger" une feuille Excel n'est qu'une toute petite barrière, pour éviter des modifications impromptues, qui est très facile à outre passer.

Bat,
MFoxy
11/07/2020, 19h05
Menhir
Essaye ça :
Code:

1 2 3 4 5 Dim WS As Worksheet For WS To ActiveWorkbook.Worksheets If WS.Protected Then WS.Unprotect Password:="Password" Next WS
Le problème peut aussi venir du fait que tu combines (d'après ce que tu dis) le (dé)verrouillage automatique (par macro) et manuel.
Il est donc possible que la macro cherche à déprotéger des feuilles qui le sont déjà.

Petite remarque : les deux opérations pourraient se gérer avec un seul bouton, ce qui éviterait les jeux de cache-cache avec Visible.

Citation:

Envoyé par mfoxy

Essaie peut-être de variabiliser ton mdp par une variable public

Quand on installe une serrure, on évite de laisser la clé accrochée à la porte. ;)
Gardons à l'esprit qu'il s'agit d'un mot de passe (même si utiliser VBA pour faire ça est déjà une faille de sécurité).
11/07/2020, 19h40
mfoxy

Bonjour Menhir,

Tout à fait d'accord avec toi :

Citation:

Envoyé par Menhir

Quand on installe une serrure, on évite de laisser la clé accrochée à la porte. ;)

Le fait de le mettre dans une variable public, éviterait simplement de devoir le taper en dure dans sa function protect and unprotect, et je n'ai pas dit que le mdp serait non plus en dure dans cette variable d'autre contournement plus "safe" sont envisageables.

De plus, je suppose aussi que, si le demandeur compte protéger des feuilles du classeurs, il protégera aussi son projet Vba ou le mdp sera d'une manière ou d'une autre présent.

Ne relançons pas ici le débat sur la protections d'un Workbook et Projet Vba, lol, je cherche toujours une solution inviolable et n'ai jamais trouvé.

Bonne soirée,
MFoxy
11/07/2020, 23h16
bigounet

Citation:

Envoyé par mfoxy

Oui, c'est assez bizarre et j'ai refait le contrôle sur toutes mes feuilles, le mot de passe est bien "Password".
Y a-t-il vraiment un moyen de protéger un fichier excel ?

Citation:

Envoyé par Menhir

Merci pour cette idée, je vais essayer. En fait, des collègues utilisent aussi ce fichier et pour éviter toutes modifications dans les calculs, je protège mes feuilles par un mot de passe et le code vba est aussi protégé mais avec un mot de passe différent, plus compliqué.
Le but ici, c'est de pouvoir déprotéger les feuilles quand je veux faire une modification pour améliorer le programme. Puis, quand tout est ok, je reprotège le programme et c'est pour éviter de devoir le faire sur toutes les feuilles, une par une. Ce qui est la solution la plus simple mais la plus longue.

Bonjour,

Essayez celui-ci, il fonctionne bien chez moi
le fichier
Pièce jointe 574861

la vidéo
Pièce jointe 574860

le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Unprotect Password:="Password"
    Next
    Me.CommandButton1.Visible = False
    Me.CommandButton2.Visible = True
End Sub
 
Private Sub CommandButton2_Click()
    Dim i As Integer
    For i = 1 To Sheets.Count
        Sheets(i).Protect Password:="Password"
    Next
    Me.CommandButton2.Visible = False
    Me.CommandButton1.Visible = True
End Sub

Cdlt

12/07/2020, 08h52
Menhir

Citation:

Envoyé par bigounet

Y a-t-il vraiment un moyen de protéger un fichier excel ?

Quand VBA est inclus dans la procédure ? Je peux me tromper mais j'en doute.
Si c'est faisable, ce sera certainement avec une procédure assez lourde et contraignante.

Citation:

En fait, des collègues utilisent aussi ce fichier et pour éviter toutes modifications dans les calculs, je protège mes feuilles par un mot de passe

De deux choses l'une :
Soit tu veux protéger tes feuilles des maladresses d'autrui. Dans ce cas, une modification sans mot de passe suffira parce que si quelqu'un va volontairement retirer la protection, ce n'est plus de la simple maladresse mais un acte volontaire.
Soit tu veux protéger tes feuilles de la malveillance. Dans ce cas, inclure VBA dans la boucle est une mauvaise idée car im présente des failles de sécurité.

Citation:

le code vba est aussi protégé mais avec un mot de passe différent, plus compliqué.

A ta place, à minima, j'aurais mis le code VBA de (dé)verrouillage dans un autre fichier, un XLAM par exemple, présent uniquement sur ton poste , faisant du fichier à protéger un XLSX ne contenant le mot de passe que dans la protection elle-même et nulle part ailleurs.
12/07/2020, 09h02
Philippe Tulliez

Bonjour,
Je suis d'accord avec Menhir en ce qui concerne la protection des feuilles et du VBA même si personnellement je ne protège jamais mes codes VBA.

En marge de cette discussion, je voulais juste signaler qu'au lieu d'utiliser deux boutons l'un pour protéger et l'autre pour déprotéger, j'utiliserais un ToggleButton qui agit comme un interrupteur et dont la valeur est soit True soit False et en ce qui concerne la programmation, je créerais une seule procédure avec au minimum un argument (Protect/Unprotect) et éventuellement un second argument le mot de passe
12/07/2020, 10h56
Menhir

Personnellement, je créerai un (ou deux) icones dans la barre d'outils à accès rapide (ou dans un ruban spécifique) lançant une macro d'un XLAM qui commencerait par un InputBox demandant le mot de passe.
L'avantage, c'est que ça pourrait être utilisé sur ce fichier et sur d'autres.
L'avantage de l'InputBox, c'est que le mot de passe ne serait écrit nulle part dans le code et qu'il serait possible de le modifier sans avori à toucher le code en cas de découverte.

Mais, je le répète, si c'est juste pour éviter les maladresses, l'usage d'un mot de passe dans la protection ne semble pas justifié.
12/07/2020, 11h33
bigounet

Citation:

Envoyé par Menhir

Personnellement, je créerai un (ou deux) icones dans la barre d'outils à accès rapide (ou dans un ruban spécifique) lançant une macro d'un XLAM qui commencerait par un InputBox demandant le mot de passe.
L'avantage, c'est que ça pourrait être utilisé sur ce fichier et sur d'autres.
L'avantage de l'InputBox, c'est que le mot de passe ne serait écrit nulle part dans le code et qu'il serait possible de le modifier sans avori à toucher le code en cas de découverte.

Mais, je le répète, si c'est juste pour éviter les maladresses, l'usage d'un mot de passe dans la protection ne semble pas justifié.

Merci pour toutes vos idées. Par contre, je ne connais pas du tout le XLAM.
12/07/2020, 11h44
Philippe Tulliez

Bonjour,

Citation:

Par contre, je ne connais pas du tout le XLAM

C'est ce que l'on appelle les macros complémentaires (le solveur en est un)
Le gros avantage c'est qu'il est utilisable avec tous les classeurs.
12/07/2020, 11h50
bigounet

Citation:

Envoyé par Philippe Tulliez

Bonjour,

C'est ce que l'on appelle les macros complémentaires (le solveur en est un)
Le gros avantage c'est qu'il est utilisable avec tous les classeurs.

Merci à tout le monde. Je vais faire des recherches sur les macros complémentaires. Bon dimanche.
12/07/2020, 12h31
Menhir

XLAM n'est pas un langage, c'est un format d'Excel, comme les XLSX ou les XLSM.

C'est un format qui a la particularité de ne pas avoir de feuille de calcul apparente, ce qui est pratique pour stocker des macros et que ce soit transparent pour l'utilisateur. En somme, c'est un XLSM sans feuilles apparentes et qui n'affiche pas de fenêtre Excel propre.

Personnellement, j'ai une dizaine de XLAM qui s'ouvrent automatiquement quand j'ouvre Excel, sans que rien n'apparaisse ailleurs que dans le gestionnaire de projets du VBE.
Lire ça : https://support.microsoft.com/fr-fr/...rs=fr-fr&ad=fr