• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Inhoud tabblad beveiligen met password

Status
Niet open voor verdere reacties.

lobelvin

Gebruiker
Lid geworden
22 okt 2014
Berichten
227
Hallo,

hoe kan ik een tabblad beveiligen met een password:
- Wanneer op een tabblad geklikt wordt mag de inhoud NIET zichtbaar zijn, maar wel een popup om een password in te geven.
- Wanneer het bestand gesloten wordt en later terug geopend wordt mag het bewuste tabblad uiteraard niet terug zichtbaar worden alvorens opnieuw het password ingegeven is, maar openen bijvoorbeeld op een ander tabblad dat wel mag gezien worden.
Dus de inhoud van een bepaald tabblad moet ten aller tijden onzichbaar zijn, behalve als men het password kent natuurlijk.

In bijgevoegd bestand moet de inhoud van tabblad "grafiek" onzichtbaar blijven als men het aanklikt en moet er een password ingegeven worden, bij sluiten van het bestand of verlaten van het tabblad moet de inhoud van het tabblad "grafiek" uiteraard terug automatisch beveiligd/vergrendeld worden.Bekijk bijlage testbestand.xlsm

weet iemand een oplossing aub?

Alvast bedankt,
Danny
 
Zoiets?

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Shapes("Chart 4").Visible Then Shapes("Chart 4").Visible = InputBox("ww") = "WW"
End Sub
 
Hallo VenA,

zou je deze VBA code eens kunnen toepassen op het voorbeeld bestandje aub want het lukt niet of doe iets verkeerd.:o

alvast bedankt,
Danny
 
Wat lukt er niet krijg je een foutmelding of weet je niet hoe je de grafiek eerst moet verbergen?

In de module van Thisworkbook
Code:
Private Sub Workbook_Open()
  Sheets("Grafiek").Shapes("Chart 4").Visible = 0
End Sub

In de module van het blad 'Grafiek'
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Shapes("Chart 4").Visible Then Shapes("Chart 4").Visible = InputBox("ww") = "WW"
End Sub

Nb. Als je een project overzichtelijk wilt houden dan kan je niet bladspecifieke code beter in een gewone module zetten.
 

Bijlagen

Besef wel dat de beveiliging in minder dan 1 minuut er af te halen is... en die tijd heb je alleen maar nodig om wat handelingen te doen, niet omdat het moeilijk is.

Hoe dat moet is ook niet geheim: dat vind je heel eenvoudig met Google....
Je hebt er niet eens een kraak programma voor nodig.. een aantal regels met letters op een bepaalde plaats zetten en klaar is Kees...

De enige reden om er een wachtwoord erop te zetten is dat er niet per ongeluk iets veranderd wordt...
 
Laatst bewerkt:
hallo iedereen,

bedankt al voor de hulp, maar een beetje eenvoudiger uigelegd:
in 1 tabblad in gans het excel bestand mag de totale inhoud niet zichtbaar zijn als het aangeklikt wordt, wanneer het bewuste tabblad aangeklikt wordt moet er een inputbox verschijnen om een password in te geven, alvorens de inhoud kan zichtbaar/bewerkt worden.

alvast bedankt,
Danny
 
Kan je niet beter het tabblad altijd verbergen en openen via een specifieke login?
In het voorbeeld kan je aangeven welke login, welk tabblad mag zien.
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan