The Word userform checkbox (checked/unchecked) is not saved on the Application Quit

matapagi2019 · #1 03-30-2019, 08:08 PM

In Ms Word, I need a form that contains a Checkbox (ChBoxDisplay) and a Button (BtnExit). If ChBoxDisplay is checked the Userform1.hide, and if it is not checked the Userform1.show.
In the code below, when ChBoxDisplay is checked, and then the MS Word application exits by the Application.Quit command, the checkbox on ChBoxDisplay is not saved.

Code:

Private Sub BtnExitl_Click()
    Application.Quit SaveChanges:=True
End Sub

Private Sub Document_Open()
If UserForm1.ChBoxDisplay.Value = True Then
        UserForm1.Hide
    Else
        UserForm1.Show
    End If
End Sub

How to keep ChBoxDisplay Checked or unchecked when Ms Word Quit?

All help is highly expected and I am very grateful.

gmayor · #2 03-30-2019, 09:07 PM

Use the exit from the userform to set a document variable value to true or false then read that document variable value to determine whether to show the userform or not when the document is opened.

matapagi2019 · #3 03-31-2019, 12:45 AM

Quote:

Originally Posted by gmayor

Use the exit from the userform to set a document variable value to true or false then read that document variable value to determine whether to show the userform or not when the document is opened.

Thank you @gmayor for your fast response and your assistance. But maybe because of my stupidity, I can't understand what you mean yet, and I can't implement it yet.

Can you explain it more specifically ??

Thanks a lot.

gmayor · #4 03-31-2019, 02:29 AM

Basically you would use your close macro to set the document variable e.g.

Code:

Private Sub BtnExitl_Click()
    ThisDocument.Variables("varShow").value = "True"
    ThisDocument.Save
    Application.Quit
End Sub

and then look for that variable when you open the document again. If the variable is not present then show the userform.

Code:

Private Sub Document_Open()
Dim oVar As Variable
Dim bVar As Boolean
    For Each oVar In ThisDocument.Variables
        If oVar.Name = "varShow" Then
            If oVar.value = "True" Then
                bVar = True
                Exit For
            End If
        End If
    Next oVar
    If bVar = False Then UserForm1.Show
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA in Word 2010 to show certain text only when a YES checkbox is checked	kdsim	Word VBA	0	05-16-2018 05:16 AM
Merged Checkbox Fields Always Checked	pdxplorer	Mail Merge	11	12-20-2017 12:37 PM
Checkboxes are unchecked in Listbox that were checked off before.How can I stop this?	Rochelle711	Excel Programming	0	06-22-2014 06:16 PM
Checkbox on Userform result in Text in Word	Dolfie_twee	Word VBA	1	06-22-2010 07:54 AM
Excel 2003 will not terminate with application.quit	Peter Schellenbach	Excel	12	03-14-2006 05:28 PM