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.
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.
Code:
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