status- en formulebalk, rij/kolomkoppen alleen in huidige worksheet niet tonen

[oogstweg 2]

Ik ben niet zo goed in VBA, daarom hulp gevraagd. Ik wil in een worksheet de rij- en kolomkoppen, de formulebalk en de horizontale schuifbalk verbergen. Het worksheet heeft ongeveer 40 (vaak beveiligde, soms ook verborgen) tabbladen, en ik wil dat voor alle tabbladen inééns kunnen instellen.

Ik kan dat bij Opties instellen, maar als ik daarna een ander Excelsheet open zijn daar ook de formulebalk uit beeld.

Hoe kan ik er in VBA voor zorgen dat alleen in dát excel-bestandje alle balken bij het openen van het bestandje verdwijnen, en dat bij het afsluiten weer de gewone instellingen worden teruggezet.

Gert

 

[popipipo]

Ik kan dat bij Opties instellen, maar als ik daarna een ander Excelsheet open zijn daar ook de formulebalk uit beeld

Welke versie heb je dan want ik heb zowel 2000 als 2007 en daar is het een instelling per sheet.

Een kleine aanvulling/correctie.
formule balk is een algemene instelling
schuifbalk is een instelling per bestand
rij kolomkoppen is een instelling per tabblad

 

[oogstweg 2]

Sorry, vergeten er bij te vermelden dat ik met Excel 2003 werk...

Bedankt voor je aanvulling, dit wist ik niet.
Maar is het dan wel mogelijk de formulebalk alleen tijdens het draaien van één bestand uit te zetten, en bij het afsluiten ervan weer in de oude stand terug te zetten, bijvoorbeeld in VBA? En kan ik de rij/kolomkoppen ineens voor het gehele werkblad inschakelen?

 

[Revdutchie]

je zou het volgende kunnen doen, in workbook open zet je

For Each sh In ThisWorkbook.Sheets
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayWorkbookTabs = False

Next
With Application
    .DisplayFullScreen = True
End With

en dan in beforeclose dit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each sh In ThisWorkbook.Sheets
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayWorkbookTabs = True
    
Next
With Application
    .DisplayFullScreen = False
    
End With
End Sub

 

[snb]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ActiveWindow
      .DisplayHeadings = True
      .DisplayHorizontalScrollBar = True
      .DisplayWorkbookTabs = True
    Next
End Sub

Private Sub Workbook_Open()
    With ActiveWindow
      .DisplayHeadings = False
      .DisplayHorizontalScrollBar = False
      .DisplayWorkbookTabs = False
    Next
End Sub

 

[oogstweg 2]

Super bedankt

Super bedankt, hier moet ik er mee komen!!!:thumb:

 

[jelleruben]

Ik wil ook graag deze code gebruiken, maar het lukt me niet echt

Ik open mijn Excel bestand, en dacht VB te starten via
Extra -> Macro -> VB editor..

En dan koos ik links in het navigatie menu voor ThisWorkbook. En plakte daar de code.

Maar als ik dat doe, en wil hem opslaan dan krijg ik een
Compileerfout. op Next zonder For..

Wat doe ik precies fout? (Ik maak gebruik van de code van snb)

 

[Hoornvan]

jelleruben,

Er moet

End With

Staan inplaats van

Next

 

[jelleruben]

Heel erg bedankt, is het ook nog mogelijk om de formulebalk hiermee weg te toveren?

 

[Hoornvan]

jelleruben,

Heel erg bedankt, is het ook nog mogelijk om de formulebalk hiermee weg te toveren?

Dat zal best wel kunnen, je kunt hem ook bij opties uitschakelen.


Ik denk dat de naam Formulebalk niet de juiste zal zijn maar misschien kun je dit in de help van Excel vinden.

.DisplayFormuleBalk = False

 

[Hoornvan]

jelleruben,

Dit moet hem dan zijn.

.Application.DisplayFormulaBar = False

 

[jelleruben]

Bedankt, Maar dit schakeld de formulebalk uit in heel Excel, en ik wil dat het alleen in een bestaande bestand uit is. En als je een nieuwe document maakt dat het weer zichtbaar is.

Edit:

Heb te hard gegilt. Heb het gevonden

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True

End With
End Sub

Private Sub Workbook_Open()
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = False


End With
End Sub

Maar wat dien ik aan te passen als ik voor alle tabbladden de Headings uit wil hebben?

Hij verdwijnt alleen op de eerste tabblad.

 

[Hoornvan]

Kijk eens in de help bij "For Each"
Of zoek met de Helpmij "Doorzoek dit forum" en zoek op "For Each"

Bij de code van snb zijn alle tabbladen weg en zie je enkel het eerste blad.

 

[jelleruben]

Ik heb het even bekeken, en ging niet goed.

Ik heb een nieuwe werkblad aangemaakt,en daar geprobeerd, en werkt het
wel.... Heel vaag..

 

[oogstweg 2]

formulabars

ik heb in this workbook opgenomen:

Private Sub Workbook_Open()
Application.DisplayFormulaBar = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Drawing").Visible = False
With ActiveWindow
.DisplayHorizontalScrollBar = False
End With
End Sub

Hiermee zorgt hij voor heel excel dat de diverse bars uit zicht verdwijnen.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFormulaBar = True
Application.CommandBars("Formatting").Visible = True
Application.CommandBars("Drawing").Visible = True
End Sub


bij het afsluiten zet hij alles dan weer terug in de oude stand.

Gert

 

[jelleruben]

Werk ook goed.

Valt wel op dat er nu vaak gevraagd word om de workbook op te laten slaan, ook al is er niets veranderd in de workbook..

 

[oogstweg 2]

hoe bedoel je?
Gert

 

[jelleruben]

Ik heb de code in mijn workbook staan dat de headings weg gaat. Als ik dan niets in vul, dus geen gegevens invoer in mijn workbook. (dan hoeft hij ook niets op te slaan)

Maar als ik heb afsluit, dan komen de headings terug (staat ook zo in de code). En vraagt hij om op te slaan. Dit is niet nodig.

Want punt 1 heb ik niets in mijn workbook veranderd, en punt 2 de code zorg voor de volgende keer wel dat de heading weg gaat.

 

[oogstweg 2]

opslaan

ik begrijp het. Voor mijn situatie niet zo erg, maar als je dat storend vindt snap ik het. Ik weet daarop geen oplossing.