Data Validation Drop-Down List Unique Selection

[samuelaguilar990]

Hello,

I have a sheet which has a column that contains cells which are drop-down lists with the same three choices for all of them. I was wondering if there was any way for me to protect the drop-down list cells in order to enforce a unique selection; that means, once an option from the drop-down is selected on a cell, is there any way to block that cell after that first selection so that the selection cannot be changed?

Thanks in advance.

 

[mumps]

Start by unlocking all the cells that have a drop down list and then protect the sheet. Then copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Change the range in the code to match the range with your drop down lists. If you want to use a password to protect the sheet, the macro will have to be modified. Close the code window to return to your sheet. Make a selection in any drop down.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Target.Locked = True
    ActiveSheet.Protect
    Application.ScreenUpdating = True
End Sub

 

[MickG]

Wrong Thread !!!!