LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 7
Default Permanently change CheckBox control's value use VBA

How can I permanently change a CheckBox controls value, which is located on a form, using VBA code

Background
I have created a splash screen form that appears when the workbook is first opened followed by a custom utility. Currently the splash screen can be removed by pressing the esc key or it will automatically be removed after approximately 5 seconds at which time the users can use the utility. I would like to give the user an option of permanently removing the splash screen so I added a CheckBox control to the form, whereby if the CheckBox is empty then the Splash Screen would perform as before. But if the CheckBox contains a check mark then the Splash Screen would be removed permanently and utility would appear by itself

The users can also access the utility through the Tools menu where I added a custom CommandBar routine to bring up the tool. The splash screen appears before the utility but I would like process to change depending on what option is used on the splash scree

Currently the default value for the CheckBox is false. With is false value, all the functionality works the way it was originally designed. I have placed a routine in the CheckBox click event which checks to see if a value is true then perform some action. Quickly I realized that when I closed the workbook and reopened it that the CheckBox value showed the initial false value rather than the changed true value.

Located in ThisWorkbook code module
Private Sub Workbook_Open(
If frmSplashScreen.cbDoNotShowSplashScreen.Value The
CreateMen
frmDataTool.Sho
Els
CreateMen
frmSplashScreen.Sho
frmDataTool.Sho
End I
End su

So I got the bright idea to set the CheckBox value in the forms click event. But that did not work either. Then thought maybe I needed to save the workbook after it was changed but again it did not work.

Private Sub cbDoNotShowSplashScreen_Click(

If cbDoNotShowSplashScreen.Value The
Debug.Print frmSplashScreen.cbDoNotShowSplashScreen.Valu
cbDoNotShowSplashScreen.Value = Tru
ThisWorkbook.Sav
Unload frmSplashScree
End I
End Su

If I change the value using the properties and save the workbook, then everything works as intended but I lose the functionality of letting the users decided whether they want the splash screen to show. I even tried a global variable but it also revered back to the default value when the workbook reopened. I could do with some assistance with is issue and thank you in advance


 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
how do i permanently change the page setup in excel? mahinawai Excel Discussion (Misc queries) 1 July 31st 09 09:31 PM
how to Permanently change default font for comments jmakow Excel Discussion (Misc queries) 2 December 15th 08 06:27 PM
How do I permanently change the Microsoft Office author? liillith Excel Discussion (Misc queries) 2 July 29th 07 09:30 PM
How do I change $ to £ permanently in Excel? Maggie's owner Excel Discussion (Misc queries) 1 May 23rd 06 05:08 PM
how do I change a cell permanently to PM from AM? deedee1001us Excel Discussion (Misc queries) 1 June 11th 05 07:03 PM


All times are GMT +1. The time now is 01:51 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright 2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"