• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro automatisch vinkje geblokkeerd aan en uitzetten

Status
Niet open voor verdere reacties.
O

ozzyozzy

Gebruiker
Lid geworden
3 jul 2009
Berichten
126
Hoi allemaal,

ik wil de volgende uitvoeren, maar is mij nog niet gelukt. ik mis nog wat codes.
zodra cell A1 ''JA'' staat moeten het vinkje van geblokkeerd gevinkt staan voor range A6:AF31 tabblad planning 1 en 2 en 3 na klikken op macro.
zodra cell A1 ''nee'' staat moeten het vinkje van geblokkeerd uitstaan voor range A6:AF31 tabblad planning 1 en 2 en 3 na klikken op macro.

zie bijlage voor excel bestand.

alvast bedankt voor u reacties.

Bedoeling is dat ik niet telkens via Celeigenschappen> Bescherming> Geblokkeerd het vinkje aan en uit hoef te zetten voor een bepaalde range.
 

Bijlagen

  • namen test1 - kopie.xlsm
    63,5 KB · Weergaven: 49
  • geblokkeerd cellen aanklikken en uitzetten.JPG
    geblokkeerd cellen aanklikken en uitzetten.JPG
    136,4 KB · Weergaven: 66
Laatst bewerkt:
Neem er een macro voor op, pas die aan en gebruik die dan in de Worksheet_Change module.
 
Waarom staat deze vraag in deze sectie. Waarom al die samengevoegde cellen? Kolommen kan je ook breder maken.
 
Verplaatst naar Office > Excel
 
Leuk dat je een macrocode gebruikt uit je vorige vraag waar nog niemand een reactie op heeft gekregen.
Als dat teveel moeite kost waarom zouden we nog langer helpen?

Ps. trouwens is die actie niet nodig als je gewoon de bladbeveiliging opheft alvorens de bewuste macro uitvoert.
De bladbeveiliging opheffen kan gelijkertijd in dezelfde macro.
 
Laatst bewerkt:
Mijn vraag is meer afzonderlijk handeling bepaalde range bij nee of ja via cel a1 vinkje wel of niet aan geblokkeerd.
bladbeveiliging weet ik al maar Zoiets zoek ik niet.
Heb al macro opgenomen en aangepast maar is me niet helemaal gelukt.
Wie kan mij met zo’n topic helpen? Ben nieuwsgierig of zoiets lukt?
 
Er staan wat vragen waar je nog geen antwoord op hebt gegeven.
 
Probeer dit eens:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        Range("A6:AF33").Locked = IIf(LCase(Target.Value) = "ja", True, False)
    End If
End Sub

Dan hoef je ook nergens op te klikken.
 
Laatst bewerkt:
De Iif constructie kan je weglaten Ed.
 
edmoor zei:
Probeer dit eens:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        Range("A6:AF33").Locked = IIf(LCase(Target.Value) = "ja", True, False)
    End If
End Sub

Dan hoef je ook nergens op te klikken.
Klik om te vergroten...

ik was benieuwd of zoiets mogelijk was, is gelukt bedankt.
 
Ok dan :)
 
Laatst bewerkt:
Zo bedoelde ik.
Code: 
 Range("A6:AF33").Locked = LCase(Target.Value) = "ja"
 
hoi allemaal,

ik had nog een vraag ik weet niet of het mogelijk is?
De onderstaande is speciaal bedoelt voor in een sheet acties te regelen ja/nee om cellen te blokkeren en weer vrij te geven Dat is perfect en werkt goed, maar is er ook een optie met een macro button in thisworkbook om alleen ''A1'' blokkade met 1 klik eraf te halen en weer op te zetten op alle sheets tegelijkertijd?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Range("A6:AF33").Locked = IIf(LCase(Target.Value) = "ja", True, False)
End If
End Sub
 
Tuurlijk kan dat.
Maar wat bedoel je met "alleen ''A1'' blokkade"?
 
ik bedoel alleen voor cell A1 celeigenschappen> Bescherming> Geblokkeerd (vinkje aan en uit) met macro button
 
Zoiets dan:
Code: 
Sub CommandButton1_Click()
    For Each sh In ThisWorkbook.Sheets
        sh.Range("A1").Locked = False
    Next sh
End Sub
 
blokkade range FI en FK aan de hand van button

Ik heb even gepost.
 

Bijlagen

  • namen test (3)1.xlsm
    29,9 KB · Weergaven: 37
Want #16, wat doet wat je in #15 vraagt, heb je al getest?
 
ik heb het al getest maar werkte niet. ik heb de geteste versie niet gepost.

planning 1 FI2, FI5 en FI9

planning FK4 FK5 en FK9


deze dienen aan de hand van button (vinkje aan en uit) celeigenschappen> Bescherming> Geblokkeerd.
 
Laatst bewerkt:
Kan wel kloppen; het werkt wel, maar niet op die bladen en cellen. ;)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan