Conas cealla a ghlasáil nó a dhíghlasáil bunaithe ar luachanna i gcill eile in Excel?

I roinnt cásanna, b’fhéidir go mbeidh ort cealla a ghlasáil nó a dhíghlasáil bunaithe ar luachanna i gcill eile. Mar shampla, ní mór duit an raon B1: B4 a dhíghlasáil má tá luach “Glactha” i gcill A1; agus a bheith faoi ghlas má tá luach “Diúltú” i gcill A1. Conas is féidir leat a dhéanamh chun é a bhaint amach? Is féidir leis an alt seo cabhrú leat.

Cealla a ghlasáil nó a dhíghlasáil bunaithe ar luachanna i gcill eile le cód VBA

Cealla a ghlasáil nó a dhíghlasáil bunaithe ar luachanna i gcill eile le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat cealla a ghlasáil nó a dhíghlasáil bunaithe ar luach i gcill eile in Excel.

1. Cliceáil ar dheis ar an táb bileog (an bhileog le cealla a chaithfidh tú a ghlasáil nó a dhíghlasáil bunaithe ar luachanna i gcill eile), agus cliceáil Féach an cód ón roghchlár cliceáil ar dheis.

2. Ansin cóipeáil agus greamaigh an cód VBA seo a leanas i bhfuinneog an Chóid.

Cód VBA: Glasáil nó díghlasáil cealla bunaithe ar luachanna i gcill eile

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. Brúigh an Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

As seo amach, nuair a iontrálann tú luach “Glactha” i gcill A1, díghlasáiltear an raon B1: B4.

Nuair a chuirtear luach “Diúltú” isteach i gcill A1, cuirtear an raon sonraithe B1: B4 faoi ghlas go huathoibríoch.

Earraí gaolmhara:

Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!

Leigh Nios mo... Íoslódáil saor in aisce ... Ceannach ...

44 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Maz · 1 months ago
The code does not do anything when I tried it. Does this work on MS Office Professional 2010?

Thanks.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 months ago
  
  Hi Maz,
  The code has been successfully tested in Excel 2010.
  
  Reply
To post as a guest, your comment is unpublished.
Jeffrey Scott · 3 months ago
If my first column has strings can I lock that row specifically to the first column, where when I do a sort the full row will stay together on the sort?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 months ago
  
  Good day,
  Sorry can't help you for that.
  
  Reply
To post as a guest, your comment is unpublished.
Steffi · 7 months ago
Hello,

I need your favour. when i select No option from a cell i want the columns below to be locked/greyed out.

Is that possible? I tried this formula but dint work

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D90") = "Yes" Then
Range("C94:F104").Locked = False
ElseIf Range("D90") = "No" Then
Range("C94:F104").Locked = True
End If
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 7 months ago
  
  Hi Steffi,
  The code works well.
  If you want to lock the range of cells to prevent editing, you need to protect the worksheet manually after selecting No option in D90.
  And as D90 is in the range C94:F104, after protecting the worksheet, D90 can't be edited either.
  
  Reply
To post as a guest, your comment is unpublished.
Kyle · 10 months ago
I copied everything from above into a sheet. It worked for a second and now I'm getting the error 'Unable to set the Locked property of the Range class'. I even opened a whole new sheet and copied your example verbatim. Any idea whats going on?
- Reply
To post as a guest, your comment is unpublished.
satya · 10 months ago
Hi please any one help me for VBA code .
if i select from drop down in cell Range(A1:A1000) "abc" then not lock Range(D1:D1000) to (F1:F1000)

if i select from drop down in cell Range(A1:A1000) "abc" then not lock Range(D1:D1000) to (F1:F1000)

if i select from drop down in cell Range(A1:A1000) "abc" then lock Range(D1:D1000) to (F1:F1000)

i.e respective cell A1 for D1 to F1

A2 for for D2 to F2
- Reply
To post as a guest, your comment is unpublished.
benthe · 11 months ago
hi

if I need to lock a cell on sheet 2 (cell C4) based on a claim from sheet 1 (cell C1),
if "no" on sheet 1 C4; sheet 2 must be locked and it must transfer the value from sheet 1 C4,
to sheet 2 C4.

