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

Résolu
Natty -  
NattyMA Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 131
 
Bonjour


comme cela,

.Protect Contents:=True, Password:="motdepasse", UserInterfaceOnly:=True, Scenarios:=True
0
Réponse 2 / 3
NattyMA Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
... J'ai essayé mais ça ne change rien ... j'sais j'suis pô douée ... :-(
0
Réponse 3 / 3
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 131
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
Test fait ce matin !!! ça marche !!! Merci Merci et encore Merci !!!
0