Cellen blokkeren/beveiligen dmv inhoud in andere cel.

[jaggy1962]

Wie kan mij helpen.

Ik heb een beveiligd bestand (wachtwoord) met geblokkerde cellen en niet geblokkeerde cellen.
Ik heb een lijstje gemaakt met valideren van Ja en Nee in cel C8
Nu wil ik als ik in cel C8 ja kiest dat de niet geblokkerde cellen F15 tot en met F19 en
F21 tot en met F25 werden geblokkeerd, dus dat je ze niet meer kan selecteren en invullen.
En als je Nee kiest dat het wel weer kan.
Is dit mogelijk wie kan me helpen.
Alvast bedankt.

Mvrgr Jaggy

 

[robinvdveeken]

Zou het een optie zijn om ze helemaal te verbergen zodat je ze ook niet meer ziet?

Gr. Robin

 

[Warme bakkertje]

Plaats deze in de bladmodule van het betreffende werkblad

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$8" Then
    Blad2.Unprotect "jouw wachtwoord"
        If Target.Value = "Ja" Then
            Union([F15:F19], [F21:F25]).Locked = True
        Else
            Union([F15:F19], [F21:F25]).Locked = False
        End If
    Blad2.Protect "jouw wachtwoord"
    End If
End Sub

 

[jaggy1962]

Plaats deze in de bladmodule van het betreffende werkblad

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$8" Then
    Blad2.Unprotect "jouw wachtwoord"
        If Target.Value = "Ja" Then
            Union([F15:F19], [F21:F25]).Locked = True
        Else
            Union([F15:F19], [F21:F25]).Locked = False
        End If
    Blad2.Protect "jouw wachtwoord"
    End If
End Sub

Beste Rudi,

Ik heb dit gedaan maar ik krijg een compileerfout namelijk:
Er is een dubbelzinnige naam gevonden:Worksheet_Change.
Wat betekent dit of wat doe ik fout.
Alvast bedankt.

Mvrgr
Maarten

 

[jaggy1962]

Zou het een optie zijn om ze helemaal te verbergen zodat je ze ook niet meer ziet?

Gr. Robin

Beste Robin,

Nee dit is geen optie.

Mvrgr.
Maarten

 

[ExcelAmateur]

jaggy1962,

Ik heb dit gedaan maar ik krijg een compileerfout namelijk:
Er is een dubbelzinnige naam gevonden:Worksheet_Change.
Wat betekent dit of wat doe ik fout.

Je moet de code achter het blad plaatsen, als het achter het blad leeg is (VBA) zal je geen Melding krijgen.
Het kan ook zijn dat je al een Worksheet_Change heb gebruikt.
Suc6

 

[jaggy1962]

jaggy1962,


Je moet de code achter het blad plaatsen, als het achter het blad leeg is (VBA) zal je geen Melding krijgen.
Het kan ook zijn dat je al een Worksheet_Change heb gebruikt.
Suc6

Ik heb de code achter het blad geplaatst.
Ik heb ook al een worksheet-change gebruikt, kan je dit dan geen 2x of meerdere keren doen en als het wel kan hoe moet ik dit dan doen?

mvrgr
maarten

 

[ExcelAmateur]

jaggy1962,

Ik heb ook al een worksheet-change gebruikt

Volgens mij kun je dit maar 1x gebruiken.
Kun je de code er niet bij plaatsen? uiteraard zonder de bovenste en onderste regels.

 

[Warme bakkertje]

Neen, je kan een Event-macro maar 1x gebruiken in dezelfde bladmodule. Je zal beide moeten samenvoegen.

Edit: iemand was me al voor :d

 

[jaggy1962]

Neen, je kan een Event-macro maar 1x gebruiken in dezelfde bladmodule. Je zal beide moeten samenvoegen.

Edit: iemand was me al voor :d

Hoi,

Het is gelukt als ik alleen Ja en Nee in het lijstje heb werkt het perfect.
Maar nu wil ik in het lijsje een lege cel toevoegen, dus dat je in eerste instantie geen Ja of Nee ziet staan.
Dan als ik de lege cel selecteer moeten ook de cellen geblokkeerd worden.
Hoe doe ik dit?

Nu staat deze code er
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$7" Then
Blad13.Unprotect "jaggy"
If Target.Value = "Nee" Then
Union([F19:F22], [F25:F28]).Locked = True
Else
Union([F19:F22], [F25:F28]).Locked = False
End If
Blad13.Protect "jaggy"
End If
End Sub

Alvast bedankt