if "yes" on sheet 1, I must be able to type in the cell on sheet 2

Thanks Benthe
- Reply
To post as a guest, your comment is unpublished.
Chandrakanth · 1 years ago
Hi
I have just tried using the code above
and it says type 13 error when I try to use it.
could you help me out with this?

thank you
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi,
  Which Excel version are you using?
  
  Reply
To post as a guest, your comment is unpublished.
cricontidj@gmail.com · 1 years ago
Hi, could you kindly check the reason why it doesn't work?

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A3:A37").Value <> "" Then
Range("B3:B37").Locked = True
ElseIf Range("A3:A37") = "" Then
Range("B3:B37").Locked = False
End If

If Range("B3:B37").Value <> "" Then
Range("A3:A37").Locked = True
ElseIf Range("B3:B37") = "" Then
Range("A3:A37").Locked = False
End If

End Sub

Thank you very much in advance!!!
- Reply
To post as a guest, your comment is unpublished.
Zk · 1 years ago
Is it possible to lock a cell, when it reaches a certain value?
- Reply
To post as a guest, your comment is unpublished.
mfuller73 · 2 years ago
How would the code be if I wanted to lock a block of cells (Rows 6, 7, and 8/Letters D through U as well as cells F5 and J5) and have them unlock when I put an "X" in cell E5? Thanks in advance!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi MitchyII,
  Do you mean the specified block of cells have been locked manually in advance and just want to unlock them by typing an "X" in cell E5?
  If remove "X" from cell E5, you do want to lock the ranges again?
  I need more details of the problem.
  Thank you for your comment.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Jennifer Cornell · 1 years ago
  
  Hi Mitchyll (or anyone), building off of Crystal. I have manually locked all cells and based on the information in column G, I would like them to remain locked or unlock. Example cells in column H should ONLY be unlocked if "c/p" is placed in the preceding cell in column G
  
  Reply
To post as a guest, your comment is unpublished.
sarcotec · 2 years ago
Would you kindly advice me on how to correct this? Thank you in advance.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A:A") = "SLOW MOVING" Then
Range("B:B").Locked = True
ElseIf Range("A:A") = "OVER STOCK" Then
Range("B:B").Locked = True
ElseIf Range("A:A") = "NORMAL" Then
Range("B:B").Locked = False
End If
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  Noexpert · 2 years ago
  
  Not being a VB expert i would say you have too many "Elseif" - if you change them all to just IF except for the last one then hopefully that will work.
  Basically If X do this, If Y do this, if Z do this, if none of those - do this.
  
  Reply
To post as a guest, your comment is unpublished.
Joe · 2 years ago
Can you guide me on what's wrong here please? Thank you in advance.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("K:K") = "OVER STOCK" Then
Range("S:S").Locked = True
ElseIf Range("K:K") = "SLOW MOVING" Then
Range("S:S").Locked = True
ElseIf Range("K:K") = "NORMAL" Then
Range("S:S").Locked = False
ElseIf Range("K:K") = "SHORTAGE" Then
Range("S:S").Locked = False
End If
End Sub
- Reply
To post as a guest, your comment is unpublished.
KB · 3 years ago
I prepare a warehouse stock management in excel template.To deliver a stock i have to issue a gate pass.I want to each gate pass,corresponding data will be updated in daily stock take page.With the change of gate pass serial no,the row will be locked and next will be filled up.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day,
  Would be nice if you can upload your workbook here. Thank you for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
veandor@gmail.com · 3 years ago
Hi,
I am really new to this.
I have been trying to put an invoicing system together in excel.
I created 3 sheets.
1. Invoice template (Invoice)- Just a generic invoice that is sent to my agents weekly.

2. A data sheet (Data sheet) to be exact - where the invoice can read the company name adress etc, so if anything changes the invoice will be automatically updated.

3. A calendar tab (Calendar 2018) to be exact - that is referenced in the invoice template, and puts the corresponding date and invoice number on the actual invoices.

What I want to do.
The calendar tab would be my main page, I added a status drop down cell for each week with options "Active" and "Closed". I would like to Lock the whole "Invoice" tab if the corresponding cell is set to "Closed".

