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
papou
Bonjour N'aurais-tu pas par hasard un fichier présent dans le répertoire xlStart qui en serait la cause ? Si c'est le cas déplaces-le. Sinon, sur le fichier : Fichier Propriétés, onglet Personnalisation et tu supprimes la ligne correspondant à la révision. Sinon voici un code Jim Rech pour supprimer cette propriété et masquer la BO : Sub KillReviewingCustProps() Dim x As DocumentProperties Dim Counter As Integer Set x = ActiveWorkbook.CustomDocumentProperties For Counter = x.Count To 1 Step -1 If Left(x.Item(Counter).Name, 1) = "_" Then _ x.Item(Counter).Delete Next Counter CommandBars("Reviewing").Visible = False End Sub
Cordialement Pascal
"Jean34" a écrit dans le message de news:%
Hello
La barre d'outil révision ne me sert pas, et bouffe la place d'une ligne en
hauteur. Je la décoche donc dans affichage / barre d'outils
Pourtant, elle revient à chaque démarrage...
Comment s'en débarrasser définitivement ?
merci !
Jean34
Bonjour
N'aurais-tu pas par hasard un fichier présent dans le répertoire xlStart qui
en serait la cause ?
Si c'est le cas déplaces-le.
Sinon, sur le fichier :
Fichier Propriétés, onglet Personnalisation et tu supprimes la ligne
correspondant à la révision.
Sinon voici un code Jim Rech pour supprimer cette propriété et masquer la BO
:
Sub KillReviewingCustProps()
Dim x As DocumentProperties
Dim Counter As Integer
Set x = ActiveWorkbook.CustomDocumentProperties
For Counter = x.Count To 1 Step -1
If Left(x.Item(Counter).Name, 1) = "_" Then _
x.Item(Counter).Delete
Next Counter
CommandBars("Reviewing").Visible = False
End Sub
Cordialement
Pascal
"Jean34" <jean34@zerospam> a écrit dans le message de
news:%23nhDjLdsEHA.3556@TK2MSFTNGP10.phx.gbl...
Hello
La barre d'outil révision ne me sert pas, et bouffe la place d'une ligne
en
hauteur.
Je la décoche donc dans affichage / barre d'outils
Bonjour N'aurais-tu pas par hasard un fichier présent dans le répertoire xlStart qui en serait la cause ? Si c'est le cas déplaces-le. Sinon, sur le fichier : Fichier Propriétés, onglet Personnalisation et tu supprimes la ligne correspondant à la révision. Sinon voici un code Jim Rech pour supprimer cette propriété et masquer la BO : Sub KillReviewingCustProps() Dim x As DocumentProperties Dim Counter As Integer Set x = ActiveWorkbook.CustomDocumentProperties For Counter = x.Count To 1 Step -1 If Left(x.Item(Counter).Name, 1) = "_" Then _ x.Item(Counter).Delete Next Counter CommandBars("Reviewing").Visible = False End Sub
Cordialement Pascal
"Jean34" a écrit dans le message de news:%
Hello
La barre d'outil révision ne me sert pas, et bouffe la place d'une ligne en
hauteur. Je la décoche donc dans affichage / barre d'outils
