Button om tabblad te open en te sluiten

[wimix69]

Hallo,
Ik heb een button die verwijst naar een tabblad en naar een bepaalde cel. nu heb ik een nieuwe button gemaakt maar wil dat alleen het tablad geopen en gesloten kan worden. dus niet naar een cel verwijzen omdat het tabblad beveiligd is.

Sub Handloep_Rechthoek11_Klikken()
Sheets("gebruiksaanwijzing").Visible = Not Sheets("gebruiksaanwijzing").Visible 'toggle-mode gebruiksaanwijzing zichtbaar of niet
If Sheets("gebruiksaanwijzing").Visible Then 'is gebruiksaanwijzing zichtbaar
Application.Goto Sheets("gebruiksaanwijzing").Range("B28") 'en naar daar
End If
End Sub

 

[JEC.]

Dan zou dit voldoende moeten zijn

Sub Handloep_Rechthoek11_Klikken()
Sheets("gebruiksaanwijzing").Visible = Not Sheets("gebruiksaanwijzing").Visible 'toggle-mode gebruiksaanwijzing zichtbaar of niet
End Sub

 

[wimix69]

Hallo,

Dit werkt, tabblad wordt geopend en gesloten maar ik wordt er niet naar toe verwezen als ik het tabblad open.

 

[lam201]

Hi,

wat ik vaak gebruik is dit:

code 1 om met een knop werkblad "Sheet2" zichtbaar te maken en naartoe te navigeren:

Sub Rectangle1_Click()

With Sheets("Sheet2")
    .Visible = True
    .Activate
End With
End Sub

code 2 om bij het verlaten van het werkblad deze weer te verbergen.
(deze moet niet in een module maar in het werkblad zelf)

Private Sub Worksheet_Deactivate()

Sheets("Sheet2").Visible = False
End Sub

misschien heb je hier wat aan?

 

[edmoor]

Hallo,

Dit werkt, tabblad wordt geopend en gesloten maar ik wordt er niet naar toe verwezen als ik het tabblad open.

Hoe dat moet staat al in #1.
Dat heeft niets met beveiliging van het blad van doen.

 

[wimix69]

Ik heb het nu zo opgelost.

Sub Handloep_Rechthoek11_Klikken()
Sheets("Gebruiksaanwijzing handloep").Visible = Not Sheets("Gebruiksaanwijzing handloep").Visible 'toggle-mode Gebruiksaanwijzing handloep zichtbaar of niet
If Sheets("Gebruiksaanwijzing handloep").Visible Then 'is Gebruiksaanwijzing handloep zichtbaar
Application.Goto Sheets("Gebruiksaanwijzing handloep").Activate 'en naar daar
End If
End Sub

Maar krijg dan een foutmelding als het tablad geopend wordt in deze regel

Application.Goto Sheets("Gebruiksaanwijzing handloep").Activate 'en naar daar

 

[edmoor]

Zou wel handig zijn als je ook de foutmelding er bij verteld.
Maar maak er eens dit van:

Sheets("Gebruiksaanwijzing handloep").Activate

 

[wimix69]

Zoals gewoon ben je weer geweldig edmoor.

Opgelost