La protection d'une feuille possible avec du VBA ?

Olivier GUILLOT · 13 Juin 2018

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 · 13 Juin 2018

Bonjour,

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

Dans votre cas il suffit de rajouter :

VB:

Unload Me

ActiveSheet.Unprotect "password"

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

ActiveSheet.Protect "password"

Bonne journée

Olivier GUILLOT · 13 Juin 2018

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 · 13 Juin 2018

Bonsoir le fil, le forum

@Olivier GUILLOT

Olivier GUILLOT à dit:
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.

La protection d'une feuille possible avec du VBA ?

Olivier GUILLOT

XLDnaute Nouveau

Pièces jointes

Jauster

XLDnaute Occasionnel

Olivier GUILLOT

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires