div tabbladeren verbergen met macro ???

[kojan007]

Hallo,

Ik heb een werkmap met 35 tabbladen en die zijn beveiligd met een wachtwoord(wachtwoord is er nu af), en in elke tabblad zit macro's in die weer naar een ander tabblad ga.
Nu is mijn vraag kan ik alle tabbladen onder in de balk verbergen met een Marco (zie blauwe pijl). En dat die niemand kan oproepen en toch dat ik naar elke tabblad toe kan gaan. Het tabblad waar ik naar toe wil mag dan wel zichtbaar zijn ik hoop dat jullie mijn begrijpen.



m.v.g. kojan

 

[edmoor]

Als je de bijlage plaatst, kijkt dan ook even je uitleg na. Daar is geen touw aan vast te knopen.
Gebruik ook juiste benamingen, zoals werkbladen in plaats van bladzijdes.

 

[VenA]

Je kan gebruik maken van de windows gebruikersnaam om de gebrekkige beveiliging van Excel te sturen.

Sub VenA()
MsgBox Environ("username")
End Sub

 

[kojan007]

Als je de bijlage plaatst, kijkt dan ook even je uitleg na. Daar is geen touw aan vast te knopen.
Gebruik ook juiste benamingen, zoals werkbladen in plaats van bladzijdes.

Sorry heb de tekst aangepast en ik hoop dat je het nu wel begrijpt

 

[edmoor]

Wat je wilt kan ook wel, maar dat kan het beste worden getoond in de beloofde bijlage. Heb je ook de optie van VenA bekeken? Daarmee kan je bijvoorbeeld per gebruiker bepalen welke werkbladen zichtbaar zijn.

 

[kojan007]

Wat je wilt kan ook wel, maar dat kan het beste worden getoond in de beloofde bijlage. Heb je ook de optie van VenA bekeken? Daarmee kan je bijvoorbeeld per gebruiker bepalen welke werkbladen zichtbaar zijn.

heb hem gezien maar niet wat ik zoek.

 

[edmoor]

Het wel of niet tonen van werkbladen zal ergens van afhankelijk moeten zijn. Laat in je voorbeeld document maar zien wat je wilt.

 

[kojan007]

Het wel of niet tonen van werkbladen zal ergens van afhankelijk moeten zijn. Laat in je voorbeeld document maar zien wat je wilt.

Als ik in de blad van teams zit wil ik die onderin zien bij de blauwe pijl, en als ik naar performance ga dan wil ik alleen die zien onderin bij de blauwe pijl. maar als ik op de rechter muis klik dan wil ik ze niet zichtbaar kunnen maken.

 

[edmoor]

Als je de beveiliging eraf haalt kan je alle werkbladen behalve TEAMS op extra verborgen zetten:

Sub HideSheets()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "TEAMS" Then sh.Visible = xlVeryHidden
    Next sh
End Sub

Dan zie je ze dus ook met de rechtermuisknop niet meer.

 

[kojan007]

Als je de beveiliging eraf haalt kan je alle werkbladen behalve TEAMS op extra verborgen zetten:

Sub HideSheets()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        If sh.Name <> "TEAMS" Then sh.Visible = xlVeryHidden
    Next sh
End Sub

Dan zie je ze dus ook met de rechtermuisknop niet meer.

En waar moet ik deze code dan neer zetten in een module??

 

[edmoor]

Wat je wil is niet met 1 routine op te lossen, er moet meer gebeuren. Ik heb een voorbeeld voor je gemaakt. De bijlage heeft 5 werkbladen. Er is er maar 1 zichtbaar. De andere bladen zie je ook niet onder de rechtermuisknop. De benodigde code zit in Module1 en de ThisWorkbook sectie. Dat zou het duidelijk moeten maken.

Met de knopjes ga je naar het gewenste blad. Als je daarna in de tabjes op Blad1 klikt ben je weer op Blad1 en zijn alle andere bladen weer verborgen. Uiteraard kan dat ook met een knopje.

Bekijk bijlage Keuzes.xlsm

 

[kojan007]

Wat je wil is niet met 1 routine op te lossen, er moet meer gebeuren. Ik heb een voorbeeld voor je gemaakt. De bijlage heeft 5 werkbladen. Er is er maar 1 zichtbaar. De andere bladen zie je ook niet onder de rechtermuisknop. De benodigde code zit in Module1 en de ThisWorkbook sectie. Dat zou het duidelijk moeten maken.

Met de knopjes ga je naar het gewenste blad. Als je daarna in de tabjes op Blad1 klikt ben je weer op Blad1 en zijn alle andere bladen weer verborgen. Uiteraard kan dat ook met een knopje.

Bekijk bijlage 287201

dankje wel volgens mij is dit hem wat ik zoek ga hem proberen en laat het je weten of het werkt.

 

[kojan007]

hij werkt dankje wel edmoor voor je hulp. dan heb ik nog een vraag kan ik nu ook de werkmap beveiligen, dat ze geen andere tabbladeren kunnen bij zetten.

 

[VenA]

In een module

Public shcount As Integer

In de module van Thisworkbook

Private Sub Workbook_Open()
  shcount = Sheets.Count
    Call HideSheets
End Sub

en

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sheets.Count > shcount Then
  With Application
    .DisplayAlerts = False
    ActiveSheet.Delete
    .DisplayAlerts = True
  End With
End If
End Sub

 

[HSV]

Iets eenvoudiger?
In thisworkbook.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End Sub

 

[kojan007]

Iets eenvoudiger?
In thisworkbook.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True
End Sub

dankje wel is ook gelukt

 

[kojan007]

Iedereen bedankt voor het helpen was weer leerzaam.

m.v.g. kojan