hoe kan ik mij werkblad beveiligen

[tepke]

Hoi

Ik heb een vba programmaatje gemaakt, hierin worden de cellen gevuld doormiddel van formulieren. ik eigenlijk dat de gebruiker niet zelf in de sheets gaat zitten rommelen.
de formulieren vullen de sheet. ik heb geprobeerd om e werkbladen te beveiligen maar dan loopt mijn programma vast.

is hier een oplossing voor die ik kan gebruiken?

 

[lam201]

Hi Tepke,

je kunt in je vba programmaatje afsluiten met deze regel:

Sheets("Sheet1").Protect

het werkblad wordt dan beveiligd.
Maar je moet dan je VBA beginnen met

Sheets("Sheet1").Unprotect

Anders kan je geen gegevens wegschrijven op het werkblad.

Lambert

 

[mcs51mc]

Zet deze code in een nieuwe module, je kan het dan aanroepen vanuit je eigenlijke code

Public Sub UnProtectDataSheet(DataSheet As Worksheet, PW As String)

    DataSheet.Unprotect (PW)
    
End Sub



Public Sub ProtectDataSheet(DataSheet As Worksheet, PW As String)

    'Paswoord op worksheet zetten
    DataSheet.Protect Password:=PW, _
                      DrawingObjects:=False, _
                      Contents:=True, _
                      Scenarios:=True, _
                      UserInterfaceOnly:=True, _
                      AllowFormattingRows:=True, _
                      AllowInsertingRows:=True, _
                      AllowInsertingHyperlinks:=True
    
End Sub

paswoord wegnemen doe je dan zo

Call UnProtectDataSheet(MySheet, "DitIsMijnPW")

paswoord terug zetten doe je dan zo

Call ProtectDataSheet(MySheet, "DitIsMijnPW")