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

Hogyan zárolhatjuk vagy feloldhatjuk a cellákat az Excel másik cellájának értékei alapján?

Bizonyos esetekben előfordulhat, hogy zárolnia vagy fel kell oldania a cellákat egy másik cellában található értékek alapján. Például fel kell oldania a B1: B4 tartományt, ha az A1 cella „Elfogadva” értéket tartalmaz; és zárolandó, ha az A1 cella a „Visszautasítás” értéket tartalmazza. Hogyan lehet elérni? Ez a cikk segíthet.

A cellák zárolása vagy feloldása egy másik VBA kóddal rendelkező cella értékei alapján


A cellák zárolása vagy feloldása egy másik VBA kóddal rendelkező cella értékei alapján

A következő VBA-kód segíthet a cellák zárolásában vagy feloldásában az Excel másik cellájának értéke alapján.

1. Kattintson a jobb gombbal a lap fülre (a cellákat tartalmazó lapra, amelyet le kell zárnia vagy fel kell oldania egy másik cellában található értékek alapján), majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. Ezután másolja és illessze be a következő VBA kódot a Kód ablakba.

VBA-kód: A cellák zárolása vagy feloldása egy másik cellában található értékek alapján

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. megnyomni a más + Q gombok egyszerre a Microsoft Visual Basic for Applications ablak.

Mostantól, amikor az A1 cellába beírja az „Elfogadás” értéket, a B1: B4 tartomány feloldásra kerül.

Amikor az „Elutasítás” értéket beírja az A1 cellába, a megadott B1: B4 tartomány automatikusan zárolódik.


Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (52)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan lehet zárolni/feloldani egy változó cellát pl. ha a cella [=INDEX(A16:L35,MATCH(W5,A16:A35,0),MATCH("PAY",A16:L16,0))]
A weboldal moderátora ezt a megjegyzést minimalizálta
Egy egyszerű VBA parancsot szeretnék, amit nem tudok kitalálni, kérem segítsen
Ha az A1 cella Balnk, akkor az A2 cella zárolva van, és ha az A1 cella bármilyen értéket tartalmaz, akkor az A2 cella zárolása fel van oldva
Hasonlóképpen, ha az A2 cella üres, akkor az A3 cella zárolva van, és ha az A2 cella bármilyen értéket tartalmaz, akkor az A3 cella zárolása fel van oldva.
és így tovább, annyi cella, amennyi a követelménynek megfelel a lap bármely részén.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, ezt próbálom elérni, de hibaüzenetet kapok, hogy a VBA nem tudja beállítani a Range osztály Locked tulajdonságát, ha a lap védett. A lap védelmének feloldása érvényteleníti a zárolt cellát. Hogyan lehet ezt megkerülni? Köszönöm a segítséget.
A weboldal moderátora ezt a megjegyzést minimalizálta
Megoldottad? ugyanaz a problémám
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Memo!
Kérjük, próbálja ki az alábbi VBA kódot.

Privát almunkalap_Activate()
Ha nem ActiveSheet.ProtectContents Akkor
Tartomány("A1").Zárolt = False
Tartomány("B1:B4").Zárolva = False
Ha véget
End Sub
Private Sub Worksheet_SelectionChange (ByVal Target as Range)
Dim xRg As Range, xRgA As Range
On Error Resume Next
Application.EnableEvents = Hamis
xRg beállítása = Tartomány("B1:B4")
xRgA beállítása = Tartomány("A1")
Ha metszéspont(cél, xRg).Cím <> Target.Address _
Vagy xRgA = "Elfogadás" Akkor
Application.EnableEvents = Igaz
Exit Sub
ElseIf ActiveSheet.ProtectContents _
És metszéspont(cél, xRg) = cél _
És xRgA.Value = "Elutasítás" Akkor
xRgA.Select
Ha véget
Application.EnableEvents = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Érdemes használni a munkafüzet interfészsorát, így amikor megnyitja a fájlt, az védi a lapokat, de így is engedélyezi a makrók számára a változtatásokat;

Private Sub Workbook_Open() 'Ez bekerül a "ThisWorkbook"-ba

