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 Barre Outils

Barre Outils

3 réponses
Avatar
JB
Bon on me boude !!!
je renouvelle timidement
Bjr

Je voudrai qu'a l'ouverture d'un fichier spécifique toutes les bares
d'outils soient non visibles.
Mais cela uniquement pour ce fichier sachant que ce fichier doit rester
ouvert en permanence et sachant que je dois ouvrir d'autres fichiers en meme
temps avec les bares d'outils visibles.
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
Alain CROS
Bonjour.

Il faut savoir être patient.

Colle ce code dans le module ThisWorkBook de ton fichier spécifique.
Il te faudra prévoir dans ce fichier un moyen pour retourner sur les autres classeurs.

Sub GestionInterface(Optional etat As Boolean = True)

Static TblCb() As Boolean
Static NbCb As Integer
Dim Cb As Integer

Select Case etat
Case True 'bloquage
With Application
.ScreenUpdating = False
NbCb = .CommandBars.Count
ReDim TblCb(1 To NbCb)
For Cb = 1 To NbCb
With .CommandBars(Cb)
TblCb(Cb) = .Enabled
.Enabled = False
End With
Next Cb
End With
Case False 'debloquage
With Application
.ScreenUpdating = False
For Cb = 1 To NbCb
.CommandBars(Cb).Enabled = TblCb(Cb)
Next Cb
End With
End Select

End Sub

Private Sub Workbook_Activate()
GestionInterface
End Sub

Private Sub Workbook_Deactivate()
GestionInterface False
End Sub

Alain CROS.

"JB" a écrit dans le message de news: 3f086d85$0$13219$
Bon on me boude !!!
je renouvelle timidement
Bjr

Je voudrai qu'a l'ouverture d'un fichier spécifique toutes les bares
d'outils soient non visibles.
Mais cela uniquement pour ce fichier sachant que ce fichier doit rester
ouvert en permanence et sachant que je dois ouvrir d'autres fichiers en meme
temps avec les bares d'outils visibles.




Avatar
JB
Super et Efficace

Si je demande la meme chose avec en plus la barre de formule et la barre
d'etat !!

Merci Monsieur Alain



"Alain CROS" a écrit dans le message de news:
Oa9Tpy$
Bonjour.

Il faut savoir être patient.

Colle ce code dans le module ThisWorkBook de ton fichier spécifique.
Il te faudra prévoir dans ce fichier un moyen pour retourner sur les
autres classeurs.


Sub GestionInterface(Optional etat As Boolean = True)

Static TblCb() As Boolean
Static NbCb As Integer
Dim Cb As Integer

Select Case etat
Case True 'bloquage
With Application
.ScreenUpdating = False
NbCb = .CommandBars.Count
ReDim TblCb(1 To NbCb)
For Cb = 1 To NbCb
With .CommandBars(Cb)
TblCb(Cb) = .Enabled
.Enabled = False
End With
Next Cb
End With
Case False 'debloquage
With Application
.ScreenUpdating = False
For Cb = 1 To NbCb
.CommandBars(Cb).Enabled = TblCb(Cb)
Next Cb
End With
End Select

End Sub

Private Sub Workbook_Activate()
GestionInterface
End Sub

Private Sub Workbook_Deactivate()
GestionInterface False
End Sub

Alain CROS.

"JB" a écrit dans le message de news:
3f086d85$0$13219$

Bon on me boude !!!
je renouvelle timidement
Bjr

Je voudrai qu'a l'ouverture d'un fichier spécifique toutes les bares
d'outils soient non visibles.
Mais cela uniquement pour ce fichier sachant que ce fichier doit rester
ouvert en permanence et sachant que je dois ouvrir d'autres fichiers en
meme


temps avec les bares d'outils visibles.








Avatar
Alain CROS
Bonjour.

Il suffit de demander.

Sub GestionInterface(Optional etat As Boolean = True)

Static TblCb() As Boolean
Static TblEtat(1) As Boolean
Static NbCb As Integer
Dim Cb As Integer

Select Case etat
Case True 'bloquage
With Application
.ScreenUpdating = False
NbCb = .CommandBars.Count
ReDim TblCb(1 To NbCb)
For Cb = 1 To NbCb
With .CommandBars(Cb)
TblCb(Cb) = .Enabled
.Enabled = False
End With
Next Cb
TblEtat(0) = .DisplayFormulaBar
TblEtat(1) = .DisplayStatusBar
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
Case False 'debloquage
With Application
.ScreenUpdating = False
For Cb = 1 To NbCb
.CommandBars(Cb).Enabled = TblCb(Cb)
Next Cb
.DisplayFormulaBar = TblEtat(0)
.DisplayStatusBar = TblEtat(1)
End With
End Select

End Sub

Alain CROS.