Styjun

How is std::optional never "valueless by exception"?

Journal published a paper, ignoring my objections as a referee

Term used to describe a person who predicts future outcomes

Should I use the words "pyromancy" and "necromancy" even if they don't mean what people think they do?

How do Barton (Hawkeye/Ronin) and Romanov (Black Widow) end up on the Benatar on Morag in 2014?

Find feasible point in polynomial time in linear programming

What will be the immediate action by the pilot and ATC if any plane blocks the runway while landing?

What ways are there to "PEEK" memory sections in (different) BASIC(s)

Are there any to-scale diagrams of the TRAPPIST-1 system?

Can I lend a small amount of my own money to a bank at the federal funds rate?

Why didn't Doc believe Marty was from the future?

Was the six engine Boeing-747 ever thought about?

How many petaflops does it take to land on the moon? What does Artemis need with an Aitken?

How to handle inventory and story of a player leaving

How to deal with anxiety caused by dangerous riding conditions stemming from poor lane design and inconsiderate fellow road users?

Is there a better way to use C# dictionaries than TryGetValue?

Cutting numbers into a specific decimals

How to prevent a hosting company from accessing a VM's encryption keys?

Are spot colors limited and why CMYK mix is not treated same as spot color mix?

Is the internet in Madagascar faster than in UK?

Do multi-engine jets need all engines with equal age to reduce asymmetry in thrust and fuel consumption arising out of deterioration?

Did the Apollo Guidance Computer really use 60% of the world's ICs in 1963?

Why is 3/4 a simple meter while 6/8 is a compound meter?

How could a self contained organic body propel itself in space

How to lock a cell based off of a value from another cell

Possible to Lock Range of cells based on another cell's value?VBA Excel Populating cells based on previous existenceCopy Cells from a Column to another sheet, only if a cell in the next column is not blankCopy and sort data from one sheet to another, based on cell valuesHow to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loopsReturning value of a cell, where another cell matches between sheetsCopy row from one sheet to another based on new entry in listPossible to Lock Range of cells based on another cell's value?Apply format to part of a cell based on contents of another cellVBA How to lock only certain columns in a sheet based on date

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

-1

I have a sheet that has column B. the states a disposition of our product released, hold ect.. column A. states what has been done with this product ie shipped, in storage ect. I need to have column A. to be locked if column B. is set to "Hold" I am pretty new to this coding and so I have almost no idea where to start or if its even possible.

excel vba

share|improve this question

edited Mar 27 at 21:25

JvdV

9,68422 gold badges77 silver badges2424 bronze badges

asked Mar 27 at 21:22

William MorganWilliam Morgan

1

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  We need much more info from you. What do you mean locked? You say coding but I don't see any coding tags
  
  – urdearboy
  Mar 27 at 21:25
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Locked meaning unable to enter anything in the cell
  
  – William Morgan
  Mar 27 at 21:30
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  stackoverflow.com/questions/45987196/…
  
  – Tim Williams
  Mar 27 at 21:31
  

  
  
  
  

add a comment | 

-1

I have a sheet that has column B. the states a disposition of our product released, hold ect.. column A. states what has been done with this product ie shipped, in storage ect. I need to have column A. to be locked if column B. is set to "Hold" I am pretty new to this coding and so I have almost no idea where to start or if its even possible.

excel vba

share|improve this question

edited Mar 27 at 21:25

JvdV

9,68422 gold badges77 silver badges2424 bronze badges

asked Mar 27 at 21:22

William MorganWilliam Morgan

1

• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  We need much more info from you. What do you mean locked? You say coding but I don't see any coding tags
  
  – urdearboy
  Mar 27 at 21:25
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  Locked meaning unable to enter anything in the cell
  
  – William Morgan
  Mar 27 at 21:30
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  
  stackoverflow.com/questions/45987196/…
  
  – Tim Williams
  Mar 27 at 21:31
  

  
  
  
  

add a comment | 

I have a sheet that has column B. the states a disposition of our product released, hold ect.. column A. states what has been done with this product ie shipped, in storage ect. I need to have column A. to be locked if column B. is set to "Hold" I am pretty new to this coding and so I have almost no idea where to start or if its even possible.