Worksheets("Rendelő eszköz").Protect Password:="Pwd", UserInterFaceOnly:=True

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Hangya!
Az alábbi VBA kód segíthet megoldani ezt a problémát. Köszönjük észrevételét.

Privát almunkalap_Activate()
Ha nem ActiveSheet.ProtectContents Akkor
Tartomány("A1").Zárolt = False
Tartomány("B1:B4").Zárolva = False
Ha véget
End Sub
Private Sub Worksheet_SelectionChange (ByVal Target as Range)
Dim xRg As Range, xRgA As Range
On Error Resume Next
Application.EnableEvents = Hamis
xRg beállítása = Tartomány("B1:B4")
xRgA beállítása = Tartomány("A1")
Ha metszéspont(cél, xRg).Cím <> Target.Address _
Vagy xRgA = "Elfogadás" Akkor
Application.EnableEvents = Igaz
Exit Sub
ElseIf ActiveSheet.ProtectContents _
És metszéspont(cél, xRg) = cél _
És xRgA.Value = "Elutasítás" Akkor
xRgA.Select
Ha véget
Application.EnableEvents = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,

Lehetséges, hogy ez a VBA zárolja az egyik cellakészletet/feloldja a másikat ez alapján? Például a B1:B4 tartomány zárolva van, és a C1:C4 zárolva van az „elfogadáshoz”, majd a B1:B4 zárolva van, és a C1:C4 tartomány zárolva van az „elutasításhoz”?


Köszönöm,
keresztény
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Christian!
Védett a munkalapod?
A weboldal moderátora ezt a megjegyzést minimalizálta
kérem valaki segítsen nekem a következőkben.
Az egyik lapba szeretnék beszúrni a tanulók képeit, a nevük alapján egy másik lapon megjelenik
A felhasználókat segítő navigációs sík létrehozása
Egy adott lap(ok) hozzárendelése egy felhasználóhoz
Interfész létrehozása a munkafüzet számára
Bejelentkezési oldal létrehozásához
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Leo!
Bármilyen kérdése van az Excellel kapcsolatban, ne habozzon, tegye fel fórumunkba: https://www.extendoffice.com/forum.html.
További támogatást kap az Excellel kapcsolatban Excel-szakértőnktől.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,

Kipróbáltam a kódodat és szerkesztettem egy kicsit, de nem értem, mit csináljak itt rosszul?

Private Sub Worksheet_Change (ByVal Target mint Range)
Ha Tartomány("A40") <> "" Akkor
Tartomány("D40:E40").Locked = False
ElseIf Range("A40") = "" Akkor
Tartomány("D40:E40").Locked = igaz
Ha véget
End Sub


A véleményem az volt, ha nincs benne semmi (A40). Akkor VBA-val akarom zárolni. Ha az A40 tartalmaz valamit, akkor azt szeretném, ha fel lenne oldva. Remélem, látod az értelmét.


Üdvözlettel: Kristoffer
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
Nincs semmi baj a kódoddal. Nekem jól működik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia. Én sem tudom működésre bírni ezt a kódot. Egyáltalán nem csinál semmit. Mintha ott se lenne a kód?? Nagyon új vagyok a VBA-ban, és alapvető ismereteim vannak róla. Ez a kód úgy fut, ahogy van, vagy hozzá kell adni valamit, hogy fusson? Vagy Makróvá változtatta (amit nem igazán értem, hogy miért, mert ez az utasítások rögzítése, ha jól értelmezem őket)
A weboldal moderátora ezt a megjegyzést minimalizálta
MI LESZ A KÓD, HA AZ E1, E2, E3 CELLÁT ZÁROLNI SZERETNÉM .............. KONKRÉT SZÖVEGRE (MONDJON "P"-re) A B1, B2, B3 CELLÁN... ..............ILLETŐLEG.

Előre is köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day
Kérjük, próbálja meg az alábbi VBA szkriptet.

