gegevensvalidatie en/of beveiliging toepassen

[Niels28]

Ik was eerder

Niels

 

[Niels28]

dan voeg je toch deze regel toe

 .Range("A1:H101").Locked = true

Niels

 

[xmir]

haha je was inderdaad eerder . Ik ga die laatste nog ff proberen

 

[xmir]

Yes helemaal geweldig! Nu alleen nog iets verzinnen dat niet iedereen die macro's uit kan voeren maar dat moet vast ook te beveiligen zijn
Bedankt in elk geval voor al je hulp. Ik zal dit onderwerp nu echt gaan afsluiten en voor evt verdere vragen een nieuw onderwerp beginnen anders blijven we bezig

Groetjes Mirjam

 

[Niels28]

voeg het volgende toe

If inputbox("wachtwoord") = "test" then
rest code
end if

Niels

 

[xmir]

Voeg ik dat onderaan elke macro toe?

 

[Niels28]

Ja bij elke macro.
Nee niet onderaanmaar je macro staat er tussen .

Niels

 

[xmir]

hmh krijg foutmelding...

Kun je in deze laten zien waar ik de toevoeging moet plaatsen?

Sub beveiliging_uit()
'
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If InStr("vaste werktijden|lijsten|Rooster tmpl|Instructie", sh.Name) = 0 Then
With sh
.Unprotect Password:="1234"
.Range("I5:AT101").Locked = True
End With
End If
Next
Application.ScreenUpdating = True


End Sub

 

[xmir]

Sorry...heb ik toch nog een vraag...probeer het zelf te vinden maar lukt niet...
Kan ik in de validatie macro ook de tekst invoeren die mensen te zien krijgen zoals je handmatig het foutbericht in kunt vullen?

 

[Niels28]

voor de fout melding voeg deze 2 toe:

        .ErrorTitle = "foutje"
        .ErrorMessage = "Je hebt een foutje gemaakt"

voor wachtwoord

Sub beveiliging_uit()

Application.ScreenUpdating = False
    If InputBox("wachtwoord") = "test" Then
        For Each sh In ThisWorkbook.Worksheets
            If InStr("vaste werktijden|lijsten|Rooster tmpl|Instructie", sh.Name) = 0 Then
                With sh
                    .Unprotect Password:="1234"
                    .Range("I5:AT101").Locked = True
                End With
            End If
        Next
    End If
Application.ScreenUpdating = True

End Sub

Niels

 

[Niels28]

Pssst niet door vertellen.....
maar als je de macrorecorder aanzet en je voert dan je stappen van de validatie uit kun je precies zien wat er gebeurt.

Niels

 

[xmir]

goeie tip...zal het niet doorvertellen
Het werkt overigens prima ik krijg alleen geen foutmelding als ik het verkeerde wachtwoord invul bij de macro's .... ik durf het bijna niet te vragen....maarrrr dat kan vast ook nog ertussen ergens?
Ik heb nu overigens wel door wat ik fout deed met het wachtwoord en begin het een heeeel klein beetje door te krijgen dus ik leer hier een hoop van

 

[Niels28]

onderaan de code net boven de laatste END IF

else
msgbox "Wachtwoord is incorrect"

Niet bang zijn om vragen te stellen , daar is deze site voor en als ik genoeg van je heb geef ik gewoon geen antwoord meer



Niels

 

[xmir]

haha dat zou jammer zijn....tis net zo gezellig

 

[xmir]

Tsjonge ik geloof dat ik hem nu toch helemaal heb zoals ik wil (voorlopig )
Nogmaals super bedankt voor je geduld en uitleg!!

Groetjes Mirjam