Microsoft 365 Masquer des cellules lors de la fermeture du classeur

S

Santulud

XLDnaute Occasionnel

• 30 Octobre 2019

• #2

bonjour,

un bout de code a ajouter dans Workbook - Before close

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("feuil1").Range("d:v").EntireColumn.Hidden = True   'nom des colonnes et de la feuille à spécifier
ActiveWorkbook.Save
End Sub

 

Vote positif 0 Vote négatif

M

MarcoPolo1462

XLDnaute Nouveau

• 30 Octobre 2019

• #3

Merci je vais essayer et je vous redis
Je vais devoir le faire pour toutes les feuilles du classeur. Dois-je reecrire le code identique a la suite avec le nom de la feuille qui diffère ou puis-je en 1 code sélectionner toutes les feuilles? Merci bcp Santulud

 

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 30 Octobre 2019

• #4

Pour masquer sur toute les feuille en un seul clique il faut modifier le code

a tester

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Sheets(Array("feuil1", "feuil2")).Select  ' nom des feuille à spécifier
 
    With ActiveSheet

Range("d:v").EntireColumn.Hidden = True   'nom des colonnes à spécifier

End With

ActiveWorkbook.Save

End Sub

 

Vote positif 0 Vote négatif

M

MarcoPolo1462

XLDnaute Nouveau

• 30 Octobre 2019

• #5

Santulud à dit:

bonjour,

un bout de code a ajouter dans Workbook - Before close

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("feuil1").Range("d:v").EntireColumn.Hidden = True   'nom des colonnes et de la feuille à spécifier
ActiveWorkbook.Save
End Sub

Cliquez pour agrandir...

Ca joue presque Santulud mais mes feuilles sont protégées (je permets juste aux utilisateurs de modifier certaines cellules). Quand j'enlève la protection de la feuille ça fonctionne sinon non...

 

Vote positif 0 Vote négatif

M

MarcoPolo1462

XLDnaute Nouveau

• 30 Octobre 2019

• #6

merci pour ta précieuse aide

 

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 30 Octobre 2019

• #7

De rien,

et au cas ou....
il est possible d'enlever et remettre les protection par macro

 

Vote positif 0 Vote négatif

M

MarcoPolo1462

XLDnaute Nouveau

• 1 Novembre 2019

• #8

Ca ne marche malheureusement pas... Lors de la fermeture du classeur, je souhaite sélectionner mes feuilles, enlever leur protection, masquer les colonnes désirées, remettre la protection et fermer le classeur. Voici mon code qui bugg... Quelqu'un pur m'aider?

Merci d'avance

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Sheets(Array("AFPA 1A", "AFPA 1B")).Select

With ActiveSheet

ActiveSheet.Unprotect

Columns("Z😀I").Select
Selection.EntireColumn.Hidden = True

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True

End With

ActiveWorkbook.Save

End Sub

 

Vote positif 0 Vote négatif

S

Santulud

XLDnaute Occasionnel

• 4 Novembre 2019

• #9

il me semble que pour le UNPROTECT, cela ne marche que pour une seule feuille a la fois

Essaie

VB:

sheets("AFPA 1A").unprotect
sheets("AFPA 1B").unprotect

....

sheets("AFPA 1A").protect
sheets("AFPA 1B").protect

 

Vote positif 0 Vote négatif