Custom UI Editor

[Roma]

Specialisten,

Ik gebruik Custom UI Editor For Microsoft Office in mijn Excelbestand. Werkt perfect kan het iedereen aanbevelen.

Nu heb ik een code om een tabblad aan te roepen. Dit is een verborgen tabblad, maar als ik een ander tabblad aanroep dan blijft hij zichtbaar. Weet iemand hier een oplossing voor?

'Callback for customButton2 onAction
Sub Macro2(control As IRibbonControl)
      With Sheets("Invoer")
        .Visible = xlSheetVisible
        .Activate
        End With
        End Sub

 

[edmoor]

Dat zichtbare blad moet je dan in de evt. andere callback weer op Visible = False zetten.
Of in het Activate event van het andere tabblad.

 

[Roma]

Ha die Edmoor,
Het is voor mij weer een lastige puzzel. Ik heb Custom UI Editor gemaakt uit allerlei voorbeelden en dat is aardig gelukt.
Waar moet ik de andere callback weer op Visible = False zetten?

 <button id="customButton2" label="Invoer medewerkers" size="normal" onAction="Macro2" imageMso="DirectRepliesTo" />

Bestaat er ook een mogenlijkheid om bovenstaande code aan te vullen?

 

[OctaFish]

Lijkt mij erg lastig, omdat je nu eenmaal tig andere acties kunt uitvoeren als je iets anders aanklikt. En op basis waarvan moet de actie worden getriggerd? Je kunt bij elk tabblad code zetten om het specifieke blad weer uit te zetten:

Private Sub Worksheet_Activate()
    worksheets("Blad2").Visible = False
End Sub

 

[edmoor]

Een Custom UI Editor maak je niet. Dat is al een programma. Deze is er speciaal voor om het maken van en aanpassen van het Ribbon menu vanaf Excel 2007 eenvoudig te maken. De code die je daarin maakt zit overigens gewoon in het document, maar niet op een voor onderhoud handige plek.

Het handigste wat je kunt doen is het voorbeeld van Octafish gebruiken in een ander tabblad dan het blad dat je wilt verbergen. Of deze in het blad dat je wilt verbergen:

Private Sub Worksheet_Deactivate()
    Me.Visible = False
End Sub

 

[Roma]

Dank voor jullie reactie.
Het grote probleem is dat al mijn tabbladen(op één na) verborgen zijn ongeveer 60 stuks.

 

[edmoor]

Dan maak je de code in het Worksheet_Activate event van het blad dat altijd zichtbaar is, waarin je alle andere bladen verbergt.

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        If ws.Name <> Me.Name Then ws.Visible = False
    Next ws
    Application.ScreenUpdating = True
End Sub

 

[OctaFish]

Het helpt enorm als je je vraag goed omschrijft.

Nu heb ik een code om een tabblad aan te roepen. Dit is een verborgen tabblad, maar als ik een ander tabblad aanroep dan blijft hij zichtbaar.

Hier blijkt nergens uit dat alle werkbladen verborgen moeten zijn, en er maar één blad zichtbaar is. Stel je verkeerde vragen, dan krijg je verkeerde antwoorden... En daar heb jij niks aan, en wij ook niet . Bovendien had je al veel eerder het juiste antwoord gehad!

 

[Roma]

Beste Michel en Edmoor,
Dankzij juliie opmerkingen heb ik toch het probleem opgelost.
Toppie.