Note: The other languages of the website are Google-translated. Back to English
Inloggen Registreren

Hoe cellen te vergrendelen of ontgrendelen op basis van waarden in een andere cel in Excel?

In sommige gevallen moet u cellen mogelijk vergrendelen of ontgrendelen op basis van waarden in een andere cel. U hebt bijvoorbeeld het bereik B1: B4 nodig om te worden ontgrendeld als cel A1 de waarde "Accepteren" bevat; en te vergrendelen als cel A1 de waarde "Weigeren" bevat. Hoe kunt u dit bereiken? Dit artikel kan je daarbij helpen.

Vergrendel of ontgrendel cellen op basis van waarden in een andere cel met VBA-code

Vergrendel of ontgrendel cellen op basis van waarden in een andere cel met VBA-code

De volgende VBA-code kan u helpen cellen te vergrendelen of ontgrendelen op basis van waarde in een andere cel in Excel.

1. Klik met de rechtermuisknop op de bladtab (het blad met cellen die u moet vergrendelen of ontgrendelen op basis van waarden in een andere cel), en klik Bekijk code vanuit het rechtsklikmenu.

2. Kopieer en plak vervolgens de volgende VBA-code in het codevenster.

VBA-code: cellen vergrendelen of ontgrendelen op basis van waarden in een andere cel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = "Accepting" Then
        Range("B1:B4").Locked = False
    ElseIf Range("A1") = "Refusing" Then
        Range("B1:B4").Locked = True
    End If
End Sub

3. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.

Vanaf nu, wanneer u de waarde "Accepteren" invoert in cel A1, wordt het bereik B1: B4 ontgrendeld.

Wanneer u de waarde "Weigeren" invoert in cel A1, wordt het opgegeven bereik B1: B4 automatisch vergrendeld.

Gerelateerde artikelen:

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (52)
Nog geen beoordelingen. Beoordeel als eerste!
Blad Rao
Blad Rao
Deze opmerking is gemaakt door de moderator op de site
Hoe kan een variabele cel worden vergrendeld/ontgrendeld, bijvoorbeeld wanneer de cel [=INDEX(A16:L35,MATCH(W5,A16:A35,0),MATCH("PAY",A16:L16,0))] is
Antwoorden
0
0
Mohammed Mandlaywala
Mohammed Mandlaywala     Blad Rao
Deze opmerking is gemaakt door de moderator op de site
Ik wil een eenvoudig VBA-commando waar ik niet achter kan komen, help alstublieft
Als cel A1 Balnk is, is cel A2 vergrendeld en als cel A1 een waarde bevat, is cel A2 ontgrendeld
Evenzo, als cel A2 leeg is, is cel A3 vergrendeld en als cel A2 een waarde bevat, is cel A3 ontgrendeld
enzovoort zoveel cellen als per vereiste in een deel van het blad.
Antwoorden
0
0
Mier
Mier
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik probeer dit te bereiken, maar ik krijg een foutmelding dat VBA de eigenschap Locked van de Range-klasse niet kan instellen als het blad is beveiligd. Als u de bescherming van het blad opheft, wordt de cel vervolgens niet vergrendeld. Hoe dit te omzeilen? Bedankt voor alle hulp.
Antwoorden
0
0
Memo
Memo     Mier
Deze opmerking is gemaakt door de moderator op de site
Heb je het opgelost? ik heb hetzelfde probleem
Antwoorden
0
0
crystal
crystal     Memo
Deze opmerking is gemaakt door de moderator op de site
Beste memo,
Probeer de onderstaande VBA-code eens.

