Private Sub Worksheet_Deactivate()
Application.EnableEvents = False
ActiveSheet.Unprotect
With Range("A5:AY50")
.Sort Key1:=Range("AY5"), _
Order1:=xlAscending, _
Key2:=Range("AX5"), _
Order2:=xlDescending, _
Header:=xlYes
End With
ActiveSheet.Protect
Application.EnableEvents = True
End Sub
je voudrais proteger ma feuille lorsque je la desactive et la
reproteger quand je l'active
sa bug au niveau du .sort
pour l'activation de la feuille j'ai ca mais la protection ne marche
pas
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
'Application.EnableEvents = False
Columns("B:B").EntireColumn.AutoFit
With Range("A5:AY50")
.Sort Key1:=Range("A5"), _
Order1:=xlAscending, _
Header:=xlYes
End With
'Application.EnableEvents = True
ActiveSheet.Protect
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonsoir. Remplace "ActiveSheet" par Sheets("NomDeLaFeuille") Daniel
bonsoir
ca bug dans ma macro suivante
Private Sub Worksheet_Deactivate() Application.EnableEvents = False ActiveSheet.Unprotect
With Range("A5:AY50") .Sort Key1:=Range("AY5"), _ Order1:=xlAscending, _ Key2:=Range("AX5"), _ Order2:=xlDescending, _ Header:=xlYes End With ActiveSheet.Protect Application.EnableEvents = True
End Sub
je voudrais proteger ma feuille lorsque je la desactive et la reproteger quand je l'active
sa bug au niveau du .sort
pour l'activation de la feuille j'ai ca mais la protection ne marche pas
Private Sub Worksheet_Activate() ActiveSheet.Unprotect 'Application.EnableEvents = False
Columns("B:B").EntireColumn.AutoFit With Range("A5:AY50") .Sort Key1:=Range("A5"), _ Order1:=xlAscending, _ Header:=xlYes End With 'Application.EnableEvents = True ActiveSheet.Protect
merci de votre aide car la je nage
Bonsoir.
Remplace "ActiveSheet" par Sheets("NomDeLaFeuille")
Daniel
bonsoir
ca bug dans ma macro suivante
Private Sub Worksheet_Deactivate()
Application.EnableEvents = False
ActiveSheet.Unprotect
With Range("A5:AY50")
.Sort Key1:=Range("AY5"), _
Order1:=xlAscending, _
Key2:=Range("AX5"), _
Order2:=xlDescending, _
Header:=xlYes
End With
ActiveSheet.Protect
Application.EnableEvents = True
End Sub
je voudrais proteger ma feuille lorsque je la desactive et la
reproteger quand je l'active
sa bug au niveau du .sort
pour l'activation de la feuille j'ai ca mais la protection ne marche
pas
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
'Application.EnableEvents = False
Columns("B:B").EntireColumn.AutoFit
With Range("A5:AY50")
.Sort Key1:=Range("A5"), _
Order1:=xlAscending, _
Header:=xlYes
End With
'Application.EnableEvents = True
ActiveSheet.Protect
Bonsoir. Remplace "ActiveSheet" par Sheets("NomDeLaFeuille") Daniel
bonsoir
ca bug dans ma macro suivante
Private Sub Worksheet_Deactivate() Application.EnableEvents = False ActiveSheet.Unprotect
With Range("A5:AY50") .Sort Key1:=Range("AY5"), _ Order1:=xlAscending, _ Key2:=Range("AX5"), _ Order2:=xlDescending, _ Header:=xlYes End With ActiveSheet.Protect Application.EnableEvents = True
End Sub
je voudrais proteger ma feuille lorsque je la desactive et la reproteger quand je l'active
sa bug au niveau du .sort
pour l'activation de la feuille j'ai ca mais la protection ne marche pas
Private Sub Worksheet_Activate() ActiveSheet.Unprotect 'Application.EnableEvents = False
Columns("B:B").EntireColumn.AutoFit With Range("A5:AY50") .Sort Key1:=Range("A5"), _ Order1:=xlAscending, _ Header:=xlYes End With 'Application.EnableEvents = True ActiveSheet.Protect
merci de votre aide car la je nage
michdenis
Bonjour,
Quand tu mets du code dans un module feuille, au lieu d'utiliser "ActiveSheet" ou worksheets("NomFeuille") Utilise tout simplement Me qui désigne la feuille dans lequel le code est situé.
'------------------------------------- Private Sub Worksheet_Deactivate()
Application.EnableEvents = False Me.Unprotect
With Range("A5:AY50") .Sort Key1:=Range("AY5"), _ Order1:=xlAscending, _ Key2:=Range("AX5"), _ Order2:=xlDescending, _ Header:=xlYes End With Me.Protect Application.EnableEvents = True
End Sub '-------------------------------------
"magic-dd" a écrit dans le message de groupe de discussion :
bonsoir
ca bug dans ma macro suivante
Private Sub Worksheet_Deactivate() Application.EnableEvents = False ActiveSheet.Unprotect
With Range("A5:AY50") .Sort Key1:=Range("AY5"), _ Order1:=xlAscending, _ Key2:=Range("AX5"), _ Order2:=xlDescending, _ Header:=xlYes End With ActiveSheet.Protect Application.EnableEvents = True
End Sub
je voudrais proteger ma feuille lorsque je la desactive et la reproteger quand je l'active
sa bug au niveau du .sort
pour l'activation de la feuille j'ai ca mais la protection ne marche pas
Private Sub Worksheet_Activate() ActiveSheet.Unprotect 'Application.EnableEvents = False
Columns("B:B").EntireColumn.AutoFit With Range("A5:AY50") .Sort Key1:=Range("A5"), _ Order1:=xlAscending, _ Header:=xlYes End With 'Application.EnableEvents = True ActiveSheet.Protect
merci de votre aide car la je nage
Bonjour,
Quand tu mets du code dans un module feuille,
au lieu d'utiliser "ActiveSheet" ou worksheets("NomFeuille")
Utilise tout simplement Me qui désigne la feuille dans lequel
le code est situé.
'-------------------------------------
Private Sub Worksheet_Deactivate()
Application.EnableEvents = False
Me.Unprotect
With Range("A5:AY50")
.Sort Key1:=Range("AY5"), _
Order1:=xlAscending, _
Key2:=Range("AX5"), _
Order2:=xlDescending, _
Header:=xlYes
End With
Me.Protect
Application.EnableEvents = True
End Sub
'-------------------------------------
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de groupe de discussion :
f7f194db-b9f4-44de-a791-248c922ef007@19g2000yqu.googlegroups.com...
bonsoir
ca bug dans ma macro suivante
Private Sub Worksheet_Deactivate()
Application.EnableEvents = False
ActiveSheet.Unprotect
With Range("A5:AY50")
.Sort Key1:=Range("AY5"), _
Order1:=xlAscending, _
Key2:=Range("AX5"), _
Order2:=xlDescending, _
Header:=xlYes
End With
ActiveSheet.Protect
Application.EnableEvents = True
End Sub
je voudrais proteger ma feuille lorsque je la desactive et la
reproteger quand je l'active
sa bug au niveau du .sort
pour l'activation de la feuille j'ai ca mais la protection ne marche
pas
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect
'Application.EnableEvents = False
Columns("B:B").EntireColumn.AutoFit
With Range("A5:AY50")
.Sort Key1:=Range("A5"), _
Order1:=xlAscending, _
Header:=xlYes
End With
'Application.EnableEvents = True
ActiveSheet.Protect
Quand tu mets du code dans un module feuille, au lieu d'utiliser "ActiveSheet" ou worksheets("NomFeuille") Utilise tout simplement Me qui désigne la feuille dans lequel le code est situé.
'------------------------------------- Private Sub Worksheet_Deactivate()
Application.EnableEvents = False Me.Unprotect
With Range("A5:AY50") .Sort Key1:=Range("AY5"), _ Order1:=xlAscending, _ Key2:=Range("AX5"), _ Order2:=xlDescending, _ Header:=xlYes End With Me.Protect Application.EnableEvents = True
End Sub '-------------------------------------
"magic-dd" a écrit dans le message de groupe de discussion :
bonsoir
ca bug dans ma macro suivante
Private Sub Worksheet_Deactivate() Application.EnableEvents = False ActiveSheet.Unprotect
With Range("A5:AY50") .Sort Key1:=Range("AY5"), _ Order1:=xlAscending, _ Key2:=Range("AX5"), _ Order2:=xlDescending, _ Header:=xlYes End With ActiveSheet.Protect Application.EnableEvents = True
End Sub
je voudrais proteger ma feuille lorsque je la desactive et la reproteger quand je l'active
sa bug au niveau du .sort
pour l'activation de la feuille j'ai ca mais la protection ne marche pas
Private Sub Worksheet_Activate() ActiveSheet.Unprotect 'Application.EnableEvents = False
Columns("B:B").EntireColumn.AutoFit With Range("A5:AY50") .Sort Key1:=Range("A5"), _ Order1:=xlAscending, _ Header:=xlYes End With 'Application.EnableEvents = True ActiveSheet.Protect
merci de votre aide car la je nage
magic-dd
Merci pour l'astuce du Me
je ne connaissais pas
ca allege le code en clarté
merci
Quand tu mets du code dans un module feuille, au lieu d'utiliser "ActiveSheet" ou worksheets("NomFeuille") Utilise tout simplement Me qui désigne la feuille dans lequel le code est situé.
Merci pour l'astuce du Me
je ne connaissais pas
ca allege le code en clarté
merci
Quand tu mets du code dans un module feuille,
au lieu d'utiliser "ActiveSheet" ou worksheets("NomFeuille")
Utilise tout simplement Me qui désigne la feuille dans lequel
le code est situé.
Quand tu mets du code dans un module feuille, au lieu d'utiliser "ActiveSheet" ou worksheets("NomFeuille") Utilise tout simplement Me qui désigne la feuille dans lequel le code est situé.