Range protect allowformating Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
K
Keran Latos
Membre habitué
Membre habitué
Messages : 97
Inscrit le : 11 novembre 2017
Version d'Excel : 2016

Message par Keran Latos » 22 février 2020, 14:05

Bonjour j'aimerais pouvoir modifier le format dans une feuille protejer mais sur un range defini j'ai essayer un truc mais sa change rien ^^'
Sub Selection()
    Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
WS.Unprotect PW
WS.Range("B9:AJ65").Select
.Selection.Locked = False
WS.Protect PW
Next
End Sub
Je suis prenneur de conseil merci :)
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 6'036
Appréciations reçues : 352
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 22 février 2020, 14:47

Bonjour,

à tester,
WS.Protect Password:=PW, AllowFormattingCells:=True
Prenons soins de nous et de notre vaisseau spatial, nous n’en n’avons qu’un ...notre planète terre
isabelle
Avatar du membre
Patrice33740
Membre dévoué
Membre dévoué
Messages : 662
Appréciations reçues : 60
Inscrit le : 27 juillet 2014
Version d'Excel : FR, 2007, 2003, 2016
Version de Calc : LO 6.3.5 fr

Message par Patrice33740 » 22 février 2020, 14:55

Keran Latos a écrit :
22 février 2020, 14:05
Bonjour j'aimerais pouvoir modifier le format dans une feuille protejer mais sur un range defini j'ai essayer un truc mais sa change rien ^^'
Sub Selection()
    Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
WS.Unprotect PW
WS.Range("B9:AJ65").Select
.Selection.Locked = False
WS.Protect PW
Next
End Sub
Je suis prenneur de conseil merci :)
Alors un conseil : évites les Select inutiles !
Sub Selection()
    Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
WS.Unprotect PW
WS.Range("B9:AJ65").Locked = False
WS.Protect PW
Next
End Sub
Ceci dit, il n'est pas possible de limiter l'autorisation de modification du format à une plage de cellules, soit c'est toute la feuille (voir la réponse de I20100) soit c'est rien.
Cordialement
Patrice

Personne ne peut détenir le savoir, c'est pour ça qu'on le partage.
K
Keran Latos
Membre habitué
Membre habitué
Messages : 97
Inscrit le : 11 novembre 2017
Version d'Excel : 2016

Message par Keran Latos » 22 février 2020, 14:57

Merci a vous deux j'ai finalement trouver grace a vous .
Sub Selection()
Dim WS As Worksheet
For Each WS In Sheets(Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre"))
    WS.Unprotect PW
    WS.Range("B9:AJ65").Locked = False
    WS.Range("B5:AF5").Locked = False
    WS.Protect PW, DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
    
Next
End Sub
Cordialement Latos
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message