Wekbladen zichtbaar maken dmv een knop + ww

[bakkerbg]

He Iedereen,

Ik ben bezig met een programma te maken. Echter moeten 2 soorten mensen in dat bestandje met excel kunnen, namelijk de werknemer die data invoert (hoofsheet) en de administrator. De administrator moet dmv een knop de andere paar sheets zichtbaar maken zodat hij daar inzicht in heeft. Deze knop moet uiteraard beveiligd zijn met een wachtwoord.

Bij voorbaat dank!


Mvg,

Bakker

 

[spaarie]

Beste Bakker,

Je zou de tabbladen ook kunnen "verbergen" van andere medewerkers en dan de werkmap beveiligen met wachtwoord (niet het werkblad). Dan kan de medewerker zijn eigen blad invullen, maar niet andere tabbladen zichtbaar maken.

 

[bakkerbg]

Dat begrijp ik, maar dat is niet mijn vraag.

 

[spaarie]

Mijn welgemeende excuses uwe excellentie, dat deze nederige bescheide persoon een suggestie doet om dit euvel te overkomen........

 

[Valentin]

Werkbladen zichtbaar maken dmv een knop + ww

Open het bestand van de bijlage wachtwoord.xlsm, druk F11, verander in de code ww door uw wachtwoord sluit de vb editor en sla het bestand op.

Om het wachtwoord in te geven druk CTRL+SHIFT+W

Bij het sluiten van het bestand wordt het blad2 automatisch verborgen

Sub Wachtwoord()
Dim Wachtwoord
Wachtwoord = InputBox("Geef aub het wachtwoord in", "Wachtwoord", "********")


If Wachtwoord = "ww" Then
MsgBox "Toegang verleend", vbInformation, "Wachtwoord correct"
ToonBlad
Exit Sub
Else
MsgBox "Toegang geweigerd", vbCritical, "Fout wachtwoord"
Exit Sub
End If
End Sub