Opgelost Excel 2019 totaal geen linten meer

[DutchOirs]

Goedemiddag,
Zit met een vraagje, ben bezig met overstap van Excel 2003 naar Excel 2019 onder W11
Heb een excel 2003 file geopend en opgeslagen als excel werkmap met macro's.
Vervolgens als ik dan het file wil openen zijn er totaal geen linten meer aanwezig.
Zelfs de bovenste lint met Bestand / Start enz. is verdwenen.
Zit al enige tijd te zoeken maar bovenste linten komen niet terug.
Iemand die hier toevalig ervaring mee heeft?

Already many thanks.

Dutch

 

[peter59]

Is het lint alleen bij dat ene bestand weg, of ook wanneer je een nieuw leeg bestand opent?

 

[DutchOirs]

goedemiddag Peter,
Als ik een nieuw bestand open, zijn alle linten zichtbaar, dus heeft duidelijk met "oude file" te maken.

 

[peter59]

Volgens mij ligt het aan de macro in dat bestand.
Zou je deze macro kunnen delen als dat mogelijk is?

 

[DutchOirs]

is een zeer groot file en kan er momenteel niets uit halen (workbook open of module) daar er geen linten zijn en er dus niet in kan komen

 

[peter59]

Ook niet met Alt+F11?

 

[Warme bakkertje]

Al eens geprobeerd met Ctrl+F1 of Ctrl+Shift+F1 ?

 

[DutchOirs]

met Ctrl-F1 niets
met Ctrl-Shift-F1 krijg in net boven de taakbalk een lint met:
Gereed / Berekenen / Macro opname / Toegankelijkheid onderzoeken

en met Alt - F11 opent inderdaad het werkvenster voor VBA

Onder Toegankelijkheid onderzoeken krijg je meerdere optie (rechts in scherm)
onder instellingen aldaar heb je weer meerdere opties.
De kunst is nu om de juiste te vinden

 

[peter59]

Dus de code(s) zie je niet?

 

[DutchOirs]

ja onder Alt-F11 krijg je het VBA venster
wat wil je zien?
Onder ThisWorkBook_open()
ooops te groot, niet meer als 1000 tekens :-(

Het 1e blad, waarmee hij opent is beveiligd (standaard), zou dit er mee te maken kunnen hebben?

 

[edmoor]

Als je nu wel in VBA kunt, draai dan deze eens:

Sub RestoreToolbars()
    On Local Error Resume Next
    With Application
       .DisplayFullScreen = False
       .CommandBars("MyToolbar").Enabled = False
       .CommandBars("Worksheet Menu Bar").Enabled = True
    End With
    On Error GoTo 0
End Sub

 

[peter59]

Maar 1000 tekens? Vreemd.
En als je de code van b.v. ThisWorkBook_open() plakt zoals @edmoor dat heeft gedaan?

 

[DutchOirs]

ha die Edmoor,

Heb geinstal. in vba, maar hoe krijg ik nu een knop (button) op m'n werkblad??
heb dus geen linten

Hoi Peter,. ja had thisworkbook_open() en dat gedeelte gekopieerd.
Maar wilde niet plakken, hij gaf aan dat het te groot was en maar 1000 tekens mocht

 

[edmoor]

Heb je wel in de code op F5 gedrukt om hem uit te voeren?

 

[DutchOirs]

bij F5, krijg ik een venstertje met Ga naar: met 5 opties

 

[edmoor]

In de VBA editor, ga ergens op een regel in de code staan en druk dan op F5.

 

[peter59]

Als datgene van @edmoor niet lukt dan misschien ..

hij gaf aan dat het te groot was en maar 1000 tekens mocht

… in 2 of meerdere gedeelten plakken?

 

[DutchOirs]

ja dat doe ik Edmoor, maar onder jouw sub doet hij niets.
Wel als ik in een andere sub ga staan

Zou het toch iets met beveiliging te maken hebben?

even pauze voor iets te eten, zo weer verder

 

[edmoor]

Werkt hier prima.
Plaats anders dat originele Office 2003 document hier eens.

 

[DutchOirs]

Zo zijn we weer en gevonden
Had onder Thisworkbook_open() ook het volgende staan:

 ' Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"     ' verbergd de formulebalk bij opstarten
 ' Application.DisplayFormulaBar = False

Weet nog niet welke van de 2 de boosdoener is maar gaan we even checken

Bericht automatisch samengevoegd: Gisteren om 15:27

allemaal bedankt voor het mee denken en hulp
Thanks en fijne dag nog

Dutch