Privé subwerkblad_Activate()
Indien niet ActiveSheet.ProtectContents Dan
Bereik ("A1"). Vergrendeld = False
Bereik ("B1:B4"). Vergrendeld = False
End If
End Sub
Privé subwerkblad_SelectionChange (ByVal-doel als bereik)
Dim xRg als bereik, xRgA als bereik
On Error Resume Next
Application.EnableEvents = False
Stel xRg = Bereik ("B1:B4") in
Stel xRgA = bereik ("A1") in
If Intersect(Doel, xRg).Adres <> Doel.Adres _
Of xRgA = "Accepteren" Dan
Application.EnableEvents = Waar
Exit Sub
ElseIf ActiveSheet.ProtectContents _
En Intersect(Target, xRg) = Target _
En xRgA.Value = "Weigeren" Dan
xRgA.Selecteer
End If
Application.EnableEvents = Waar
End Sub
Antwoorden
Rapport
0
0
Henry
Henry     Mier
Deze opmerking is gemaakt door de moderator op de site
U zult de interfaceregel in de werkmap willen gebruiken, zodat wanneer u het bestand opent, de bladen worden beschermd, maar macro's toch wijzigingen kunnen aanbrengen;

Private Sub Workbook_Open() 'Dit gaat in "ThisWorkbook"

Worksheets ("Order Tool").Bescherm wachtwoord:="Pwd", UserInterFaceOnly:=True

End Sub
Antwoorden
0
0
crystal
crystal     Mier
Deze opmerking is gemaakt door de moderator op de site
Beste mier,
De onderstaande VBA-code kan u helpen dit probleem op te lossen. Bedankt voor je reactie.

Privé subwerkblad_Activate()
Indien niet ActiveSheet.ProtectContents Dan
Bereik ("A1"). Vergrendeld = False
Bereik ("B1:B4"). Vergrendeld = False
End If
End Sub
Privé subwerkblad_SelectionChange (ByVal-doel als bereik)
Dim xRg als bereik, xRgA als bereik
On Error Resume Next
Application.EnableEvents = False
Stel xRg = Bereik ("B1:B4") in
Stel xRgA = bereik ("A1") in
If Intersect(Doel, xRg).Adres <> Doel.Adres _
Of xRgA = "Accepteren" Dan
Application.EnableEvents = Waar
Exit Sub
ElseIf ActiveSheet.ProtectContents _
En Intersect(Target, xRg) = Target _
En xRgA.Value = "Weigeren" Dan
xRgA.Selecteer
End If
Application.EnableEvents = Waar
End Sub
Antwoorden
Rapport
0
0
Christelijk
Christelijk     crystal
Deze opmerking is gemaakt door de moderator op de site
Hoi,

Is het mogelijk om deze VBA een set cellen te laten vergrendelen / een andere te laten ontgrendelen op basis hiervan? Bereik B1:B4 is bijvoorbeeld ontgrendeld en C1:C4 is vergrendeld voor "accepteren" en vervolgens wordt B1:B4 vergrendeld en wordt C1:C4 ontgrendeld voor "weigeren"?


Hartelijk dank,
Christelijk
Antwoorden
0
0
crystal
crystal     Christelijk
Deze opmerking is gemaakt door de moderator op de site
Beste christen,
Is je werkblad beveiligd?
Antwoorden
Rapport
0
0
Leeuw
Leeuw
Deze opmerking is gemaakt door de moderator op de site
kan iemand me alsjeblieft helpen met het volgende.
Ik wil foto's van studenten invoegen in één blad, verschijnt in een ander blad op basis van hun naam
Een navigatievliegtuig maken om gebruikers te helpen
Een bepaald blad of bepaalde bladen aan een gebruiker toewijzen
Een interface voor de werkmap maken
Een inlogpagina maken
Antwoorden
0
0
crystal
crystal     Leeuw
Deze opmerking is gemaakt door de moderator op de site
Beste Leeuw,
Heeft u een vraag over Excel, aarzel dan niet om op ons forum te posten: https://www.extendoffice.com/forum.html.
U krijgt meer ondersteuning over Excel van onze Excel-professional.
Antwoorden
Rapport
0
0
Christoffel
Christoffel
Deze opmerking is gemaakt door de moderator op de site
Hallo,

Ik heb je code geprobeerd en een beetje bewerkt, maar ik kan er niet achter komen wat ik hier verkeerd doe?

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Bereik ("A40") <> "" Dan
Bereik ("D40:E40"). Vergrendeld = False
ElseIf Range("A40") = "" Dan
Bereik ("D40:E40"). Vergrendeld = True
End If
End Sub


Mijn bedenking was als er niets in zit (A40). Dan wil ik op slot door VBA. Als de A40 iets bevat, wil ik dat het wordt ontgrendeld. Ik hoop dat je de zin ervan kunt inzien.


Groetjes Kristoffer
Antwoorden
0
0
crystal
crystal     Christoffel
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Er is niets mis met je code. Het werkt goed voor mij.
Antwoorden
Rapport
0
0
KeeranB
KeeranB     crystal
Deze opmerking is gemaakt door de moderator op de site
Hoi. Ook ik krijg deze code niet werkend. Het doet helemaal niets. Alsof de code er niet eens is?? Ik ben erg nieuw in VBA en heb er een basiskennis van. Wordt deze code uitgevoerd zoals hij is, of moeten er ook dingen aan zijn toegevoegd om te kunnen werken? Of omgezet in een macro (waarvan ik niet echt begrijp waarom, want dat is een opname van instructies, voor zover ik ze begrijp)
Antwoorden
0
0
SHAINA
SHAINA
Deze opmerking is gemaakt door de moderator op de site
WAT ZAL DE CODE ZIJN ALS IK CEL E1, E2, E3 WIL VERGRENDELEN .............. VOOR SPECIFIEKE TEKST (LATEN WE ZEGGEN "P") OP CEL B1, B2, B3... ..............RESPECTIEVELIJK.

Dank bij voorbaat
Antwoorden
0
0
crystal
crystal     SHAINA
Deze opmerking is gemaakt door de moderator op de site
Goede dag
Probeer het onderstaande VBA-script.

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Target.Count = 1 Dan
Als Target.Address = Range("A1").Address And Target.Value = "A" Dan
Bereik ("B1"). Vergrendeld = True
ElseIf Target.Address = Range ("A2").Address And Target.Value = "A" Dan
Bereik ("B2"). Vergrendeld = True
ElseIf Target.Address = Range ("A3").Address And Target.Value = "A" Dan
Bereik ("B3"). Vergrendeld = True
End If
End If
End Sub
Antwoorden
Rapport
0
0
Spook
Spook     crystal
Deze opmerking is gemaakt door de moderator op de site
Goede dag!
Мне тоже необходимо заблокировать значение, но только в одной ячейке в зависимости от значения в другой, я попробовала использовать код в комментарии выше, но он не работает(оставила только один параметр для блокировки), но он у меня не работает - при этом нет сообщения Als u dit doet, moet u het apparaat - het is mogelijk om het apparaat te verwijderen. Wil je weten hoe het zit?

Wat je moet doen, is het volgende:

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Target.Coun t=1 Dan
If Target.Address = Range("C9").Address en Target.Value = "согласно плану" Dan
Bereik ("C10"). Vergrendeld = Waar
End If
End Sub
Antwoorden
0
0
crystal
crystal     Spook
Deze opmerking is gemaakt door de moderator op de site
Hallo Ghost,
Het spijt me dat ik niet helemaal begrijp wat je bedoelt. Voeg voor de duidelijkheid een voorbeeldbestand of een screenshot toe met uw gegevens en de gewenste resultaten.
Antwoorden
Rapport
0
0
margie
margie
Deze opmerking is gemaakt door de moderator op de site
Hoi! wat advies nodig.
Is er een manier om niet toe te staan ​​dat een cel wordt bijgewerkt, tenzij deze heeft voldaan aan een voorwaarde op een andere cel?
Voorbeeld: als cel A niet is bijgewerkt, kan ik de waarde van cel B niet wijzigen om te voltooien.

Waardeer de feedback.
Bedankt!
Antwoorden
0
0
crystal
crystal     margie
Deze opmerking is gemaakt door de moderator op de site
Beste Margje,
Probeer onderstaande VBA-code.

