Beveiliging

[xbox360]

Hoi,
Ik heb een lijstje gemaakt met een invulformulier
zodra ik de cellen A2:M2 tot A1000:M1000 ga beveiligen werkt de invulformulier niet meer
net of hij de gegevens niet in de cellen kan zetten
weet iemmand toevalig een oplossing voor dit? :shocked:

dat de cellen wel beveiligd zijn maar de informatie die je invult in de formulier in de cellen komen

Alvast bedankt

Ps de bijlage is erbij

 

[ExcelAmateur]

xbox360,

Ik kan je password niet zien.
Zorg dat als je op opslaan klikt de macro eerst het password eraf haald en onderaan de code dat hij het password er weer op zet.

 

[ExcelAmateur]

xbox360,

Kij of het zo wel werkt.

Private Sub cmdOpslaan_Click()
    Dim x      As Long
    [COLOR="red"]ActiveSheet.Unprotect " "[/COLOR]
    x = Cells(Rows.Count, "A").End(xlUp).Row + 1
    If txtBatchNummer = "" Then MsgBox "Ploegnummer invullen": Exit Sub
    If lstWerkstroom = "" Then MsgBox "Naam invullen": Exit Sub
    If lstDigipost.Enabled = True And lstDigipost = "" Then MsgBox "Parknummer invullen": Exit Sub
    If lstNaamAgent = "" Then MsgBox "Cordinator invullen": Exit Sub
    If txtAantalAfgehandeld = "" Then MsgBox "Tijdoproep invullen": Exit Sub
    Range("A" & x) = txtBatchNummer
    Range("B" & x) = lstWerkstroom
    Range("C" & x) = lstDigipost
    Range("D" & x) = lstNaamAgent
    Range("E" & x) = txtAantalAfgehandeld
    Range("F" & x) = txtAantalRetour
    Range("G" & x) = txtTijd1
    Range("H" & x) = txttijd2de
    Range("I" & x) = txttijd2terug
    Range("J" & x) = txtzout
    Range("K" & x) = txtuitruk
    Range("L" & x) = txtDatum
    [COLOR="red"]ActiveSheet.Protect " "[/COLOR]
    UserForm_Initialize
End Sub

 

[xbox360]

raar

Het werkt wel
maar ik kan de beveiliging er niet afhalen
de wachtwoord klopt niet
kan je het misschien maken dat het wachtwoord gewoon blank is

 

[ExcelAmateur]

Je moet bij dehet onderste stukje code de spatie weg halen.
Nu is het een spatie als password.

ActiveSheet.Protect " "
[COLOR="red"]ActiveSheet.Protect ""[/COLOR]

Dan de code even laten lopen en daarna in de code dit ook doen bij de bovenste.
Dan staat er geen password meer in.

 

[xbox360]

Bedankt

Super het werkt, en heb er aan algemeen wachtwoord aangehangen die wij hier standaard hebben

bedankt voor de snelle reactie en bedankt