tabblad verbergen

[beertje]

Hoi,

Weet iemand hoe ik in een excel worksheet, een tablad kan verbergen?

groetjes beertje

 

[beheer25]

Wat dacht je van Format --> Worksheet --> Hide ?

 

[beertje]

ik wil het eigenlijk via een macro laten doen
zodat iemand anders dit niet zichtbaar ken laten maken


beertje

 

[beheer25]

Of je het nu via het menu doet of via een macro maakt voor het niet terug kunnen halen niet uit. Wat je dan moet doen is het worksheet beveiligen.

1. Verberg het werkblad
2. Beveilig het workbook via tools --> security --> Protect workbook.
3. Vink het vakje Structure aan en geef een wachtwoord op.


Et Voila...


Grtz,

 

[beertje]

hoi beheer25.

zoals jij zegt heb ik gedaan, maar als ik het dan weer zichtbaar maak zie ik nog steeds wat er op dat blad staat.
ik kan het verder niet wijzigen, omdat ie beveiligd is.
is het niet mogelijk voordat het zichtbaar wordt dat ik dan een password moet geven?


beertje

 

[BasMan]

Is dit een optie?

Hallo,

Zet onderstaande in de microsoft object.

Private Sub Worksheet_Activate()
ActiveWindow.SelectedSheets.Visible = False
End Sub

Als men de sheet dan wil zichtbaar maken wordt de sheet meteen weer onzichtbaar gemaakt, zonder dat ze er iets van kunnen lezen.

Als je zelf iets wilt toevoegen aan deze sheet, dan activeer je eerst vb, druk dan op "break". Daarmee kun je ongehinderd de sheet selecteren. Ze op het vba project een code en niemand kan de sheet dan achterhalen. Als ze geen password resetter hebben natuurlijk.

Ik hoop dat je hier iets mee kan.

BasMan

 

[joost verdaasdo]

Hoi Beertje,

Zet deze code in een module:

Sub Verbergen()
Sheets("Blad1").Visible = xlVeryHidden
End Sub

Vervolgens beveilig je het macroproject met een wachtwoord! (rechtermuisknop eigenschappen)

Zet deze code in de Module:

'Sub Tonen()
 '    Sheets("Blad1").Visible = True
'End Sub

Met deze code maak je het blad weer zichtbaar.

Dus je zet met de eerste code het tabje ontzichtbaar.
Vervolgens beveilig je het project, gevolg niemand ziet het tabje en niemand kan erbij om de property op visible te zetten.

Moet je er nou toch bij, dan ga je met ALT+F11 naar de vbe haal de ( ' ) tekens voor de tweede code weg en voer deze uit.
Nu is het blad weer zichtbaar.

Als je echt iets met een wachtwoord wilt, omdat je van plan bent dit vaak te gaan gebruiken kom dan nog even terug.

In dat geval zal ik de gewenste code maken en plaatsen.

See Yah! :thumb:

 

[joost verdaasdo]

Hoi Beertje,

Zat jouw vraag nog eens goed te lezen en het lijkt erop dat je dit toch vaak nodig hebt.

Dus pak aan:

Rechtermuisknop op het tabje wat je wilt verbergen en kies programmacode weergeven.

Plak deze code:

Private Sub Worksheet_Deactivate()
    Sheets("Blad1").Visible = xlVeryHidden
End Sub

'a.u.b. even Blad1 vervangen door de naam van het tabje!

Vervolgens in de VBE kiezen voor Invoegen/Module.
Plak deze code in de module:

Option Explicit

Sub ShowSheet()
Dim strWW
  strWW = InputBox("Voer het wachtwoord in a.u.b.", , "Wachtwoord invoeren!")
     If strWW <> "Joost" Then Exit Sub
  Sheets("Blad1").Visible = xlSheetVisible
End Sub

'a.u.b. even Blad1 vervangen door de naam van het tabje!
'bij Joost even jouw wachtwoord invoeren.

Zo nog even compileren! (menu foutopsporing)

Geen fouten mooi, even het projectje beveiligen. (zie vorig bericht)

En nou nog even de boel opslaan en klaar is Klara!

See Yah! :thumb:
O ja de code van ShowSheet kun jij natuurlijk nog onder een knopje hangen. Of je roept hem op met ALT+F8! (of kies een andere leuke manier)

 

[beertje]

hoi Joost,

bedankt voor je reactie.
Het werkt goed!!


Groetjes Beertje

 

[joost verdaasdo]

Hoi Beertje,

You're welcom!

 

[MisterG]

Intypen van wachtwoord zichtbaar

Hallo,

De code zoals hierboven weergegeven werkt uitstekend, dankje, ik heb hem ook gebruikt

Heb echter nog wel een vraag, met deze oplossing blijft datgene wat je als wachtwoord intypt zichtbaar..

Is er een aanpassing mogelijk waarmee dit sterretjes of bolletjes worden?

Met vriendelijke groet,

 

[Bratox]

Dag allemaal,

Ik heb zojuist bovenstaande oplossing gebruikt om verschillende werkbladen te beveiligen met een wachtwoord zodat ze na het invoeren van het ww pas zichtbaar worden. Dit werkt perfect. Het enige manco dat ik in de praktijk ervaar is dat deze werkbladen automatisch weer onzichtbaar worden gemaakt nadat ik het betreffende werkblad aanklik en weer verlaat. Dit is nogal lastig als je een langere tijd aan een excelbestand moet werken en veel moet switchen tussen verschillende werkbladen. Ik zou het liefste zien dat deze werkbladen pas weer onzichtbaar worden gemaakt wanneer ik deze handmatig (met een macro) laat verbergen. Weet iemand hoe ik dit in orde kan krijgen?

Groet,
Bratox

 

[huijb]

@Bratox Deze vraag mag met rust gelaten worden. Vraag is behoorlijk gedateert. Tevens graag een eigen vraag maken. Je breekt nu in iemand anders zijn vraag in, hetgeen niet is toegestaan.