• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Lint verbergen

Status
Niet open voor verdere reacties.
S

SUVERMO

Gebruiker
Lid geworden
22 dec 2019
Berichten
478
op dit forum heb ik deze code's gevonden

Code: 
Private Sub Workbook_Open()
    If Application.CommandBars("Ribbon").Height > 100 Then
      Application.CommandBars.ExecuteMso "MinimizeRibbon"
      End If
End Sub

Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Application.CommandBars("Ribbon").Height <= 100 Then
      Application.CommandBars.ExecuteMso "MinimizeRibbon"
      End If
End Sub

mogelijk heb ik deze op een foute manier gebruikt want er wordt een foutmelding gegeven als ik het bestand onmiddellijk terug sluit. Zie verder naar de plaatjes.
Als er na het openen, de bewerking van Plaatje1 wordt uitgevoerd, het bestand opslaat, het bestand terug opent dan gebeurt dit met lint volgens Plaatje2.
Heeft er iemand een oplossing hiervoor?
 

Bijlagen

  • LINT verbergen.xlsm
    13,8 KB · Weergaven: 13
  • fout bij sluiten na openen.jpg
    fout bij sluiten na openen.jpg
    22,1 KB · Weergaven: 32
  • Plaatje1 bij Tabbladen en opdrachten weergeven .jpg
    Plaatje1 bij Tabbladen en opdrachten weergeven .jpg
    214,7 KB · Weergaven: 50
  • Plaatje2 bij openen na bewaren van Plaatje1 bij Tabbladen en opdrachten weergeven .jpg
    Plaatje2 bij openen na bewaren van Plaatje1 bij Tabbladen en opdrachten weergeven .jpg
    183,8 KB · Weergaven: 45
Dus bij het openen EN het sluiten wil je het lint minimaliseren?
 
enkel bij het openen, maar wel altijd, ook als anders is opgeslagen
 
Volgens de code die je plaatste doe je bij zowel openen als sluiten.
 
die code komt van het forum, zie plaatje.
ik heb die gewoon overgenomen, maar dat geeft probleempjes, zie#1
 

Bijlagen

  • code forum.jpg
    code forum.jpg
    93,4 KB · Weergaven: 48
Laatst bewerkt:
Welke problemen? Je bent niet heel duidelijk :). En je hebt natuurlijk alleen de eerste code nodig.
 
als bijgevoegd bestand wordt geopend zijn de tabbladen zichtbaar, ik had deze graag verborgen
 

Bijlagen

  • LINT verbergen.xlsm
    13,7 KB · Weergaven: 29
  • Plaatje1 bij Tabbladen en opdrachten weergeven .jpg
    Plaatje1 bij Tabbladen en opdrachten weergeven .jpg
    214,7 KB · Weergaven: 41
  • Plaatje2 bij openen na bewaren van Plaatje1 bij Tabbladen en opdrachten weergeven .jpg
    Plaatje2 bij openen na bewaren van Plaatje1 bij Tabbladen en opdrachten weergeven .jpg
    183,8 KB · Weergaven: 33
Het nut daarvan ontgaat mij volledig.

Als je bij een auto alle schakelaars weghaalt kun je er toch ook niet meer mee rijden.

Het zelfde geldt voor excel.
 
na wat zoeken op het web

Code: 
Sub Auto_Open()
CommandBars.ExecuteMso "HideRibbon"
End Sub

dit werkt prima
 

Bijlagen

  • LINT verbergen.xlsm
    13,3 KB · Weergaven: 30
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan