Cascading Drop Down

and23 · #1 05-21-2018, 08:04 AM

I want to make a cascading drop down that if N/A is selected on drop down 1 then the next two drop downs will auto-populate with N/A and be non-editable.

macropod · #2 05-21-2018, 02:48 PM

What kind of dropdown?

and23 · #3 05-22-2018, 05:23 AM

I'm using the Drop Down List Content Control in Developer.

I wouldn't mind doing it an alternative way if possible.

macropod · #4 05-22-2018, 03:45 PM

You could use a ContentControlOnExit macro in the 'ThisDocument' code module of the document or its template, coded like:

Code:

Private Sub Document_ContentControlOnExit(ByVal CCtrl As ContentControl, Cancel As Boolean)
Dim i As Long
With CCtrl
  If .Title = "Master" Then
    If .Range.Text = "N/A" Then
      For i = 1 To 2
        With ActiveDocument.SelectContentControlsByTitle("Slave")(i)
          .Type = wdContentControlText
          .Range.Text = "N/A"
          .LockContents = True
        End With
      Next
    Else
      For i = 1 To 2
        With ActiveDocument.SelectContentControlsByTitle("Slave")(i)
          If .Type = wdContentControlText Then
            .LockContents = False
            .Range.Text = ""
            .Type = wdContentControlDropdownList
          End If
        End With
      Next
    End If
  End If
End With
End Sub

In the above code, the controlling content control is titled 'Master' and the two dependent content controls are titled 'Slave'.

and23 · #5 05-22-2018, 08:30 PM

Thank you. That worked, but it gives me an error stating "Run-time error '6124': You are not allowed to edit this selection because it is protected." whenever I click out of the Master Content Control Drop Down.

Sorry for the inconvenience, I'm new with VBA so don't really know much about it.

Thanks!

and23 · #6 05-22-2018, 08:33 PM

Another issue is that when I select another option (in my case the word "test") after I choose N/A it does not become re-editable is that an extra step?

macropod · #7 05-23-2018, 02:24 AM

Unless you've misnamed your master, the slaves alone should lock/unlock. Without seeing your document, though, I can't investigate the issue.

and23 · #8 05-23-2018, 06:05 AM

See attached. It seems like it doesn't give that error anymore, but it still doesn't unlock.
Thanks!

macropod · #9 05-23-2018, 02:33 PM

Your attachment is in the docx format, so it can't contain the ContentControlOnExit macro. Unless you added the ContentControlOnExit macro to the 'ThisDocument' code module of the document's template, therefore, you would lose its functionality as soon as you close the document. If you don' want to do that, you'll need to save the document in the docm format (i.e. as a macro-enabled document), with the ContentControlOnExit macro to the 'ThisDocument' code module of the document itself.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Help with cascading dropdown list	SaraO	Word VBA	45	02-05-2023 05:33 PM
Userform with Multiple Cascading Drop Down Lists Populated with External Source Data	venganewt	Word VBA	21	05-16-2018 02:05 PM
Cascading List Word 2010	Marvel	Word VBA	11	05-14-2016 02:08 AM
Issue Using Word Document with Cascading Drop Down Lists	LynnMac2016	Word VBA	3	04-06-2016 06:15 AM
How to update cascading styles?	mmmb	Word	3	01-21-2016 07:08 PM