Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro/protection/bogue

Macro/protection/bogue

3 réponses
Avatar
Erico
Bonjour,

Dès que je met la protection, il bogue à la ligne
"Selection.EntireColumn.Hidden = False"
Pourquoi?

Merci de votre aide.
______________________________________
Sub Annexe11()
Sheets("Annexe_1.1b").Select
Application.Goto Reference:="partie"
ActiveWindow.Zoom = True
Application.ScreenUpdating = False
Columns("A:Bi").Select
Range("BI1").Activate
Selection.EntireColumn.Hidden = False
Columns("AR:BC").Select
Range("BC1").Activate
ActiveWindow.SmallScroll ToRight:=-34
Range("AR:BC,L:L,J:J").Select
Range("J1").Activate
ActiveWindow.SmallScroll ToRight:=-3
Selection.EntireColumn.Hidden = True
Range("H7").Select
Rows("105:157").Select
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = False
Range("A1").Select
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
lSteph
Bonjour,
il faut autoriser cette modification par macro,
pour ce faire protèger par le code ainsi
Au lieu d'une protection manuelle ou de
se retrouver à déprotèger et reprotèger en début et fin de chaque macro
ne protèger que l'interface utilisateur:

Private Sub Workbook_Open()
Sheets("Annexe_1.1b").protect password:="facultatif", userinterfaceonly:=
true
end sub

'lSteph
"Erico" a écrit dans le message de news:
%
Bonjour,

Dès que je met la protection, il bogue à la ligne
"Selection.EntireColumn.Hidden = False"
Pourquoi?

Merci de votre aide.
______________________________________
Sub Annexe11()
Sheets("Annexe_1.1b").Select
Application.Goto Reference:="partie"
ActiveWindow.Zoom = True
Application.ScreenUpdating = False
Columns("A:Bi").Select
Range("BI1").Activate
Selection.EntireColumn.Hidden = False
Columns("AR:BC").Select
Range("BC1").Activate
ActiveWindow.SmallScroll ToRight:=-34
Range("AR:BC,L:L,J:J").Select
Range("J1").Activate
ActiveWindow.SmallScroll ToRight:=-3
Selection.EntireColumn.Hidden = True
Range("H7").Select
Rows("105:157").Select
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = False
Range("A1").Select
End Sub



Avatar
Érico
Je suis en train d'Essayer ta macro, mais ça bloque encore à :
Selection.EntireColumn.Hidden = False


"lSteph" a écrit dans le message de news:
OAJ3U%
Bonjour,
il faut autoriser cette modification par macro,
pour ce faire protèger par le code ainsi
Au lieu d'une protection manuelle ou de
se retrouver à déprotèger et reprotèger en début et fin de chaque macro
ne protèger que l'interface utilisateur:

Private Sub Workbook_Open()
Sheets("Annexe_1.1b").protect password:="facultatif", userinterfaceonly:=
true
end sub

'lSteph
"Erico" a écrit dans le message de news:
%
Bonjour,

Dès que je met la protection, il bogue à la ligne
"Selection.EntireColumn.Hidden = False"
Pourquoi?

Merci de votre aide.
______________________________________
Sub Annexe11()
Sheets("Annexe_1.1b").Select
Application.Goto Reference:="partie"
ActiveWindow.Zoom = True
Application.ScreenUpdating = False
Columns("A:Bi").Select
Range("BI1").Activate
Selection.EntireColumn.Hidden = False
Columns("AR:BC").Select
Range("BC1").Activate
ActiveWindow.SmallScroll ToRight:=-34
Range("AR:BC,L:L,J:J").Select
Range("J1").Activate
ActiveWindow.SmallScroll ToRight:=-3
Selection.EntireColumn.Hidden = True
Range("H7").Select
Rows("105:157").Select
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = False
Range("A1").Select
End Sub







Avatar
lSteph
Re,
Enlève la protection que tu avais préalablement et
Mets la protection avec userinterfaceonly comme je t'ai indiqué dans
la macro Workbook_open qui doit être mise dans le thisworkbook.

Cette macro s'executera à l'ouverture du fichier et protègera la feuille
sans empêcher ta macro de fonctionner

Cette méthode est moins contraignante que de s'amuser à déprotèger
reprotèger chaque macro.

Cordialement

lSteph

"Érico" a écrit dans le message de news:

Je suis en train d'Essayer ta macro, mais ça bloque encore à :
Selection.EntireColumn.Hidden = False


"lSteph" a écrit dans le message de news:
OAJ3U%
Bonjour,
il faut autoriser cette modification par macro,
pour ce faire protèger par le code ainsi
Au lieu d'une protection manuelle ou de
se retrouver à déprotèger et reprotèger en début et fin de chaque macro
ne protèger que l'interface utilisateur:

Private Sub Workbook_Open()
Sheets("Annexe_1.1b").protect password:="facultatif", userinterfaceonly:=
true
end sub

'lSteph
"Erico" a écrit dans le message de news:
%
Bonjour,

Dès que je met la protection, il bogue à la ligne
"Selection.EntireColumn.Hidden = False"
Pourquoi?

Merci de votre aide.
______________________________________
Sub Annexe11()
Sheets("Annexe_1.1b").Select
Application.Goto Reference:="partie"
ActiveWindow.Zoom = True
Application.ScreenUpdating = False
Columns("A:Bi").Select
Range("BI1").Activate
Selection.EntireColumn.Hidden = False
Columns("AR:BC").Select
Range("BC1").Activate
ActiveWindow.SmallScroll ToRight:=-34
Range("AR:BC,L:L,J:J").Select
Range("J1").Activate
ActiveWindow.SmallScroll ToRight:=-3
Selection.EntireColumn.Hidden = True
Range("H7").Select
Rows("105:157").Select
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = False
Range("A1").Select
End Sub