Private Sub Worksheet_Change (ByVal Target mint Range)
Ha Target.Count = 1 Akkor
Ha Target.Address = Range("A1").Cím és Target.Value = "A" Akkor
Tartomány("B1").Locked = igaz
ElseIf Target.Address = Range("A2").Cím és Target.Value = "A" Akkor
Tartomány("B2").Locked = igaz
ElseIf Target.Address = Range("A3").Cím és Target.Value = "A" Akkor
Tartomány("B3").Locked = igaz
Ha véget
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot!
Мне тоже необходимо заблокировать значение, но только в одной ячейке в зависимости от значения в другой, я попробовала использовать код в комментарии выше, но он не работает(оставила только один параметр для блокировки), но он у меня не работает - при этом нет сообщения об ошибке, ячейка, которая должна быть заблокирована - просто не блокируется, остается активной. В чем может быть причина?

Вот код, который я использовала:

Private Sub Worksheet_Change (ByVal Target mint Range)
Ha Target.Count t=1 Akkor
Ha Target.Address = Range("C9").Address And Target.Value = "согласно плану" Akkor
Tartomány("C10").Locked = igaz
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Ghost,
Sajnálom, nem egészen értem mire gondolsz. Az egyértelműség érdekében kérjük, csatoljon egy mintafájlt vagy egy képernyőképet az adataival és a kívánt eredményekkel.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! tanácsra van szüksége.
Van mód arra, hogy ne engedjük meg egy cella frissítését, hacsak nem teljesített egy feltételt egy másik cellán?
Példa: ha az A cella nincs frissítve, nem engedi, hogy módosítsam a B cella értékét a befejezéshez.

Értékelje a visszajelzést.
Köszönjük!
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Margie!
Kérjük, próbálja meg az alábbi VBA kódot.

Dim PreVal As String
Dim NextVal As String
Privát almunkalap_Activate()
PreVal = Tartomány("A1")
KövetkezőVal = Tartomány("A1")
End Sub
Private Sub Worksheet_Change (ByVal Target mint Range)
Ha (Célszám = 1) És (Célcím = "$A$1") Akkor
KövetkezőVal = Tartomány("A1")
Ha véget
End Sub
Private Sub Worksheet_SelectionChange (ByVal Target as Range)
Ha Target.Count = 1 Akkor
Ha Target.Address = "$A$1" Akkor
PreVal = Tartomány("A1")
ElseIf (Target.Address = "$B$1") Akkor
Ha PreVal = NextVal Akkor
Application.EnableEvents = Hamis
Tartomány("A1").Válassza ki
Application.EnableEvents = Igaz
Ha véget
Ha véget
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Valaki kijavíthatja ezt pls >>>

Private Sub Worksheet_Change (ByVal Target mint Range)
Az i = 7 és 100 közötti értékre
Ha Tartomány("Cellák(D, i)") = "Kölcsön" Akkor
Tartomány("Cellák(V,i):Cellák(X,i)").Locked = igaz
ElseIf Range("Cells(D, i)") = "Megtakarítások" Akkor
Tartomány("Cellák(Q,i):Cellák(U,i)").Zárolt = igaz
Tartomány("Cellák(W,i):Cellák(X,i)").Locked = igaz
ElseIf Range("Cells(D, i)") = "ShareCap" akkor
Tartomány("Cellák(Q,i):Cellák(U,i)").Zárolt = igaz
Tartomány("Cellák(V, i)").Locked = igaz
Ha véget
Következő i
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Tud valaki segíteni? Le kell zárnom/le kell fagyasztanom egy cellát. Ez a cella egy másikhoz kapcsolódik, és percenként változik az értéke. Azt kell tennem, hogy tartsam az értéket egy bizonyos percig/óráig. Hogyan tudom ezt megtenni anélkül, hogy kimásolnám és beillesztem értékként?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Mira!
Sajnos ebben nem tudok segíteni, kérdését felteheti fórumunkba: https://www.extendoffice.com/forum.html hogy további Excel-támogatást kaphasson szakemberünktől.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Nagyon új vagyok ebben.
Próbáltam excelben összeállítani egy számlázási rendszert.
3 lapot készítettem.
1. Számlasablon (Számla) – Csak egy általános számla, amelyet hetente küldenek meg ügynökeimnek.

