Één werkblad van wachtwoord voorzien

[Smartguy]

Beste,

Is het mogelijk in Excel (zonder VB) slechts één of meerdere werkbladen, maar niet alle werkbladen te beveiligen met een wachtwoord? Dus bijvoorbeeld als een gebruiker op Blad2 zou klikken hij een wachtwoord moet invoeren.

Een simpele VB mag ook, maar niet te uitgebreid aub.

Alvast bedankt!

 

[Wigi]

Beste,

Is het mogelijk in Excel (zonder VB) slechts één of meerdere werkbladen, maar niet alle werkbladen te beveiligen met een wachtwoord? Dus bijvoorbeeld als een gebruiker op Blad2 zou klikken hij een wachtwoord moet invoeren.

Een simpele VB mag ook, maar niet te uitgebreid aub.

Alvast bedankt!

M.a.w. de vraag is dus:

beveilig 1 of meerdere sheets, op de simpelst mogelijke manier...

 

[Smartguy]

Ja, maar nu nog het antwoord...

 

[Wigi]

Hier staat het antwoord te lezen.

Wigi

 

[Wigi]

Ik heb de code van Dave Hawley van Ozgrid aangepast.

Option Explicit

Dim sLast As Object

Private Sub Workbook_Open()
    'Zorg ervoor dat het eerste blad geactiveerd wordt als het bestand geopend wordt
    If Sheets(1).Name <> ActiveSheet.Name Then Sheets(1).Select
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim strPass As String
    Dim lCount As Long
    
    If Sh.CodeName <> Sheets(1).CodeName Then
       'De variabele sLast krijgt de naam van het eerste blad.
       'Bij fout paswoorden wordt dat getoond. (of als er niets ingegeven wordt als paswoord).
       Set sLast = Sheets(1)
       
       'Hide Columns
       Sh.Columns.Hidden = True
           'De gebruiker heeft 3 kansen
            For lCount = 1 To 3
                strPass = InputBox(Prompt:="Geef het paswoord in aub.", Title:="Paswoord ingave")
                    If strPass = vbNullString Then 'er wordt Annuleren gekozen
                        sLast.Select
                        Exit Sub
                    ElseIf strPass <> "Wigi" Then 'Fout paswoord
                        MsgBox "Fout paswoord opgegeven." & vbCr & vbCr & "(Je hebt nog " & 3 - lCount & " pogingen).", _
                        vbCritical, "www.wimgielis.be"
                    Else 'Juist paswoord
                       Exit For
                    End If
            Next lCount
        
            If lCount = 4 Then '3 foute pogingen
                sLast.Select
                Exit Sub
            Else 'Er was een juist paswoord, gebruiker mag verder
                Sh.Columns.Hidden = False
            End If
    End If
End Sub

Je kan enkel het eerste blad in de file bekijken. Voor de andere is een paswoord nodig. Het paswoord is "Wigi" (verander maar hoor )

Wigi

 

[Wigi]

Enneuh Ferenc, eentje voor onder de kerstboom hoor... :thumb:

(Dave Hawley's verdienste, niet die van mij, uiteraard)

Groeten

Wigi

 

[jofred]

Hele handige tip voor de beveiliging.
Is alleen te omzeilen door de macro's uit de schakelen.

Via onderstaande link kun je lezen hoe je kunt afdwingen dat macro's worden gebruikt, of beter gezegd dat je Excel-bestand onbruikbaar wordt als de macro's uitgeschakeld zijn.


http://www.quandan.nl/tip.php?qdDocumentID=0000000001

 

[Wigi]

http://www.quandan.nl/tip.php?qdDocumentID=0000000001

Mooie lectuur, thx.

Jofred, kan je een grotere lettergrootte gebruiken in je posts, dat maakt het beter leesbaar.

Wigi

 

[jofred]

Wigi

Zal ik doen
Zo beter??

Jofred

 

[Wigi]

Wigi

Zal ik doen
Zo beter??

Jofred

Perfect

Ik zie dat je met size werkt, dat hoeft niet. Gewoon typen en alles komt in orde.