I hope you guys understand what I am trying to do.
Thanks in advance.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Ando Veres.
  The below VBA code can help you. Please place the code into the sheet code window of Calendar 2018 change A1 to your drop down cell. Thank you.
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim xRg As Range
  On Error Resume Next
  Set xRg = Intersect(Target, Range("A1"))
  If xRg Is Nothing Then Exit Sub
  If Target.Validation.Type >= 0 Then
  If Target.Value = "Closed" Then
  Sheets("Data Sheet").Protect
  ElseIf xRg.Value = "Active" Then
  Sheets("Data Sheet").Unprotect
  End If
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Mira · 3 years ago
Hi! Can someone help me? I have to lock/freeze a cell. That cell is linked to another one and has a value which is changing every minute. What I what to do is to keep the value for a certain minute/ hour. How can I do that without copying it and paste it as a value?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Mira,
  Sorry can’t help with this, you can post your question in our forum: https://www.extendoffice.com/forum.html to get more Excel supports from our professional.
  
  Reply
To post as a guest, your comment is unpublished.
Horace · 3 years ago
can some one correct this pls>>>

Private Sub Worksheet_Change(ByVal Target As Range)
For i = 7 To 100
If Range("Cells(D, i)") = "Loan" Then
Range("Cells(V, i):Cells(X, i)").Locked = True
ElseIf Range("Cells(D, i)") = "Savings" Then
Range("Cells(Q, i):Cells(U, i)").Locked = True
Range("Cells(W, i):Cells(X, i)").Locked = True
ElseIf Range("Cells(D, i)") = "ShareCap" Then
Range("Cells(Q, i):Cells(U, i)").Locked = True
Range("Cells(V, i)").Locked = True
End If
Next i
End Sub
- Reply
To post as a guest, your comment is unpublished.
margie · 3 years ago
Hi! need some advise.
Is there a way not to allow a cell to be updated unless it has satisfied a condition on another cell?
Sample: if the cell A is not updated it will not allow me to change the value of cell B to complete.

Appreciate the feedback.
Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Margie,
  Please try below VBA code.
  
  Dim PreVal As String
  Dim NextVal As String
  Private Sub Worksheet_Activate()
  PreVal = Range("A1")
  NextVal = Range("A1")
  End Sub
  Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Count = 1) And (Target.Address = "$A$1") Then
  NextVal = Range("A1")
  End If
  End Sub
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count = 1 Then
  If Target.Address = "$A$1" Then
  PreVal = Range("A1")
  ElseIf (Target.Address = "$B$1") Then
  If PreVal = NextVal Then
  Application.EnableEvents = False
  Range("A1").Select
  Application.EnableEvents = True
  End If
  End If
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
SHAINA · 3 years ago
WHAT WILL BE THE CODE IF I WANT TO LOCK CELL E1, E2, E3 .............. FOR SPECIFIC TEXT (LETS SAY "P") ON CELL B1, B2, B3.................RESPECTIVELY.

THANKS IN ADVANCE
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day
  Please try below VBA script.
  
  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count = 1 Then
  If Target.Address = Range("A1").Address And Target.Value = "A" Then
  Range("B1").Locked = True
  ElseIf Target.Address = Range("A2").Address And Target.Value = "A" Then
  Range("B2").Locked = True
  ElseIf Target.Address = Range("A3").Address And Target.Value = "A" Then
  Range("B3").Locked = True
  End If
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Kristoffer · 3 years ago
Hello,

I have tried your code and edit a little bit, but i can't work out what i do wrong here?

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A40") <> "" Then
Range("D40:E40").Locked = False
ElseIf Range("A40") = "" Then
Range("D40:E40").Locked = True
End If
End Sub

My though about it was if there is nothing in it (A40). Then i want to locked by VBA. If A40 contain something, then i want it to be unlocked. I hope you can see the sense of it.

Regards Kristoffer
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day,
  There is nothing wrong with your code. It works well for me.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  KeeranB · 2 years ago
  
  Hi. I too cannot get this code to work. It does absolutely nothing. As if the code isn't even there?? I'm very new to VBA and have a basic understanding on it. Is this code being run as-is, or does it have to have stuff added to it as well for it to run? Or turned into a Macro (which I don't really get why because that's a recording of instructions, on my understanding of them)
  
  Reply