2. Pontosan egy adatlap (Adatlap), ahol a számlán olvasható a cégnév címe stb., így ha bármi változik, a számla automatikusan frissül.

3. Pontosabban egy naptár fül (2018-as naptár), amely a számlasablonban hivatkozik, és a megfelelő dátumot és számlaszámot a tényleges számlákra helyezi.

Amit akarok csinálni.
A naptár lap lenne a főoldalam, minden héthez hozzáadtam egy állapot legördülő cellát az "Aktív" és a "Bezárt" opciókkal. Szeretném a teljes "Számla" fület zárolni, ha a megfelelő cella "Lezárt"-ra van állítva.

Remélem, megértitek, mit akarok csinálni.
Előre is köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Veres Ando!
Az alábbi VBA kód segíthet. Kérjük, helyezze el a kódot a Calendar 2018 Change A1 lap kódablakába a legördülő cellába. Köszönöm.

Private Sub Worksheet_Change (ByVal Target mint Range)
Dim xrg mint tartomány
On Error Resume Next
xRg beállítása = Metszéspont(Cél, Tartomány("A1"))
Ha az xRg semmi, akkor lépjen ki a Subból
Ha Target.Validation.Type >= 0 Akkor
Ha Target.Value = "Zárt" Akkor
Sheets("Adatlap").Protect
ElseIf xRg.Value = "Aktív" Akkor
Sheets("Adatlap").Vegye fel a védelmet
Ha véget
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Raktári készletkezelést készítek excel sablonban.Készlet szállításához kapubérletet kell kiadnom.Minden kapubérletet szeretnék,a megfelelő adatok a napi készletnyilvántartási oldalon frissülnek.A sorszámú kapubérlet megváltoztatásával a sor zárolva lesz, és a következő feltöltődik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
Jó lenne, ha feltöltenéd ide a munkafüzetedet. Köszönjük észrevételét.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérem, segítsen nekem, hogy mi a baj? Előre is köszönöm.

Private Sub Worksheet_Change (ByVal Target mint Range)
Ha Tartomány("K:K") = "KÉSZLET TÚL" Akkor
Tartomány("S:S").Locked = igaz
ElseIf Tartomány("K:K") = "LASSÚ MOZGÁS" Akkor
Tartomány("S:S").Locked = igaz
ElseIf Tartomány("K:K") = "NORMÁL" Akkor
Tartomány("S:S").Zárolt = False
ElseIf Tartomány("K:K") = "HIÁNY" Akkor
Tartomány("S:S").Zárolt = False
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Adna szíves tanácsot adni, hogyan tudnám ezt kijavítani? Előre is köszönöm.

Private Sub Worksheet_Change (ByVal Target mint Range)
Ha Tartomány("A:A") = "LASSÚ MOZGÁS" Akkor
Tartomány("B:B").Locked = igaz
ElseIf Tartomány("A:A") = "KÉSZLET TÚL" Akkor
Tartomány("B:B").Locked = igaz
ElseIf Tartomány("A:A") = "NORMÁL" Akkor
Tartomány("B:B").Zárolt = False
Ha véget
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Mivel nem vagyok VB-szakértő, azt mondanám, hogy túl sok "Elseif"-je van – ha az utolsó kivételével mindegyiket csak IF-re változtatja, akkor remélhetőleg ez működni fog.
Alapvetően ha X ezt csinálja, ha Y ezt, ha Z ezt, ha ezek közül egyik sem - ezt tegye.
A weboldal moderátora ezt a megjegyzést minimalizálta
Milyen lenne a kód, ha zárolni akarok egy cellatömböt (6., 7. és 8. sor/D betűtől U-ig, valamint az F5 és J5 cellákat), és fel akarom oldani, ha "X"-et teszek az E5 cellába? Előre is köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia MitchyII!
Úgy érted, hogy a megadott cellablokk előzetesen manuálisan zárolva lett, és csak az E5 cellába írt „X” beírásával szeretné feloldani a zárolást?
Ha eltávolítja az "X" jelet az E5 cellából, szeretné ismét zárolni a tartományokat?
További részletekre van szükségem a problémáról.
Köszönöm a megjegyzését.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Mitchyll (vagy bárki más), Crystalból építkezve. Az összes cellát manuálisan zároltam, és a G oszlopban található információk alapján szeretném, ha zárolva maradnának vagy feloldva maradnának. A H oszlop példacelláit CSAK akkor szabad feloldani, ha a "c/p" a G oszlop előző cellájába kerül.
A weboldal moderátora ezt a megjegyzést minimalizálta
Lehet-e zárni egy cellát, ha elér egy bizonyos értéket?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, meg tudnád nézni, hogy miért nem működik?

