Enlever "affichage personnalisé"

tototiti2008

XLDnaute Barbatruc

• 31 Août 2011

• #2

Re : Enlever "affichage personnalisé"

Bonjour Rick,

Peut-être des pistes par là (pas testé) :
Modifier un classeur partagé - Excel - Office.com

 

Vote positif 0 Vote négatif

Rick@

XLDnaute Occasionnel

• 31 Août 2011

• #3

Re : Enlever "affichage personnalisé"

Merci Tototiti2008 mais même en décochant comme proposé, celà n'enpêche pas la création de nouvels "affichages personnalisés" qui alourdissent considérablement le fichier à chaque visite...

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 31 Août 2011

• #4

Re : Enlever "affichage personnalisé"

Bonjour à tous,
Salut Toto,

Peux-tu essayer :

Option Explicit

Sub Del_CutomViews()
Dim x As Byte
On Error Resume Next
For x = 1 To ActiveWorkbook.CustomViews.Count
'MsgBox ActiveWorkbook.CustomViews.Count
ActiveWorkbook.CustomViews(x).Delete
Next x
End Sub

Cliquez pour agrandir...

A + à tous

 

Vote positif 0 Vote négatif

Rick@

XLDnaute Occasionnel

• 31 Août 2011

• #5

Re : Enlever "affichage personnalisé"

Merci pour la macro, cependant elle doit être activée manuellement, aussi dans un fichier "partagé" les macros ne sont pas les "bienvenue..."

Je crois bien devoir faire avec...

Merci tout de même!!!

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 31 Août 2011

• #6

Re : Enlever "affichage personnalisé"

Bonjour à tous,

Elle peut être évènementielle : se déclencher sur une action ou à l'ouverture du fichier...

A + à tous

 

Vote positif 0 Vote négatif