To post as a guest, your comment is unpublished.
leo · 3 years ago
please can someone help me with the following.
I want to insert pictures of student in one sheet, appears in another sheet based on their names
To create a navigating plane to assist users
To assign a particular sheet(s) to a user
To create an interface for the workbook
To create a login page
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear leo,
  Any question about Excel, please don’t hesitate to post in our forum: https://www.extendoffice.com/forum.html.
  You will get more supports about Excel from our Excel professional.
  
  Reply
To post as a guest, your comment is unpublished.
Ant · 3 years ago
Hi, I'm trying to achieve this, but I get an error that VBA is unable to set the Locked property of the Range class if the sheet has been protected. Unprotecting the sheet will then negate the cell being locked.

How to get around this?

Thanks for any help.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Ant,
  The below VBA code can help you solve this probem. Thank you for your comment.
  
  Private Sub Worksheet_Activate()
  If Not ActiveSheet.ProtectContents Then
  Range("A1").Locked = False
  Range("B1:B4").Locked = False
  End If
  End Sub
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim xRg As Range, xRgA As Range
  On Error Resume Next
  Application.EnableEvents = False
  Set xRg = Range("B1:B4")
  Set xRgA = Range("A1")
  If Intersect(Target, xRg).Address <> Target.Address _
  Or xRgA = "Accepting" Then
  Application.EnableEvents = True
  Exit Sub
  ElseIf ActiveSheet.ProtectContents _
  And Intersect(Target, xRg) = Target _
  And xRgA.Value = "Refusing" Then
  xRgA.Select
  End If
  Application.EnableEvents = True
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Christian · 3 years ago
  
  Hi,
  
  Is it possible to have this VBA lock one set of cells/unlock another based on this? For example Range B1:B4 is unlocked and C1:C4 is locked for "accepting" and then B1:B4 is locked and C1:C4 is unlocked for "refusing"?
  
  Thanks,
  Christian
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  crystal · 3 years ago
  
  Dear Christian,
  Is your worksheet protected?
  
  Reply
- To post as a guest, your comment is unpublished.
  Henry · 3 years ago
  
  You'll want to use the interface line in the workbook so when you open the file, it protects the sheets but allow macros to make changes anyway;
  
  Private Sub Workbook_Open() 'This goes into "ThisWorkbook"
  
  Worksheets("Order Tool").Protect Password:="Pwd", UserInterFaceOnly:=True
  
  End Sub
  
  Reply
- To post as a guest, your comment is unpublished.
  Memo · 3 years ago
  
  Did you resolved? I have the same problem
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  crystal · 3 years ago
  
  Dear Memo,
  Please try the below VBA code.
  
  Private Sub Worksheet_Activate()
  If Not ActiveSheet.ProtectContents Then
  Range("A1").Locked = False
  Range("B1:B4").Locked = False
  End If
  End Sub
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim xRg As Range, xRgA As Range
  On Error Resume Next
  Application.EnableEvents = False
  Set xRg = Range("B1:B4")
  Set xRgA = Range("A1")
  If Intersect(Target, xRg).Address <> Target.Address _
  Or xRgA = "Accepting" Then
  Application.EnableEvents = True
  Exit Sub
  ElseIf ActiveSheet.ProtectContents _
  And Intersect(Target, xRg) = Target _
  And xRgA.Value = "Refusing" Then
  xRgA.Select
  End If
  Application.EnableEvents = True
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Sheetal Rao · 4 years ago
How can lock/unlock a variable cell e.g. when cell is [=INDEX(A16:L35,MATCH(W5,A16:A35,0),MATCH("PAY",A16:L16,0))]
- Reply
- To post as a guest, your comment is unpublished.
  Mohammed Mandlaywala · 3 years ago
  
  I want a simple VBA command which I am unable to figure out please help
  If cell A1 is Balnk then Cell A2 is locked and If Cell A1 contains any Value then Cell A2 is unlocked
  Similarly if cell A2 is blank then Cell A3 is locked and if Cell A2 contains any value then Cell A3 is unlocked
  and so on as many cells as per requirement in any part of the sheet.
  
  Reply

Logáil isteach do chuntas

Athshocraigh Pasfhocal