mikeoly
09-11-2019, 07:15 AM
Hi All!
I'm working in a spreadsheet that contains a searchable drop down. As you start typing a keyword in the dropdown, it will populate with related selections.
When this sheet is protected (only non-related ranges), the dropdown doesn't populate with related items. You have to click out of the cell first.
I thought about adding something like this (below), but doesn't seem to work quite right. Does anyone have experience with this?
Private Sub worksheet_selectionchange(ByVal target As Range)
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For I = 26 to 40
If NotIntersect(target, Me.Range("c" & i)) Is Nothing Then
ActiveSheet.Unprotect Password:=""
ElseIfIntersect(target, Me.Range("c" & i)) Is Nothing Then
ActiveSheet.Protect Password:=""
End If
Next
Application.EnableEvents = True
Application.Calculation =xlCalculationAutomatic
End Sub
I'm working in a spreadsheet that contains a searchable drop down. As you start typing a keyword in the dropdown, it will populate with related selections.
When this sheet is protected (only non-related ranges), the dropdown doesn't populate with related items. You have to click out of the cell first.
I thought about adding something like this (below), but doesn't seem to work quite right. Does anyone have experience with this?
Private Sub worksheet_selectionchange(ByVal target As Range)
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For I = 26 to 40
If NotIntersect(target, Me.Range("c" & i)) Is Nothing Then
ActiveSheet.Unprotect Password:=""
ElseIfIntersect(target, Me.Range("c" & i)) Is Nothing Then
ActiveSheet.Protect Password:=""
End If
Next
Application.EnableEvents = True
Application.Calculation =xlCalculationAutomatic
End Sub