Componisten VBA code aanpassen

[HMDH]

Wie kan mij helpen met twee probleempjes in mijn Componisten document?
1- Er staan 2 buttons op het blad "Keuze maken". deze buttons wil ik kunnen verplaatsen op het zelfde blad.
Dit gaat lukt mij met geen mogelijkheid (?) Wat en hoe kan ik dat doen? Het blad is niet beveiligd.

2- Ik wil op ieder tabblad van een componist (44 stuks waarvan ik er tijdelijk 34 heb verwijderd) alleen de tabel kunnen aanpassen.
Dus data in de tabel zetten. De rest van het tabblad moet beveiligd zijn.
Dit hoeft niet met een wachtwoord.

bij het aanklikken van de button; "Verberg tabbladen" worden de 44 tabbladen van de componisten verborgen.
Bij het aanklikken van de button; "Maak alle tabbladen zichtbaar", worden alle tabbladen zichtbaar gemaakt op de taakbalk.
Maar dan blijkt dat de klik op de groene pijl (Meer info) een foutmelding geeft.

Wie kan deze twee vragen voor mij oplossen? en de VBA code aanpassen zodat ik geen foutmelding meer krijg.
Zie de schermopname.
De onderstaande code is de gebruikte code.
Deze moet worden aangepast.

Sub Componisten()
     naam = Sheets("Keuze maken").Range("B3").Value
     Sheets(naam).Visible = True
   
     Sheets(naam).Select
     Range("A1").Select
     Application.Goto Sheets(naam).Range("A1")
   
 
End Sub

Sub Keuzemaken()
   ActiveSheet.Visible = False
   Application.Goto Sheets("Keuze maken").Range("A1")
End Sub

Sub MaakZichtbaar()
Application.ScreenUpdating = False
For i = 1 To ThisWorkbook.Sheets.Count
    Sheets(i).Visible = True
    Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next
Application.ScreenUpdating = True
End Sub

Sub Verberg()
For i = 1 To ThisWorkbook.Sheets.Count
    If Sheets(i).Name <> "Keuze maken" And _
       Sheets(i).Name <> "Componisten" And _
       Sheets(i).Name <> "Muziek stukken" Then
       Sheets(i).Visible = False
    End If
Next
End Sub

 

[Haije]

Voor het verplaatsen van de knoppen: kies op tab Ontwikkelaars voor de Ontwerpmodus.
Je kunt nu de knoppen verplaatsen. Klaar? zet OntwikkelaarsModus weer uit

 

[HMDH]

Prima, bedankt dit werkt.
Nu nog deel 2 van mijn vraag a.u.b.

 

[AHulpje]

Of een heel andere oplossing met twee tabellen in plaats van veel werkbladen.
Druk op de knop en selecteer een componist met dubbelklik of klik + OK.

 

[emields]

en om de keuze wat moeilijker te maken, deze

 

[HMDH]

@emields,
Bedankt, voor mij is deze oplossing het prettigst. Het werken met tabellen vind ik lastig.

Ik vraag me alleen af waarom ik verschil heb in het Excel document icoon. zie de bijlage.

Kan je mij dat toelichten?

 

[AHulpje]

Helemaal prima, maar wijzig Consert (op alle 44 werkbladen) dan wel even in Concert en voeg Béla Bartók toe.

 

[emields]

Het linkse is een aangepast icoon, het rechtse een standaard icoon. dat is aan te passen in de eigenschappen van het icoon.

 

[HMDH]

@ AHulpje,
Bedankt, foutje gemaakt en gezien.

 

[HMDH]

@ emields,
bedankt.

 

[HMDH]

@ emields,
Ik heb twee probleempjes
1- in mijn lijst met componisten staan ook strepen en de lijst is langer dan de 41 gebuikte componisten.
in deze lijst zou ik graag 1 of 2 lege velden hebben. zie de bijlage

2- als ik het document sluit met het rode sluitkruisje rechtsboven, dan krijg ik ook een foutmelding,

Mogelijk heeft dit allemaal te maken met de invoer van de overige 32 componisten welke ik voor het gemak even had weggehaald uit het document.
Zou jij eens willen kijken of je dit voor mij kan herstellen a.u.b.

Ik heb geprobeerd het gehele document als bijlage mee te zenden maar deze is te groot is de melding.
Als zipfile lukt het ook niet. 2,28 Mb

 

[AHulpje]

Als je de portretten van de componisten niet in het document opneemt maar als .jpg in een map plaatst (b.v. dezelfde map als waarin het document staat) dan blijft de grootte van het document binnen de perken. Het portret kan dan geladen worden zodra je een componist selecteert. Is ook makkelijker bij het toevoegen van componisten.
En misschien in de toekomst toch eens naar het gebruik van tabellen kijken.

 

[emields]

Is dit beter? en hou ook de raad van AHulpje eens in gedachten, zeker wat betreft het opslaan in aparte bestanden. het zal niet enkel uw bestand veel verlichten maar ook sneller maken.

 

[AHulpje]

Bijgaand een versie waarbij de portretten niet in het document zitten maar in dezelfde map als het document staan. Het Excelbestand is nu nog maar 43 kB groot. Unzip portretten.zip in dezelfde map als waarin het Excelbestand komt te staan. De hyperlinks zijn nu opgenomen in de tabel met componisten.

 

[snb]

@AHulpje

Gebruik PNG bestanden: veel kleiner.

@HMDH

Of gebruik bijv. mediamonkey

 

[AHulpje]

@snb Daar ben ik het volstrekt mee oneens, zie o.a. https://www.techsmith.com/blog/jpg-vs-png/
Maar als jij Bach.png kunt aanleveren in 719 x 886 kleiner dan 49 kB dan maak ik een diepe buiging.

 

[snb]

Lukt me wel in jpg: