Bonjour à tous
J'ai une macro Auto_Open dont voici le code :
Sub Auto_Open()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
Next
UserForm3.Show
End Sub
J'ai un bouton sur la feuille excel qui me permet le processus inverse avec
mot de passe. Le problème est quand j'ouvre un nouveau classeur la barre de
menus n'apparait plus. Pour pouvoir obtenir cette barre de menus sur d'autres
classeurs existants je doit laisser ce classeur ouvert et libérer la barre de
menus ( en inversant le processus) par contre même dans cette position si je
lance un nouveau classeur la barre est absente !!! Au secours !!
Merci d'avance pour vos réponses
Cordialement
Hubert
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
michdenis
Bonjour Hubert,
Utilise un fichier Xla (macro complémentaire) pour obtenir ce que tu désires.
Dans le ThisWorkbook de ton Classeur Xla (Selon ton application, si ton formulaire est présent seulement dans un classeur... ne pas l'inclure dans le fichier xla
'------------------------ Private Sub Workbook_Open() GestionBarreDemenu 'VoirFormulaire3 ??? End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreLesBarresDeCommande End Sub '------------------------
Ce qui suit dans un module standard de ton fichier .xla '--------------------------- Sub GestionBarreDemenu()
Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False Next With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With Application.DisplayFormulaBar = False Application.WindowState = xlMinimized AppActivate "Microsoft Excel"
End Sub '----------------------- Sub RemettreLesBarresDeCommande()
Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = true Next With ActiveWindow .DisplayHeadings = true .DisplayHorizontalScrollBar = true .DisplayWorkbookTabs = true End With Application.DisplayFormulaBar = true Application.WindowState = xlmaximized AppActivate "Microsoft Excel"
End Sub '-----------------------
'----------------------- Sub VoirFormulaire3() UserForm3.Show End Sub '-----------------------
Salutations!
"Hubert" a écrit dans le message de news: Bonjour à tous J'ai une macro Auto_Open dont voici le code : Sub Auto_Open() Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With Application.DisplayFormulaBar = False Application.WindowState = xlMinimized AppActivate "Microsoft Excel" Next UserForm3.Show End Sub
J'ai un bouton sur la feuille excel qui me permet le processus inverse avec mot de passe. Le problème est quand j'ouvre un nouveau classeur la barre de menus n'apparait plus. Pour pouvoir obtenir cette barre de menus sur d'autres classeurs existants je doit laisser ce classeur ouvert et libérer la barre de menus ( en inversant le processus) par contre même dans cette position si je lance un nouveau classeur la barre est absente !!! Au secours !! Merci d'avance pour vos réponses Cordialement Hubert
Bonjour Hubert,
Utilise un fichier Xla (macro complémentaire) pour obtenir ce que tu désires.
Dans le ThisWorkbook de ton Classeur Xla
(Selon ton application, si ton formulaire est présent seulement
dans un classeur... ne pas l'inclure dans le fichier xla
'------------------------
Private Sub Workbook_Open()
GestionBarreDemenu
'VoirFormulaire3 ???
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
RemettreLesBarresDeCommande
End Sub
'------------------------
Ce qui suit dans un module standard de ton fichier .xla
'---------------------------
Sub GestionBarreDemenu()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
End Sub
'-----------------------
Sub RemettreLesBarresDeCommande()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = true
Next
With ActiveWindow
.DisplayHeadings = true
.DisplayHorizontalScrollBar = true
.DisplayWorkbookTabs = true
End With
Application.DisplayFormulaBar = true
Application.WindowState = xlmaximized
AppActivate "Microsoft Excel"
End Sub
'-----------------------
'-----------------------
Sub VoirFormulaire3()
UserForm3.Show
End Sub
'-----------------------
Salutations!
"Hubert" <Hubert@discussions.microsoft.com> a écrit dans le message de news: 63CB877C-745D-4696-A1CD-E2D27E6E1D9E@microsoft.com...
Bonjour à tous
J'ai une macro Auto_Open dont voici le code :
Sub Auto_Open()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
Next
UserForm3.Show
End Sub
J'ai un bouton sur la feuille excel qui me permet le processus inverse avec
mot de passe. Le problème est quand j'ouvre un nouveau classeur la barre de
menus n'apparait plus. Pour pouvoir obtenir cette barre de menus sur d'autres
classeurs existants je doit laisser ce classeur ouvert et libérer la barre de
menus ( en inversant le processus) par contre même dans cette position si je
lance un nouveau classeur la barre est absente !!! Au secours !!
Merci d'avance pour vos réponses
Cordialement
Hubert
Utilise un fichier Xla (macro complémentaire) pour obtenir ce que tu désires.
Dans le ThisWorkbook de ton Classeur Xla (Selon ton application, si ton formulaire est présent seulement dans un classeur... ne pas l'inclure dans le fichier xla
'------------------------ Private Sub Workbook_Open() GestionBarreDemenu 'VoirFormulaire3 ??? End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreLesBarresDeCommande End Sub '------------------------
Ce qui suit dans un module standard de ton fichier .xla '--------------------------- Sub GestionBarreDemenu()
Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False Next With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With Application.DisplayFormulaBar = False Application.WindowState = xlMinimized AppActivate "Microsoft Excel"
End Sub '----------------------- Sub RemettreLesBarresDeCommande()
Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = true Next With ActiveWindow .DisplayHeadings = true .DisplayHorizontalScrollBar = true .DisplayWorkbookTabs = true End With Application.DisplayFormulaBar = true Application.WindowState = xlmaximized AppActivate "Microsoft Excel"
End Sub '-----------------------
'----------------------- Sub VoirFormulaire3() UserForm3.Show End Sub '-----------------------
Salutations!
"Hubert" a écrit dans le message de news: Bonjour à tous J'ai une macro Auto_Open dont voici le code : Sub Auto_Open() Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With Application.DisplayFormulaBar = False Application.WindowState = xlMinimized AppActivate "Microsoft Excel" Next UserForm3.Show End Sub
J'ai un bouton sur la feuille excel qui me permet le processus inverse avec mot de passe. Le problème est quand j'ouvre un nouveau classeur la barre de menus n'apparait plus. Pour pouvoir obtenir cette barre de menus sur d'autres classeurs existants je doit laisser ce classeur ouvert et libérer la barre de menus ( en inversant le processus) par contre même dans cette position si je lance un nouveau classeur la barre est absente !!! Au secours !! Merci d'avance pour vos réponses Cordialement Hubert
Hubert
Bonsoir ! Merçi beaucoup je teste ça immédiatement !! Je vous informe du résultat Cordialement Hubert
"michdenis" wrote:
Bonjour Hubert,
Utilise un fichier Xla (macro complémentaire) pour obtenir ce que tu désires.
Dans le ThisWorkbook de ton Classeur Xla (Selon ton application, si ton formulaire est présent seulement dans un classeur... ne pas l'inclure dans le fichier xla
'------------------------ Private Sub Workbook_Open() GestionBarreDemenu 'VoirFormulaire3 ??? End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreLesBarresDeCommande End Sub '------------------------
Ce qui suit dans un module standard de ton fichier .xla '--------------------------- Sub GestionBarreDemenu()
Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False Next With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With Application.DisplayFormulaBar = False Application.WindowState = xlMinimized AppActivate "Microsoft Excel"
End Sub '----------------------- Sub RemettreLesBarresDeCommande()
Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = true Next With ActiveWindow .DisplayHeadings = true .DisplayHorizontalScrollBar = true .DisplayWorkbookTabs = true End With Application.DisplayFormulaBar = true Application.WindowState = xlmaximized AppActivate "Microsoft Excel"
End Sub '-----------------------
'----------------------- Sub VoirFormulaire3() UserForm3.Show End Sub '-----------------------
Salutations!
"Hubert" a écrit dans le message de news: Bonjour à tous J'ai une macro Auto_Open dont voici le code : Sub Auto_Open() Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With Application.DisplayFormulaBar = False Application.WindowState = xlMinimized AppActivate "Microsoft Excel" Next UserForm3.Show End Sub
J'ai un bouton sur la feuille excel qui me permet le processus inverse avec mot de passe. Le problème est quand j'ouvre un nouveau classeur la barre de menus n'apparait plus. Pour pouvoir obtenir cette barre de menus sur d'autres classeurs existants je doit laisser ce classeur ouvert et libérer la barre de menus ( en inversant le processus) par contre même dans cette position si je lance un nouveau classeur la barre est absente !!! Au secours !! Merci d'avance pour vos réponses Cordialement Hubert
Bonsoir !
Merçi beaucoup je teste ça immédiatement !!
Je vous informe du résultat
Cordialement
Hubert
"michdenis" wrote:
Bonjour Hubert,
Utilise un fichier Xla (macro complémentaire) pour obtenir ce que tu désires.
Dans le ThisWorkbook de ton Classeur Xla
(Selon ton application, si ton formulaire est présent seulement
dans un classeur... ne pas l'inclure dans le fichier xla
'------------------------
Private Sub Workbook_Open()
GestionBarreDemenu
'VoirFormulaire3 ???
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
RemettreLesBarresDeCommande
End Sub
'------------------------
Ce qui suit dans un module standard de ton fichier .xla
'---------------------------
Sub GestionBarreDemenu()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
End Sub
'-----------------------
Sub RemettreLesBarresDeCommande()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = true
Next
With ActiveWindow
.DisplayHeadings = true
.DisplayHorizontalScrollBar = true
.DisplayWorkbookTabs = true
End With
Application.DisplayFormulaBar = true
Application.WindowState = xlmaximized
AppActivate "Microsoft Excel"
End Sub
'-----------------------
'-----------------------
Sub VoirFormulaire3()
UserForm3.Show
End Sub
'-----------------------
Salutations!
"Hubert" <Hubert@discussions.microsoft.com> a écrit dans le message de news: 63CB877C-745D-4696-A1CD-E2D27E6E1D9E@microsoft.com...
Bonjour à tous
J'ai une macro Auto_Open dont voici le code :
Sub Auto_Open()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
Application.WindowState = xlMinimized
AppActivate "Microsoft Excel"
Next
UserForm3.Show
End Sub
J'ai un bouton sur la feuille excel qui me permet le processus inverse avec
mot de passe. Le problème est quand j'ouvre un nouveau classeur la barre de
menus n'apparait plus. Pour pouvoir obtenir cette barre de menus sur d'autres
classeurs existants je doit laisser ce classeur ouvert et libérer la barre de
menus ( en inversant le processus) par contre même dans cette position si je
lance un nouveau classeur la barre est absente !!! Au secours !!
Merci d'avance pour vos réponses
Cordialement
Hubert
Bonsoir ! Merçi beaucoup je teste ça immédiatement !! Je vous informe du résultat Cordialement Hubert
"michdenis" wrote:
Bonjour Hubert,
Utilise un fichier Xla (macro complémentaire) pour obtenir ce que tu désires.
Dans le ThisWorkbook de ton Classeur Xla (Selon ton application, si ton formulaire est présent seulement dans un classeur... ne pas l'inclure dans le fichier xla
'------------------------ Private Sub Workbook_Open() GestionBarreDemenu 'VoirFormulaire3 ??? End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) RemettreLesBarresDeCommande End Sub '------------------------
Ce qui suit dans un module standard de ton fichier .xla '--------------------------- Sub GestionBarreDemenu()
Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False Next With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With Application.DisplayFormulaBar = False Application.WindowState = xlMinimized AppActivate "Microsoft Excel"
End Sub '----------------------- Sub RemettreLesBarresDeCommande()
Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = true Next With ActiveWindow .DisplayHeadings = true .DisplayHorizontalScrollBar = true .DisplayWorkbookTabs = true End With Application.DisplayFormulaBar = true Application.WindowState = xlmaximized AppActivate "Microsoft Excel"
End Sub '-----------------------
'----------------------- Sub VoirFormulaire3() UserForm3.Show End Sub '-----------------------
Salutations!
"Hubert" a écrit dans le message de news: Bonjour à tous J'ai une macro Auto_Open dont voici le code : Sub Auto_Open() Dim CmdB As CommandBar For Each CmdB In Application.CommandBars CmdB.Enabled = False With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayWorkbookTabs = False End With Application.DisplayFormulaBar = False Application.WindowState = xlMinimized AppActivate "Microsoft Excel" Next UserForm3.Show End Sub
J'ai un bouton sur la feuille excel qui me permet le processus inverse avec mot de passe. Le problème est quand j'ouvre un nouveau classeur la barre de menus n'apparait plus. Pour pouvoir obtenir cette barre de menus sur d'autres classeurs existants je doit laisser ce classeur ouvert et libérer la barre de menus ( en inversant le processus) par contre même dans cette position si je lance un nouveau classeur la barre est absente !!! Au secours !! Merci d'avance pour vos réponses Cordialement Hubert
