aparte werkbladen openen dmv wachtwoord

[Paultje06]

Ik heb een excel file met de urenregistratie per medewerker. Elke medewerker heeft zijn eigen tabblad.
Nu wil ik de medewerkers via het netwerk toegang geven tot deze file maar alleen tot hun eigen werkblad.

Is dit te regelen?

 

[Paultje06]

Ik heb een voorbeeldje van hoe het eruit moet komen te zien bijgevoegd. Ik moet nog een stukje code hebben die de ingevulde tekst bij een invoerbox vergelijkt met een ander stuk tekst.

Alvast erg bedankt voor jullie hulp.

 

[beheer25]

Met iets als hieronder moet het kunnen:

    Dim strInvoer As String
    Dim strWW As String
    
    strWW = Sheets(4).Range("C5").Value
    strInvoer = InputBox("Geef het wachtwoord:", "WW")
    If UCase(strWW) = UCase(strInvoer) Then
        Sheets("Arnold").Visible = True
        Sheets("Arnold").Select
        Range("A1").Select
    Else
        MsgBox "Wachtwoord is fout!", vbExclamation + vbOKOnly, "WW fout!"
    End If

Houdt er alleen wel rekening mee dat iemand met een klein beetje kennis van zaken het zaakje op z'n kop kan zetten.


Grtz,