Hi Richard, I'm running Office 365 and coding this.  It keeps "gagging on the Ctl.Locked and Ctl.Backcolor when I try to run it.  Is there a change in the VBA code now?  I THINK I checked my code against yours and it looks the same.

For Each Ctl In Me
        If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Then
         Ctl.Locked = True
         clt.BackColor = RGB(200, 200, 200) 'gray
        
        End If

---

Reply from Alex Hedley:

Do you Dim up your Ctl?
Dim ctl As Control

Have you missed the "Next" statement at the end of your "For Each"?

For example info on the Textbox properties

TextBox.ControlType property (Access)
https://docs.microsoft.com/en-us/office/vba/api/access.textbox.controltype

TextBox.Locked property (Access)
https://docs.microsoft.com/en-us/office/vba/api/access.textbox.locked

TextBox.BackColor property (Access)
https://docs.microsoft.com/en-us/office/vba/api/access.textbox.backcolor