Fichier protégé par une macro comment modifier le format cellule

Résolu/Fermé
Natty - 20 oct. 2014 à 15:11
NattyMA Messages postés 3 Date d'inscription lundi 20 octobre 2014 Statut Membre Dernière intervention 21 octobre 2014 - 21 oct. 2014 à 10:53
Bonjour,

J'ai créé un fichier excel. Mon objectif était de pouvoir le protéger via mot de passe tout en permettant d'ouvrir et de fermer des groupes de colonnes. Cela étant impossible avec la fonction de protection de base d'Excel, j'ai utilisé une macro (trouvé dans un forum) pour obtenir le résultat souhaité.
Ca marche très bien !

Aujourd'hui un des utilisateurs de ce fichier me demande de pouvoir modifier la couleur des cellules ... mais ma "macro protectrice" empêche cela.

Auriez vous une astuce à me demander (une ligne de commande en plus à ajouter à ma macro ??) pour garder ma protection, mon ouvrir/fermé de groupes et la coloration des cellules ??

Pour info la macro que j'ai utilisé est celle-ci :

Private Sub Workbook_Open()
With Worksheets("classeur1")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="motdepasse", UserInterfaceOnly:=True
End With
End Sub


Merci mille fois d'avance

Natty
A voir également:

3 réponses

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
20 oct. 2014 à 15:26
Bonjour


comme cela,

.Protect Contents:=True, Password:="motdepasse", UserInterfaceOnly:=True, Scenarios:=True
0
NattyMA Messages postés 3 Date d'inscription lundi 20 octobre 2014 Statut Membre Dernière intervention 21 octobre 2014
20 oct. 2014 à 15:54
... J'ai essayé mais ça ne change rien ... j'sais j'suis pô douée ... :-(
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 20/10/2014 à 16:15
Re,

alors essaye comme cela

.Protect Password:="motdepasse", DrawingObjects:=False, UserInterfaceOnly:=True, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True

et avant end sub colle cette ligne

ActiveSheet.EnableSelection = xlNoRestrictions
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
NattyMA Messages postés 3 Date d'inscription lundi 20 octobre 2014 Statut Membre Dernière intervention 21 octobre 2014
20 oct. 2014 à 22:08
Je viens de voir ta réponse ... J'essaye demain et je te dis si ça fonctionne ... Suspense ;-)

Merci et bonne soirée
0
NattyMA Messages postés 3 Date d'inscription lundi 20 octobre 2014 Statut Membre Dernière intervention 21 octobre 2014
21 oct. 2014 à 10:53
Test fait ce matin !!! ça marche !!! Merci Merci et encore Merci !!!
0