Verrouiller en partie un classeur

Résolu/Fermé
manupch1 Messages postés 2 Date d'inscription jeudi 18 mai 2017 Statut Membre Dernière intervention 7 juin 2017 - 7 juin 2017 à 16:41
f894009 Messages postés 16866 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 janvier 2023 - 8 juin 2017 à 14:18
Bonjour à tous,

J'ai un classeur excel avec une macro.

C'est une évaluation des risques en entreprise, aussi tout le monde doit pouvoir le lire.

Nous avons tous accès à un disque commun

Cependant seul moi ou ma responsable pourrions le modifier

Aussi, j'aimerais le verrouiller à la lecture mais il faut que les filtres existants puissent être utilisés et que la macro qui est en fait un filtre "général" et qui crée une page de résultat puisse être aussi utilisé

Besoin d'aide

Précision EXCEL 2007

2 réponses

f894009 Messages postés 16866 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 janvier 2023 1 679
7 juin 2017 à 17:08
Bonjour,

macro qui est en fait un filtre "général" et qui crée une page de résultat puisse être aussi utilisé
Une page a chaque fois ou c'est sur la meme page?
Y a plusieurs feuilles a proteger?
0
Oui le document fait 24 pages
La macro créé une page quand on l utilisequi n est pas enregistrée
0
f894009 Messages postés 16866 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 31 janvier 2023 1 679
Modifié le 8 juin 2017 à 14:19
Bonjour,

code a mettre dans VBA ThisWorkbook. Mettez vos mot de passe. Ne pas oublier de proteger le code avec un mot de passe sinon il est possible de voir le code
Vous devriez definir une feuille pour votre filtre general et la remplir a chaque fois que vous en avez besoin plutot que d'en creer une. Mais c'est vous qui voyez

'protection feuille et classeur
Private Sub Workbook_Open()
    For x = 1 To Worksheets.Count
        Worksheets(x).Protect contents:=True, Password:="mon_mot_de_passe", userinterfaceonly:=True, AllowFiltering:=True
        ActiveWorkbook.Protect Password:="MotPass", Structure:=True, Windows:=False
    Next x
End Sub
0