La protection d'une feuille possible avec du VBA ?

[Olivier GUILLOT]

Bonjour,

J'ai récupéré une macro permettant de protéger l'accès à une feuille par un mot de passe.

Ayant développé une feuille dont je ne souhaite pas que l'utilisateur puisse modifier les formules, j'ai protégé la feuille.

Mais alors, la macro ne fonctionne plus et cela provient de la protection de la feuille.

Ayant aucune connaissance en VBA, quelqu'un pourrait m'apporter ses lumière à ce sujet.

Dans le fichier ci joint, le mot de passe correspond au nom de la feuille + x (MB x)

Dans le fichier :
- la feuille MB est protégée : la macro rencontre un bug sur la fonction row....
- les feuilles JF et DT ne sont pas protégées : la macro fonctionne correctement

MErci pour votre aide

 

[Jauster]

Bonjour,

Il suffit de unprotect la feuille avant de l'éditer avec votre macro.

Dans votre cas il suffit de rajouter :

Unload Me

ActiveSheet.Unprotect "password"

Rows("1:" & Rows.Count).EntireRow.Hidden = False

ActiveSheet.Protect "password"

Bonne journée

 

[Olivier GUILLOT]

Merci Jauster de cette réponse si rapide.

Cette fois ci, le bug porte sur la ligne suivante ;

DerLig = Sheets(Feuille_quittée).Cells.SpecialCells(xlCellTypeLastCell).Row

j'ai modifié le mdp en "x"

Merci de ton aide

 

[Staple1600]

Bonsoir le fil, le forum

@Olivier GUILLOT

Bonjour,
Ayant aucune connaissance en VBA, quelqu'un pourrait m'apporter ses lumière à ce sujet.

Voici une lumière sur un point à ne pas oublier.
La protection offerte par Excel est illusoire et facilement contournable en moins de 15 secondes.
(17 secondes les jours de pluie)

NB: Les moyens de faire "sauter les verrous" sont légion sur le World Wide Web.
Il suffit d'utiliser n'importe quel moteur de recherche avec les mots-clés idoines.