excel vba

share|improve this question

edited Mar 27 at 21:25

JvdV

9,68422 gold badges77 silver badges2424 bronze badges

asked Mar 27 at 21:22

William MorganWilliam Morgan

1

share|improve this question

edited Mar 27 at 21:25

JvdV

9,68422 gold badges77 silver badges2424 bronze badges

asked Mar 27 at 21:22

William MorganWilliam Morgan

1

share|improve this question

edited Mar 27 at 21:25

JvdV

9,68422 gold badges77 silver badges2424 bronze badges

asked Mar 27 at 21:22

William MorganWilliam Morgan

1

edited Mar 27 at 21:25

JvdV

9,68422 gold badges77 silver badges2424 bronze badges

edited Mar 27 at 21:25

JvdV

9,68422 gold badges77 silver badges2424 bronze badges

asked Mar 27 at 21:22

William MorganWilliam Morgan

1

asked Mar 27 at 21:22

William MorganWilliam Morgan

1

1 Answer
1

active

oldest

votes

0

Pasted in VBE under sheet that you want this rule to apply to...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:A")) Is Nothing Then
 If Target.Count = 1 Then
 If Target.Offset(, 1) = "Hold" Then
 Application.EnableEvents = False
 Application.Undo
 MsgBox "Cell on Hold. Reverting changes", vbCritical
 Application.EnableEvents = True
 End If
 End If
End If

End Sub

share|improve this answer

answered Mar 27 at 21:47

urdearboyurdearboy

8,56233 gold badges99 silver badges3333 bronze badges

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55386656%2fhow-to-lock-a-cell-based-off-of-a-value-from-another-cell%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

Pasted in VBE under sheet that you want this rule to apply to...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:A")) Is Nothing Then
 If Target.Count = 1 Then
 If Target.Offset(, 1) = "Hold" Then
 Application.EnableEvents = False
 Application.Undo
 MsgBox "Cell on Hold. Reverting changes", vbCritical
 Application.EnableEvents = True
 End If
 End If
End If

End Sub

share|improve this answer

answered Mar 27 at 21:47

urdearboyurdearboy

8,56233 gold badges99 silver badges3333 bronze badges

add a comment | 

0

Pasted in VBE under sheet that you want this rule to apply to...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:A")) Is Nothing Then
 If Target.Count = 1 Then
 If Target.Offset(, 1) = "Hold" Then
 Application.EnableEvents = False
 Application.Undo
 MsgBox "Cell on Hold. Reverting changes", vbCritical
 Application.EnableEvents = True
 End If
 End If
End If

End Sub

share|improve this answer

answered Mar 27 at 21:47

urdearboyurdearboy

8,56233 gold badges99 silver badges3333 bronze badges

add a comment | 

Pasted in VBE under sheet that you want this rule to apply to...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:A")) Is Nothing Then
 If Target.Count = 1 Then
 If Target.Offset(, 1) = "Hold" Then
 Application.EnableEvents = False
 Application.Undo
 MsgBox "Cell on Hold. Reverting changes", vbCritical
 Application.EnableEvents = True
 End If
 End If
End If

End Sub

share|improve this answer

answered Mar 27 at 21:47

urdearboyurdearboy

8,56233 gold badges99 silver badges3333 bronze badges

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A:A")) Is Nothing Then
 If Target.Count = 1 Then
 If Target.Offset(, 1) = "Hold" Then
 Application.EnableEvents = False
 Application.Undo
 MsgBox "Cell on Hold. Reverting changes", vbCritical
 Application.EnableEvents = True
 End If
 End If
End If

End Sub

share|improve this answer

answered Mar 27 at 21:47

urdearboyurdearboy

8,56233 gold badges99 silver badges3333 bronze badges

answered Mar 27 at 21:47

urdearboyurdearboy

8,56233 gold badges99 silver badges3333 bronze badges

answered Mar 27 at 21:47

urdearboyurdearboy

8,56233 gold badges99 silver badges3333 bronze badges