loop through controls
 

Hi Julie

try this

Private Sub cmdChange_Click()
Dim ctrl As Control
For Each ctrl In Me.Controls
Select Case ctrl.Enabled
Case True
ctrl.Enabled = False
ctrl.Locked = True
Case False
ctrl.Enabled = True
ctrl.Locked = False
End Select
Next
With Me.cmdChange 'stops the button from being affected
.Enabled = True
.Locked = False
End With
End Sub