Option Explicit Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name "Feuil1" Then ActiveWindow.DisplayVerticalScrollBar False End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If ActiveWindow.DisplayVerticalScrollBar False Then ActiveWindow.DisplayVerticalScrollBar True End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) If Wn.ActiveSheet.Name "Feuil1" Then Wn.DisplayVerticalScrollBar False End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) If Wn.DisplayVerticalScrollBar False Then Wn.DisplayVerticalScrollBar True End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name "Application" Then ActiveWindow.DisplayHorizontalScrollBar False End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) If ActiveWindow.DisplayHorizontalScrollBar False Then ActiveWindow.DisplayHorizontalScrollBar True End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Window) If Wn.ActiveSheet.Name "Application" Then Wn.DisplayHorizontalScrollBar False End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) If Wn.DisplayHorizontalScrollBar False Then Wn.DisplayHorizontalScrollBar True End Sub
Application.DisplayExcel4Menus = False
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub TonToggleButton_Click() If TonToggleButton.Value = True Then Application.DisplayExcel4Menus = False Else Application.DisplayExcel4Menus = True End If End Sub
comment faire en sorte de l'exécuter comme un vrai logiciel