Lint verbergen

[Niels28]

Hallo,

Ik wil bij het openen van een bestand het lint verbergen en bij het afsluiten van het bestand
het lint weer zichtbaar maken.

Ik heb de volgende code

Private Sub Workbook_BeforeClose(CANCEL As Boolean)
 Application.SendKeys "^{f1}"
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
End Sub

Private Sub Workbook_Open()
 Application.SendKeys "^{f1}"
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
End Sub

Het verbergen gaat goed alleen bij het afsluiten van het bestand wordt help geopend
en het lint wordt niet zichtbaar.
De codes zijn een kopie van elkaar dus het is geen typ fout.

Hoe krijg ik dit werkend?

Niels

 

[danny147]

Beste Niels28

Waarom niet dubbelklikken op start of ander item en het is opgelost.

Groetjes Danny. :thumb:

 

[Niels28]

Weet ik,

Maar leg dat maar eens uit aan andere die ermee moeten werken en later het lint kwijt zijn.
Ik wil het lint verbergen zodat er meer in beeld is van het bestand.
Alles wat er ingevuld moet worden gaat dmv userforms.

Met bv fullsreen werkt het wel maar dan is de save knop ook weg.

 

[danny147]

Beste Niels28

Als het lint verborgen is, kan men gerust verder werken zoals vroeger in Excel 2003.
Klik een menu aan het lint verschijnt, kies je keuze en het lint verdwijnt dan weer.

Groetjes Danny. :thumb:

 

[Niels28]

Dat was mij inderdaad nog niet opgevallen, kende alleen de dubbel klik,
maar waarom wordt de macro bij het opstarten wel uitgevoerd als ctrl+F1 en bij
het afsluiten niet want dan wordt allen F1 toegepast?

 

[danny147]

Beste Niels28

Ben je hier mee geholpen ?

Of wil je toch graag een macro hier voor hebben, dan moet ik dit overlaten aan mijn collega's hier op het forum.

Anders plaats de vraag dan op opgelost, onderaan rechts.

Groetjes Danny. :thumb:

 

[Niels28]

Danny147,

Bedankt voor je antwoorden, maar als het mogelijk is zou ik dit graag opgelost
willen hebben met een macro.

Groeten Niels

 

[HSV]

Danny147,

Bedankt voor je antwoorden, maar als het mogelijk is zou ik dit graag opgelost
willen hebben met een macro.

Groeten Niels

Zoiets?

Private Sub Workbook_BeforeClose(CANCEL As Boolean)
 Interaction.SendKeys "^{f1}", True
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
End Sub

Private Sub Workbook_Open()
 Application.SendKeys "^{f1}", False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
End Sub

 

[Niels28]

Harry,

Nee doet precies hetzelfde,
Op de een of andere manier wordt de ctrl niet gebruikt bij het afsluiten en wordt help geopend.


Groeten Niels

 

[HSV]

Harry,

Nee doet precies hetzelfde,
Op de een of andere manier wordt de ctrl niet gebruikt bij het afsluiten en wordt help geopend.


Groeten Niels

Dat is vreemd, de Help wordt bij mij niet meer geopend, en vraagt gewoon of je wil opslaan.

 

[Niels28]

Harry,

Heb voor de zekerheid een nieuw bestand geprobeerd maar
daar wordt ook help geopend.

Misschien dat excel weet dat ik hulp nodig heb.


Groeten Niels

 

[HSV]

Heb je het wel voor het afsluiten opgeslagen Niels.

 

[Niels28]

Ik heb het bij thisworkbook neer gezet

Zie bijlage

Niels

 

[HSV]

Ik zie nergens de code.
Kan zowiezo niet in een .xlsx bestand.
Moet een .xlsm extensie zijn Niels.

 

[Niels28]

Een xlsm als .rar dan.
Was er niet van bewust dat je macro's verwijdert werden als je het bestand als xlsx opslaat.
Is dat trouwens een instelling?

Niels

 

[HSV]

Je bestandje werkt bij mij perfect. :thumb:
Geen Help weergave bij het afsluiten.
Ik zal eens kijken of het ergens een instelling is.

 

[HSV]

Je bestandje werkt bij mij perfect. :thumb:
Geen Help weergave bij het afsluiten.
Ik zal eens kijken of het ergens een instelling is.

Kan ik me ook niet voorstellen overigens.
Je eerste code gaf bij mij ook het Help venster bij het afsluiten.
Na wijzigen van code nu niet meer.

 

[Niels28]

Harry,

Ik laat de vraag nog even openstaan misschien dat er iemand anders nog iets weet,
in ieder geval bedankt voor de moeite :thumb:

Zal morgen op het werk kijken wat het bestandje daar doet.

Groeten Niels

 

[danny147]

Beste Niels28 en Niels28 en HSV

Ik heb net hetzelfde probleem als Niels.
Bij het sluiten komt de helpfunctie tevoorschijn.

Werkbalk snelle toegang, kan je die ook verbergen ?

Groetjes Danny.

 

[Niels28]

Ik heb het op mijn werk getest en daar werkt het wel.
Het zal dus wel ergens een instelling zijn.

@danny147

Je kunt alles verbergen met:

Sub test()
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
End Sub

Niels