Sujet Précédent Sujet Suivant

Protection cellules

Résolu/Fermé
Ruffian1915 Messages postés 10 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 13 mars 2024 - Modifié le 27 févr. 2023 à 13:56
Ruffian1915 Messages postés 10 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 13 mars 2024 - 28 févr. 2023 à 10:49

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

A voir également:

2 réponses

Réponse 1 / 2
Le Pingou Messages postés 12069 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 6 mai 2024 1 431
Modifié le 27 févr. 2023 à 15:26

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
1
Ruffian1915 Messages postés 10 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 13 mars 2024
Modifié le 28 févr. 2023 à 10:50

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.

1
Réponse 2 / 2
Ruffian1915 Messages postés 10 Date d'inscription mercredi 23 septembre 2020 Statut Membre Dernière intervention 13 mars 2024
28 févr. 2023 à 10:40

Bonjour, il n'y a pas une erreur ' déprotéger mettre sh. Protect et le contraire à 'protéger 

cordialement
0

Discussions similaires

Rav antivirus
cavalier33 -
cavalier33 -

2 réponses
Anti-virus qui s'installe tout seul...
Lo_fadoli -
Beuq -

7 réponses
Rav antivirus trouve un virus mais...
sen -
balltrap34 -

11 réponses
Rav antivirus
la gribouille -
claire -

15 réponses
comment contourner le drm ?
flyblue -
flyblue -

2 réponses