protection de cellules malgrés macros (Excel 2002) Résolu/Fermé

Question

Bonjour à tous, 

Je recherche une solution pour protéger des cellules en ecriture sur excel 2002, pour ça aucun problème mais j'ai deux macros qui ne peuvent se lancer lorsque la feuille est protégée => un message me demande d'oter la protection de la feuille !!!

Les macros sont des masquages de lignes sous conditions et j'ai bien penser à cocher : "Autoriser tous les utilisateurs de cette feuille à : 
"utiliser filtres automatiques " et "Format de lignes" dans la protection de feuille.

L'idéal serait d'y parvenir sans créer une nouvelle macro mais je ne suis pas certaine que ce soit possible...

D'avance merci.

PHILOU10120 · Accepted Answer

Bonjour

Si ce n'est qu'une protection pour ne pas écraser des formules sans mot de passe

ajouter cette ligne au début de la macro pour oter la protection de la feuille

ActiveSheet.Unprotect

Et celle-ci en fin de macro pour reprotéger la feuille

 ActiveSheet.Protect DrawingObjects:=False, Contents:=True, _
        Scenarios:=True

pilas31 · Answer

Bonjour,

Peut être en encadrant le code de la macro en otant la protection et en la remettant à la fin comme ceci :

ActiveSheet.Unprotect Password:="XXXXX"
.....
.....
ActiveSheet.Protect Password:="XXXXX" 
 

A+

PLAYA2 · Answer

Un grand merci PHILOU10120, ça fonctionne nickel !!!

Merci également à pilas31 d'avoir pris le temps de me répondre.

Bonne journée à tous.

PHILOU10120 · Answer

Bonjour 

Macro avec mot de passe 

mettre ceci dans le module VBA 

Public varMotDePasse As String 
Public varNumTentatives As Byte 

Sub ControleMotDePasse(MotDePasse As String, NumTentatives As Byte) 
varMotDePasse = MotDePasse 
varNumTentatives = NumTentatives 
fmMotDePasse.Show 
End Sub 
Sub TestControleMotDePasse() 
Dim maVar As String 
Call ControleMotDePasse("XXXXXX", 3) 
maVar = Application.UserName 
MsgBox "Mot de passe correct." & vbCr & "Poursuite de l'exécution.", vbOKOnly + vbInformation 
End Sub 

Début de la macro avec le contrôle par mot de passe 

Sub glissement_hebdo() 
' 
' glissement_hebdo Macro 
' Macro enregistrée le 17/01/2013 par Philou10120 
' 

Sheets("LUNDI").Select 
Call ControleMotDePasse("XXXXXX", 3) 
If MsgBox("Attention avez vous déjà copié les données ? celles-ci vont être écrasées !!!", vbYesNo, "") = vbNo Then 
    Exit Sub 
    End If  
et la suite de votre macro 


Je vous joins un extrait de fichier pour vous aider à récupérer la feuille fmMotDePasse avec la boite de dialogue à insérer dans les modules 

https://www.cjoint.com/?3ArqjlnJV7i

Protection de cellules malgrés macros (Excel 2002)

4 réponses