Dim PreVal als tekenreeks
Dim NextVal als tekenreeks
Privé subwerkblad_Activate()
PreVal = Bereik ("A1")
VolgendeWaarde = Bereik ("A1")
End Sub
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als (Target.Count = 1) En (Target.Address = "$A$1") Dan
VolgendeWaarde = Bereik ("A1")
End If
End Sub
Privé subwerkblad_SelectionChange (ByVal-doel als bereik)
Als Target.Count = 1 Dan
Als Target.Address = "$A$1" Dan
PreVal = Bereik ("A1")
ElseIf (Target.Address = "$B$1") Dan
Als PreVal = NextVal Dan
Application.EnableEvents = False
Bereik ("A1"). Selecteer
Application.EnableEvents = Waar
End If
End If
End If
End Sub
Antwoorden
Rapport
0
0
Horace
Horace
Deze opmerking is gemaakt door de moderator op de site
kan iemand dit corrigeren pls>>>

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Voor i = 7 Om 100
If Range("Cells(D, i)") = "Lening" Dan
Bereik ("Cellen (V, i): Cellen (X, i)"). Vergrendeld = True
ElseIf Range("Cellen(D, i)") = "Besparingen" Dan
Bereik ("Cellen (Q, i): Cellen (U, i)"). Vergrendeld = True
Bereik ("Cellen (W, i): Cellen (X, i)"). Vergrendeld = True
ElseIf Range("Cells(D, i)") = "ShareCap" Dan
Bereik ("Cellen (Q, i): Cellen (U, i)"). Vergrendeld = True
Bereik ("Cellen (V, i)"). Vergrendeld = True
End If
Volgende i
End Sub
Antwoorden
0
0
Mira
Mira
Deze opmerking is gemaakt door de moderator op de site
Hoi! Kan iemand mij helpen? Ik moet een cel vergrendelen/bevriezen. Die cel is gekoppeld aan een andere en heeft een waarde die elke minuut verandert. Wat ik moet doen, is de waarde voor een bepaalde minuut / uur behouden. Hoe kan ik dat doen zonder het te kopiëren en als waarde te plakken?
Antwoorden
0
0
crystal
crystal     Mira
Deze opmerking is gemaakt door de moderator op de site
Beste Mira,
Sorry kan hier niet mee helpen, je kunt je vraag stellen in ons forum: https://www.extendoffice.com/forum.html om meer Excel-ondersteuning te krijgen van onze professional.
Antwoorden
Rapport
0
0
Andor Veres
Andor Veres
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Ik ben hier echt nieuw in.
Ik heb geprobeerd om een ​​facturatiesysteem in Excel samen te stellen.
Ik heb 3 vellen gemaakt.
1. Factuursjabloon (Factuur) - Gewoon een generieke factuur die wekelijks naar mijn agenten wordt verzonden.

2. Een gegevensblad (Datablad) om precies te zijn - waar de factuur het bedrijfsnaamadres enz. kan lezen, dus als er iets verandert, wordt de factuur automatisch bijgewerkt.

3. Een kalendertabblad (Kalender 2018) om precies te zijn - waarnaar wordt verwezen in het factuursjabloon en de bijbehorende datum en factuurnummer op de daadwerkelijke facturen worden gezet.

Wat ik wil doen.
Het kalendertabblad zou mijn hoofdpagina zijn, ik heb voor elke week een vervolgkeuzemenu voor de status toegevoegd met de opties "Actief" en "Gesloten". Ik wil het hele tabblad "Factuur" vergrendelen als de bijbehorende cel is ingesteld op "Gesloten".

Ik hoop dat jullie begrijpen wat ik probeer te doen.
Dank bij voorbaat.
Antwoorden
Rapport
0
0
crystal
crystal     Andor Veres
Deze opmerking is gemaakt door de moderator op de site
Beste Ando Veres.
De onderstaande VBA-code kan u helpen. Plaats de code in het bladcodevenster van Kalender 2018, verander A1 in uw vervolgkeuzemenu. Dank u.

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xRg als bereik
On Error Resume Next
Stel xRg = Intersect (Doel, Bereik ("A1")) in
Als xRg niets is, sluit dan Sub af
Als Target.Validation.Type >= 0 Dan
Als Target.Value = "Gesloten" Dan
Bladen ("Gegevensblad").Beschermen
ElseIf xRg.Value = "Actief" Dan
Spreadsheets ("Gegevensblad").Bescherming opheffen
End If
End If
End Sub
Antwoorden
Rapport
0
0
KB
KB
Deze opmerking is gemaakt door de moderator op de site
Ik bereid een magazijnvoorraadbeheer voor in Excel-sjabloon. Om een ​​voorraad te leveren, moet ik een poortpas afgeven. rij wordt vergrendeld en de volgende wordt gevuld.
Antwoorden
0
0
crystal
crystal     KB
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Zou leuk zijn als je je werkboek hier kunt uploaden. Bedankt voor je reactie.
Antwoorden
Rapport
0
0
Joe
Joe
Deze opmerking is gemaakt door de moderator op de site
Kun je me uitleggen wat hier mis is, alsjeblieft? Dank u bij voorbaat.

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Range("K:K") = "OVER VOORRAAD" Dan
Bereik ("S:S"). Vergrendeld = True
ElseIf Range ("K:K") = "LANGZAAM BEWEGEND" Dan
Bereik ("S:S"). Vergrendeld = True
ElseIf Range("K:K") = "NORMAAL" Dan
Bereik ("S:S"). Vergrendeld = False
ElseIf Range("K:K") = "SHORTAGE" Dan
Bereik ("S:S"). Vergrendeld = False
End If
End Sub
Antwoorden
0
0
Joe
Joe
Deze opmerking is gemaakt door de moderator op de site
Zou je me zo vriendelijk willen adviseren hoe ik dit kan corrigeren? Dank u bij voorbaat.

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Range ("A:A") = "LANGZAAM BEWEGEND" Dan
Bereik ("B:B"). Vergrendeld = True
ElseIf Range("A:A") = "OVER VOORRAAD" Dan
Bereik ("B:B"). Vergrendeld = True
ElseIf Range("A:A") = "NORMAAL" Dan
Bereik ("B:B"). Vergrendeld = False
End If
End Sub
Antwoorden
Rapport
0
0
Geen expert
Geen expert     Joe
Deze opmerking is gemaakt door de moderator op de site
Omdat ik geen VB-expert ben, zou ik zeggen dat je te veel "Elseif" hebt - als je ze allemaal verandert in alleen IF behalve de laatste, dan zal dat hopelijk werken.
Als X dit doet, als Y dit doet, als Z dit doet, als geen van deze - doe dit.
Antwoorden
0
0
Mitchyl
Mitchyl
Deze opmerking is gemaakt door de moderator op de site
Hoe zou de code zijn als ik een blok cellen (rijen 6, 7 en 8/Letters D tot en met U evenals cellen F5 en J5) zou willen vergrendelen en ze zou ontgrendelen wanneer ik een "X" in cel E5 plaats? Bij voorbaat dank!
Antwoorden
Rapport
0
0
crystal
crystal     Mitchyl
Deze opmerking is gemaakt door de moderator op de site
Hallo MitchyII,
Bedoelt u dat het opgegeven cellenblok vooraf handmatig is vergrendeld en u wilt ze gewoon ontgrendelen door een "X" in cel E5 te typen?
Als u "X" uit cel E5 verwijdert, wilt u de bereiken dan weer vergrendelen?
Ik heb meer details van het probleem nodig.
Bedankt voor je reactie.
Antwoorden
Rapport
0
0
Jennifer Kornel
Jennifer Kornel     crystal
Deze opmerking is gemaakt door de moderator op de site
Hallo Mitchyll (of wie dan ook), bouwend op Crystal. Ik heb alle cellen handmatig vergrendeld en op basis van de informatie in kolom G zou ik willen dat ze vergrendeld of ontgrendeld blijven. Voorbeeldcellen in kolom H mogen ALLEEN worden ontgrendeld als "c/p" in de voorgaande cel in kolom G . wordt geplaatst
Antwoorden
0
0
Zk
Zk
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om een ​​cel te vergrendelen wanneer deze een bepaalde waarde bereikt?
Antwoorden
0
0
Christian Conti Gennaro
Christian Conti Gennaro
Deze opmerking is gemaakt door de moderator op de site
Hallo, zou je zo vriendelijk willen zijn om de reden te controleren waarom het niet werkt?

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
If Range ("A3:A37"). Waarde <> "" Dan
Bereik ("B3:B37"). Vergrendeld = True
ElseIf Range("A3:A37") = "" Dan
Bereik ("B3:B37"). Vergrendeld = False
End If

