Peculiar behavior — button on userform

[Nick Vittum]

I have a workbook that opens as "Application.Visible = False." A userform opens instead. On the userform is a toggle button to hide or unhide the spreadsheet.. So far, everything works flawlessly. Toggle in, toggle out, shows or hides.

The glitch comes if the userform is closed for some reason. If that happens, there is a button on the spreadsheet to call the userform, When that is done, if the toggle button is pressed, nothing happens. It has to be pressed for a second time before it will work. After that, it again works flawlessly. It's only that first click after re-calling the form that it misbehaves.

I figure there has to be some conflict in the code that's confusing it, but I can't find what it is. The code for the toggle is as follows—

Private Sub ToggleShow_Hide_Click()

If ToggleShow_Hide.Value = False Then
    Call Hide_Window
    Call Show_Userform1
        Else
    Call Show_Window

    End If

End Sub

—and the three "Calls" are these:

Option Explicit

Sub Hide_Window()

    Application.Visible = False

End Sub

Sub Show_Window()

    Application.Visible = True
    
End Sub


Sub Show_Userform1()

    If UserForm1.Visible Then
        Exit Sub
            Else
        UserForm1.Show vbModeless
    End If

End Sub

Any help here? (There's more code to the Userform than this, but I can't find any that interacts with the toggle button in question. I hate to post a whole wall of text that's not needed.)

[TMS]

In the code you have posted, it doesn't appear that you reset the ToggleShow_Hide variable value. It may be that you do it elsewhere but I’m guessing that it isn't set to the correct value when the form is closed.

[Nick Vittum]

Thank you Trevor. You'll have to bear with me—I don't know code very well. I know how to do some things, and I'm getting better, but half the time I don't really understand what it is I'm doing. So I'm sure you're right. I didn't reset the value because I don't know how (let alone know that it was necessary ) I'm researching that now, but any pointers you can give me would be more than welcome.

[Nick Vittum]

(just wanted to give this a bump, since I haven't been able to find the answer yet)

[TMS]

I would imagine it should be something like ...

Option Explicit

Sub Hide_Window()

    Application.Visible = False
    ToggleShow_Hide.Value = True

End Sub

Sub Show_Window()

    Application.Visible = True
    ToggleShow_Hide.Value = False

End Sub

[Nick Vittum]

Thank you again, Trevor

I tried inserting those toggle values in the Show and Hide macros, as you suggested. Then it wanted me to define "ToggleShow_Hide" so I defined it as "ToggleButton" (seemed logical). Like this:

Option Explicit
Dim ToggleShow_Hide As ToggleButton

Sub Hide_Window()

    Application.Visible = False
    ToggleShow_Hide.Value = True

End Sub

Sub Show_Window()

    Application.Visible = True
    ToggleShow_Hide.Value = False
    
End Sub

—but then it froze up on ToggleShow_Hide.Value, with the following message:
Attachment 663403. I'm so confused....Am I defining it wrong? Do I need another line to my definitions?