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
isabelle
bonjour magic-dd,
copie le code suivant sur la page ThisWorkbook '============================================ Public liste()
Private Sub Workbook_Open() For Each cb In Application.CommandBars If cb.Name <> "Worksheet Menu Bar" Then If cb.Visible Then ReDim Preserve liste(x) liste(x) = cb.Name x = x + 1 cb.Visible = False End If End If Next End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) For i = LBound(liste) To UBound(liste) Application.CommandBars(liste(i)).Visible = True Next End Sub '============================================ isabelle
Le 2011-03-07 15:03, magic-dd a écrit :
bonjour
je souhaiterai qu'au demmarage de mon fichier tous les menus meme les personnalisés soient masqués sauf le menu fichier
bien evidemment à la fermeture ils réapparaissent tous
merci
bonjour magic-dd,
copie le code suivant sur la page ThisWorkbook
'============================================ Public liste()
Private Sub Workbook_Open()
For Each cb In Application.CommandBars
If cb.Name <> "Worksheet Menu Bar" Then
If cb.Visible Then
ReDim Preserve liste(x)
liste(x) = cb.Name
x = x + 1
cb.Visible = False
End If
End If
Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
For i = LBound(liste) To UBound(liste)
Application.CommandBars(liste(i)).Visible = True
Next
End Sub
'============================================
isabelle
Le 2011-03-07 15:03, magic-dd a écrit :
bonjour
je souhaiterai qu'au demmarage de mon fichier tous les menus meme les
personnalisés soient masqués sauf le menu fichier
bien evidemment à la fermeture ils réapparaissent tous
copie le code suivant sur la page ThisWorkbook '============================================ Public liste()
Private Sub Workbook_Open() For Each cb In Application.CommandBars If cb.Name <> "Worksheet Menu Bar" Then If cb.Visible Then ReDim Preserve liste(x) liste(x) = cb.Name x = x + 1 cb.Visible = False End If End If Next End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) For i = LBound(liste) To UBound(liste) Application.CommandBars(liste(i)).Visible = True Next End Sub '============================================ isabelle
Le 2011-03-07 15:03, magic-dd a écrit :
bonjour
je souhaiterai qu'au demmarage de mon fichier tous les menus meme les personnalisés soient masqués sauf le menu fichier
bien evidemment à la fermeture ils réapparaissent tous