XL 2016 Personnaliser fichier réservation véhicules

[Averell1976]

Bonjour à toutes et à tous,

Je cherche à personnaliser un super fichier créé par @leakim pour réserver une flotte de véhicules.
Je le remercie d'ailleurs sincèrement, ce fichier est top.

Je souhaiterai juste apporter des modifications sur l'onglet "Menu". J'ai quelques notions de vba mais je coince car je voudrais notamment modifier les images insérées (appelées "groupe 1, groupe 2...etc) en mettant des photos de nos propres véhicules qui renverraient au calendrier de résa, en cliquant dessus.

Il me faut pour cela activer le mode création du développeur. Mais je n'arrive pas à faire apparaître la barre de menus classique d'excel et lorsque je vais dans Fichier>options, je n'ai pas la main pour personnaliser le ruban... le code vba semble désactiver toutes ces fonctionnalités.

si quelqu'un peut me dire dans quelle partie du code vba cela est géré, ce serait super gentil.

Un grand merci pour votre aide

 

[shinozak]

Bonjour,

Est-ce qu'il y a ça dans le code ?

Application.DisplayFullScreen = True

Si oui, suffit de passer le TRUE à FALSE a lafin de code.

 

[Averell1976]

Bonjour,

Est-ce qu'il y a ça dans le code ?

Application.DisplayFullScreen = True

Si oui, suffit de passer le TRUE à FALSE a lafin de code.

Bonjour,

Merci pour ton aide.
J'avais essayé, sans grand succès.
En fait, le code est:

Option Explicit

Private Sub Workbook_Open()
 Dim cmdB As CommandBar
 Dim test

  For Each cmdB In Application.CommandBars
    cmdB.Enabled = False
  Next cmdB
'    si tu veux masquer en plus la barre d'état
'     la barre de formule
'     les onglets...
  With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = False
    .DisplayFormulaBar = False
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = False
    .DisplayHeadings = False
  End With

    Sheets("menu").Select
    Application.Caption = Year(Date) & " - Leakim"
 End Sub
 
'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'End Sub
Dim cmdB As CommandBar
  For Each cmdB In Application.CommandBars
    cmdB.Enabled = True
  Next cmdB
  With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With
  Application.Caption = ""
 End Sub
 
Private Sub CloseandSave()

    Application.DisplayAlerts = False
    Application.Quit
    With ThisWorkbook
        .Save
        .Close
        End With
    Application.DisplayAlerts = True
    
    End Sub

 

[shinozak]

Plus simple avec le code aha. En gros le code te bloque à l'ouverture la barre d'état/ onglet/ etc.
A la fermeture il te débloque l'accès. Donc remplace tout les FALSE par TRUE dans Private_Sub Workbook Open. Enregistre le fichier et reouvre le.

 

[Averell1976]

Plus simple avec le code aha. En gros le code te bloque à l'ouverture la barre d'état/ onglet/ etc.
A la fermeture il te débloque l'accès. Donc remplace tout les FALSE par TRUE dans Private_Sub Workbook Open. Enregistre le fichier et reouvre le.

Merci beaucoup. mais je teste et cela ne fonctionne pas.
J'ai mis:

Private Sub Workbook_Open()
 Dim cmdB As CommandBar
 Dim test

  For Each cmdB In Application.CommandBars
    cmdB.Enabled = False
  Next cmdB
'    si tu veux masquer en plus la barre d'état
'     la barre de formule
'     les onglets...
  With Application
    .DisplayFullScreen = True
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With

    Sheets("menu").Select
    Application.Caption = Year(Date) & " - Leakim"
 End Sub
 
'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'End Sub
Dim cmdB As CommandBar
  For Each cmdB In Application.CommandBars
    cmdB.Enabled = True
  Next cmdB
  With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With
  Application.Caption = ""
 End Sub
 
Private Sub CloseandSave()

    Application.DisplayAlerts = False
    Application.Quit
    With ThisWorkbook
        .Save
        .Close
        End With
    Application.DisplayAlerts = True
    
    End Sub

 

[shinozak]

Passe aussi cmdB.Enabled = True

 

[Averell1976]

Passe aussi cmdB.Enabled = True

Marche toujours pas

Option Explicit

Private Sub Workbook_Open()
 Dim cmdB As CommandBar
 Dim test

  For Each cmdB In Application.CommandBars
    cmdB.Enabled = True
  Next cmdB
'    si tu veux masquer en plus la barre d'état
'     la barre de formule
'     les onglets...
  With Application
    .DisplayFullScreen = True
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With

    Sheets("menu").Select
   ' Application.Caption = Year(Date) & " - Leakim"
 End Sub
 
'puis les remettre à la fermeture du classeur

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'End Sub
Dim cmdB As CommandBar
  For Each cmdB In Application.CommandBars
    cmdB.Enabled = True
  Next cmdB
  With Application
    .DisplayFullScreen = False
    .DisplayStatusBar = True
    .DisplayFormulaBar = True
  End With
  With ActiveWindow
    .DisplayWorkbookTabs = True
    .DisplayHeadings = True
  End With
  Application.Caption = ""
 End Sub
 
Private Sub CloseandSave()

    Application.DisplayAlerts = False
    Application.Quit
    With ThisWorkbook
        .Save
        .Close
        End With
    Application.DisplayAlerts = True
    
    End Sub