uitzetten werkbladmenubalk

[JeroenPaul]

Ik heb een bestand met macro's gemaakt waarbij bij het opstarten de standaard menu en knoppenbalken uitgezet worden en mijn eigen menu en knoppenbalken worden aangezet. Alleen wil het nog niet lukken om zo de werkbladmenubalk uit te zetten. Dit is wel belangrijk om te voorkomen dat anderen het bestand kunnen gaan bewerken. Is dit mogelijk.

M.vr. gr. Jeroen-paul

 

[Finch]

Is dit hetgeen je in gedachte had?

http://www.erlandsendata.no/english/index.php?d=envbacbbarenabled

 

[JeroenPaul]

Ongeveer, ja.
Ik heb deze macro geprobeerd, maar ik krijg een foutmelding voor de volgende regel:
Application.CommandBars("StandardOPE").Enabled = cbEnabled.

ALs ik de hele macro bekijk wordt het me niet duidelijk welk deeltje ik zou moeten overnemen om alleen die hoofdmenubalk weg te halen bij het opstarten en weer terug te zetten bij het afsluiten.

 

[Finch]

Ik zou je willen helpen door het te testen, maar werk hier momenteel met Excel 2007, en die werkbalken zijn vervangen door ribbons.

Wanneer ik nog eens met een andere Excel versie kan werken, test ik het even.

Kan je even duidelijk omschrijven wat je met hoofdmenubalk bedoelt? Is dat File, Edit, ... of is dat die met het save icoontje in?

 

[robdgr]

Jeroen-Paul,

Ik vermoed dat ("StandardOPE") verwijst naar een eigen werkbalk, dus kijk eens of je die naam kunt wijzigen.

Na het testen van de aangegeven macro was mijn menubalk weg. Geen flauw idee hoe dat was terug te halen, maar met bijgaand bestand is het gelukt.

 

[Finch]

Even uit het hoofd wat code geschreven die zou moeten tonen welke commandbars zichtbaar zijn in een bestand.
(Niet geteste code, maar vrij zeker dat hij het doet )

[FONT="Courier New"]Sub Werkbalk()

Dim cb As CommandBar
Dim strToolBars As String

strToolBars = ""

For Each cb In Application.CommandBars
    If cb.Visible = True Then
        strToolBars = strToolBars & vbCrLf & cb.Name
    End If

Next cb
MsgBox strToolBars

End Sub[/FONT]

 

[JeroenPaul]

Dag Finch

Ik bedoel inderdaad de file, edit balk. Ik heb die laatste macro nog even getest, maar het is nog niet gelukt, bedankt in ieder geval. Ik ben echt helemaal nieuw in dit gebeuren, dus is het nog wel even puzzelen.

Gr. JeroenPaul

 

[Finch]

Ik heb even op het net gezet,en dit zou die menubalk verbergen:

[FONT="Courier New"]Application.CommandBars("Worksheet Menu Bar").Enabled = False[/FONT]

Dit zou hem terug zichtbaar maken:

[FONT="Courier New"]Application.CommandBars("Worksheet Menu Bar").Enabled = True[/FONT]

 

[Wigi]

Bericht aan zij die hier niet veel kaas van gegeten hebben: deze codes (en soortgelijke codes die het "uitzicht veranderen" of dingen wegnemen die men normaal gezien niet weg wil hebben) uitvoeren op eigen risico.

 

[robdgr]

Wim,

Had je dat niet eerder kunnen melden?