Protection cellules
RésoluRuffian1915 Messages postés 10 Statut Membre -
Bonjour,
J'ai ce programme et je voudrai ajouter quelques lignes pour enlever la protection de certaines cellules et la remettre quand le tri est fait.
Merci de votre aide. Cordialement
Private Sub Workbook_SheetDeactivate(ByVal sh As Object)
If sh.Name Like "##" Then
With sh
.Range("C3:O18").Sort key1:=.Range("D3"), order1:=xlAscending, Key2:=.Range("E3"), order2:=xlAscending, Header:=xlNo
.Range("C19:O22").Sort key1:=.Range("D19"), order1:=xlAscending, Key2:=.Range("E19"), order2:=xlAscending, Header:=xlNo
.Range("C23:O42").Sort key1:=.Range("D23"), order1:=xlAscending, Key2:=.Range("E23"), order2:=xlAscending, Header:=xlNo
.Range("Q15:W39").Sort key1:=.Range("Q15"), order1:=xlAscending, Key2:=.Range("R15"), order2:=xlAscending, Header:=xlNo
End With
End If
End Sub
- Protection cellules
- Protection cellule excel - Guide
- K9 web protection - Télécharger - Contrôle parental
- Somme de plusieurs cellules excel - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
- Pourquoi je ne peux pas fusionner des cellules dans excel - Forum Bureautique
2 réponses
Bonjour,
Ce programme ne fonctionne pas chez moi donne une erreur d'exécution 424 ....
Que faire !!
Je comprends que certaines cellules sont protégées, dans ce cas vous déprotégez la feuille et ensuite la reprotègerez :
'déprotéger:
sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'protéger:
sh.Unprotect
Bonjour,
J'ai installé vos lignes et cela fonctionne très bien, à part que j'ai inversé "déprotéger et protéger" .
Je vous remercie.
Cordialement.