If Range ("B3:B37"). Waarde <> "" Dan
Bereik ("A3:A37"). Vergrendeld = True
ElseIf Range("B3:B37") = "" Dan
Bereik ("A3:A37"). Vergrendeld = False
End If

End Sub


Alvast heel erg bedankt!!!
Antwoorden
Rapport
0
0
Chandrakanth
Chandrakanth
Deze opmerking is gemaakt door de moderator op de site
Hi
Ik heb zojuist geprobeerd de bovenstaande code te gebruiken
en het zegt type 13 fout wanneer ik het probeer te gebruiken.
zouden jullie mij hiermee kunnen helpen?

dank je
Antwoorden
0
0
crystal
crystal     Chandrakanth
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Welke Excel-versie gebruik je?
Antwoorden
Rapport
0
0
benthe
benthe
Deze opmerking is gemaakt door de moderator op de site
hi

als ik een cel op blad 2 (cel C4) moet vergrendelen op basis van een claim van blad 1 (cel C1),
indien "nee" op blad 1 C4; blad 2 moet vergrendeld zijn en moet de waarde van blad 1 C4 overdragen,
naar blad 2 C4.

indien "ja" op blad 1, moet ik kunnen typen in de cel op blad 2

Bedankt Benthe
Antwoorden
Rapport
0
0
Satya
Satya
Deze opmerking is gemaakt door de moderator op de site
Hallo, alsjeblieft, kan iemand me helpen voor VBA-code.

als ik selecteer uit de vervolgkeuzelijst in celbereik (A1: A1000) "abc" vergrendel dan bereik (D1: D1000) niet tot (F1: F1000)



als ik selecteer uit de vervolgkeuzelijst in celbereik (A1: A1000) "abc" vergrendel dan bereik (D1: D1000) niet tot (F1: F1000)



als ik selecteer uit de vervolgkeuzelijst in cel Bereik (A1: A1000) "abc" en vergrendel bereik (D1: D1000) tot (F1: F1000)



dwz respectieve cel A1 voor D1 tot F1



A2 voor voor D2 tot F2
Antwoorden
0
0
Kyle
Kyle
Deze opmerking is gemaakt door de moderator op de site
Ik heb alles van boven naar een blad gekopieerd. Het werkte even en nu krijg ik de foutmelding 'Kan de eigenschap Locked van de Range-klasse niet instellen'. Ik heb zelfs een heel nieuw blad geopend en je voorbeeld letterlijk gekopieerd. Enig idee wat er aan de hand is?
Antwoorden
0
0
Steffi
Steffi
Deze opmerking is gemaakt door de moderator op de site
Hallo,

Ik heb je gunst nodig. wanneer ik Geen optie in een cel selecteer, wil ik dat de onderstaande kolommen worden vergrendeld / uitgegrijsd.

Is dat mogelijk? Ik heb deze formule geprobeerd, maar het werkt niet

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)

Als Bereik ("D90") = "Ja" Dan

Bereik ("C94:F104"). Vergrendeld = False

ElseIf Range("D90") = "Nee" Dan

Bereik ("C94:F104"). Vergrendeld = True

End If

End Sub
Antwoorden
0
0
crystal
crystal     Steffi
Deze opmerking is gemaakt door de moderator op de site
Hallo Steffi,
De code werkt goed.
Als u het cellenbereik wilt vergrendelen om bewerking te voorkomen, moet u het werkblad handmatig beveiligen nadat u Geen optie in D90 hebt geselecteerd.
En aangezien D90 in het bereik C94:F104 zit, kan D90 na bescherming van het werkblad ook niet worden bewerkt.
Antwoorden
Rapport
0
0
Mike
Mike     crystal
Deze opmerking is gemaakt door de moderator op de site
D90 zit niet in het assortiment. Het is 4 rijen boven C94
Antwoorden
0
0
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Gast
Posten als gast
Inloggen
×
Beoordeel dit bericht:
Reset
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL