Protection cellules

Résolu

Ruffian1915 Messages postés 10 Date d'inscription Statut Membre Dernière intervention -
Ruffian1915 Messages postés 10 Date d'inscription Statut Membre Dernière intervention - 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:

Protection cellules
K9 web protection - Télécharger - Contrôle parental
Formule excel pour additionner plusieurs cellules - Guide
Protection cellule excel - Guide
Concatener deux cellules excel - Guide
Sentinel protection installer - Télécharger - Antivirus & Antimalwares

2 réponses

Réponse 1 / 2

Le Pingou Messages postés 12249 Date d'inscription Statut Contributeur Dernière intervention 1 458

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

Ruffian1915 Messages postés 10 Date d'inscription Statut Membre Dernière intervention

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.

Réponse 2 / 2

Ruffian1915 Messages postés 10 Date d'inscription Statut Membre Dernière intervention

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

Protection cellules

2 réponses

Votre réponse

Discussions similaires