VBA - if control is not locked

[GregJG]

I have a userform that when initialized each textbox is locked
the form has a commandbutton(edit) to unlock all textboxes
when the user closes the userform if the textboxes are unlocked i want it ask to save any changes.

I am getting a typemismatch on this line

    For Each oCtrl In Me.Controls

the whole code is below. does anyone know why?

Private Sub CommandButton1_Click()
Dim oCtrl As MSForms.TextBox
For Each oCtrl In Me.Controls
    If oCtrl.Locked = False Then
        If MsgBox("You have the form in EDIT MODE, do you want to save any changes?", vbYesNo, Title:="SAVE CHANGES?") = vbYes Then
            
            
            
            
        ElseIf vbNo Then
            Unload Me
            Set Me = Nothing
        End If
    ElseIf oCtrl.Locked = True Then
        Unload Me
        Set Me = Nothing
    End If
Next oCtrl
End Sub

[royUK]

Try amending your code like this

Dim oCtrl As MSForms.Control
For Each oCtrl In Me.Controls
  If TypeOf oCtrl Is MSForms.TextBox And oCtrl.Locked = False Then
'etc

[GregJG]

Thanks again for the help Roy!!

[royUK]

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

[romperstomper]

If you can only unlock the textboxes via the button, why not just have a module level boolean variable that you set to True when the Unlock button is pushed? You can then simply check that value when the form closes instead of looping the controls.
Just a thought.