Hi
I'm looking for some help, i think its an easy fix but im not to sure, In the attached workbook you will see in column A there is an X in certain rows.
What I'm looking for is if there is an X in column A it locks that entire row
Thanks for the help in advance
Adam
I've moved your thread, as you'll need VBA for this.
Ali
Enthusiastic self-taught user of MS Excel who's always learning!
Don't forget to say "thank you" in your thread to anyone who has offered you help. It's a universal courtesy.
You can reward them by clicking on * Add Reputation below their user name on the left, if you wish.
NB: as a Moderator, I never accept friendship requests.
Forum Rules (updated August 2023): please read them here.
Hi Adam
Place this Code in the Worksheet Module...
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long If Not Target.Column = 1 Then Exit Sub If Target.Value = "X" Then Target.EntireRow.Locked = True ActiveSheet.Protect _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True ActiveSheet.EnableSelection = xlUnlockedCells End If End Sub
John
If you have issues with Code I've provided, I appreciate your feedback.
In the event Code provided resolves your issue, please mark your Thread as SOLVED.
If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.
Hi John
The above works ok but it doesnt give me the ability to make changes if i need to
Adam
How about this ?
Last edited by bakerman2; 10-31-2017 at 07:37 AM. Reason: Slight change to code.
Avoid using Select, Selection and Activate in your code. Use With ... End With instead.
You can show your appreciation for those that have helped you by clicking the * at the bottom left of any of their posts.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks