Sheet beveiligen

[P. Men]

Hoi Wigi,

in de help files kan ik niets vinden over protect in combinatie met het hiden van velden...

Waar zou de code UserInterfaceOnly := True moeten komen volgens jou?

groet,
Pieter

 

[Wigi]

Help files:

typ protect
klik op Protect method
klik op: Protect method as it applies to the Worksheet object.
daar zie je de syntax staan, zo ook UserInterfaceOnly

Ik heb het niet uitgeprobeerd, maar je zal dit eens kunnen proberen:

1. alle sheets in orde maken, met beveiligde cellen
2. een extra stukje code schrijven en uitvoeren: zoiets ongeveer:

Sub opsl()
    ActiveSheet.Protect Password:="jouwpaswoordvoorhetblad", UserInterfaceOnly:=True
End Sub

Zoiets voer je uit voor elk blad.

3. code erop voor het zichtbaar maken van bladen.

Nogmaals, niet getest, maar ik *denk* dat dat moet werken.

Wigi

 

[P. Men]

Hoi Wigi,

thnx voor je hulp!! het is gelukt doet het.

groet, Pieter

 

[Wigi]

Pff, opluchting, ik dacht dat er misschien iets anders aan de hand was, zodat het niet werkte. Goed dat het nu werkt.

Wigi

 

[Barracuda2805]

Misschien lukt het wel met

UserInterfaceOnly := True

Zie in de helpfiles bij Protect.

Wigi

Hoi Wigi,

Is het ook mogelijk om 3 sheets vrij te geven en 3 te blokkeren met password?

Als ik het probeer te wijzigen in de code blokkeerd bij mij sheet 1 en sheet 2 blijft hidden.
Aanpassing =>> Sh.CodeName <> Sheets(1).CodeName naar Sh.CodeName = Sheets(3).CodeName


Gr. B.

 

[Wigi]

Wat is jouw huidige code, en ook de hetgeen je precies gedaan wil krijgen?

 

[Barracuda2805]

Hoi Wigi,

dit is de code, hij werkt bijna perfect. Ik heb steeds problemen bij het "hidden" van sheet 5
error 1004 fout bij instellen, dit wordt gevolgd door de device i/o errors.

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
 On Error GoTo 0
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim strPass As String
    Dim lCount As Long
    
 
    
        If Sh.CodeName = Sheets(4).CodeName Or Sh.CodeName = Sheets(5).CodeName Then
           'De variabele sLast krijgt de naam van het eerste blad.
           'Bij een fout paswoord 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 <> "*****" Then 'Fout paswoord
                            MsgBox "Fout paswoord opgegeven." & vbCr & vbCr & "(Je hebt nog " & 3 - lCount & _
                                " pogingen).", vbCritical, "Error"
                        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 If
End Sub

Ik heb een voorbeeld van mijn werkbestand bijgesloten.
Dank u voor het voorbeeld.

Gr. B.

 

[Barracuda2805]

Hoi Wigi,

ben er in zoverre achter dat het probleem wordt veroorzaakt door een commentaar veld ( het rode driehoekje). Is er een mogelijkheid om kolommen te verbergen wanneer er tevens gebruik wordt gemaakt van comments (commentaar).

Gr. Barracuda

 

[Wigi]

Is er een mogelijkheid om kolommen te verbergen wanneer er tevens gebruik wordt gemaakt van comments (commentaar).

Dus in een aantal cellen zet je een opmerking, en vervolgens verberg je die kolom. Waarom zou dat niet lukken? Als ik dat in een leeg bestandje doe, werkt dat toch. Waarschijnlijk mis ik hier iets in het probleem...