Private Sub Worksheet_Change (ByVal Target mint Range)
If Range("A3:A37").Érték <> "" Akkor
Tartomány("B3:B37").Locked = igaz
ElseIf Range("A3:A37") = "" Akkor
Tartomány("B3:B37").Zárolva = False
Ha véget

If Range("B3:B37").Érték <> "" Akkor
Tartomány("A3:A37").Locked = igaz
ElseIf Tartomány("B3:B37") = "" Akkor
Tartomány("A3:A37").Locked = False
Ha véget

End Sub


Előre is köszönöm szépen!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hi
Most próbáltam a fenti kódot használni
és 13-as típusú hibát ír, amikor megpróbálom használni.
tudnál nekem ebben segíteni?

köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Melyik Excel verziót használod?
A weboldal moderátora ezt a megjegyzést minimalizálta
hi

ha zárolnom kell egy cellát a 2. lapon (C4 cella) az 1. munkalapból (C1 cella) származó követelés alapján,
ha "nem" az 1. lapon C4; a 2. lapot zárolni kell, és át kell vinnie az értéket az 1. lapról C4,
a 2. laphoz C4.

ha "igen" az 1. lapon, be kell tudnom írni a 2. lap celláját

Köszi Benthe
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok valaki segítsen VBA kóddal kapcsolatban.

ha a Range (A1:A1000) cellában az "abc" legördülő menüből választok, akkor nem zárolom a Tartományt (D1:D1000) az (F1:F1000) értékre.



ha a Range (A1:A1000) cellában az "abc" legördülő menüből választok, akkor nem zárolom a Tartományt (D1:D1000) az (F1:F1000) értékre.



ha a Range (A1:A1000) cellában az "abc" legördülő menüből választok, akkor zárolja a Tartományt (D1:D1000) az (F1:F1000) értékre.



azaz a megfelelő A1 cella a D1-F1-hez



A2: D2-F2
A weboldal moderátora ezt a megjegyzést minimalizálta
Felülről mindent átmásoltam egy lapra. Egy másodpercig működött, és most a „Nem lehet beállítani a Range osztály Locked tulajdonságát” hibaüzenetet kapok. Még egy teljesen új lapot is nyitottam, és szó szerint lemásoltam a példádat. Van valami ötleted, hogy mi történik?
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,

szükségem van a kegyedre. Ha egy cellában a Nem lehetőséget választom, azt szeretném, ha az alábbi oszlopok zárolva/szürkén jelennek meg.

Ez lehetséges? Kipróbáltam ezt a formulát, de nem működött

Private Sub Worksheet_Change (ByVal Target mint Range)

Ha Tartomány("D90") = "Igen" Akkor

Tartomány("C94:F104").Locked = False

ElseIf Range("D90") = "Nem" Akkor

Tartomány("C94:F104").Locked = igaz

Ha véget

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Steffi,
A kód jól működik.
Ha zárolni szeretné a cellák tartományát a szerkesztés megakadályozása érdekében, manuálisan kell védenie a munkalapot, miután a D90-ben a Nem opciót választotta.
És mivel a D90 a C94:F104 tartományban van, a munkalap levédése után a D90 sem szerkeszthető.
A weboldal moderátora ezt a megjegyzést minimalizálta
A D90 nincs a tartományban. 4 sorral van a C94 felett
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi