Probleem met blad vergrendelen HELP!

Status
Niet open voor verdere reacties.
R

rositasijm

Gebruiker
Lid geworden
20 jun 2017
Berichten
11
Hallo allemaal!

Ik ben momenteel bezig met het ontwerpen van een planning voor een bedrijf. Hierbij wil ik dat het blad wordt geblokkeerd wanneer iemand meer uren inplant dan dat er beschikbaar zijn. Het gaat allemaal goed tot het blokkeren van het blad, dit doet hij niet. Ik gebruik de code ActiveSheet.Protect.

Alvast bedankt!

Rosita Sijm
 
Hoi Rosita, welkom op het forum:)
Post eventjes een representatief vb bestandje met wat je al hebt en waar het fout loopt (zonder gevoelige info natuurlijk:thumb:)
 
In de module van Blad1

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
  If Range("D5") < 0 Then Protect Else Unprotect
End Sub
 
Laatst bewerkt:
Misschien dat ik een domme fout maak hoor, maar hij doet het nog steeds niet..?
 
Wijzig de naam in B2 en zie wat er gebeurt.
 

Bijlagen

  • voorbeeld-1.xlsb
    18,2 KB · Weergaven: 25
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan