Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
Lee Lee is offline
external usenet poster
 
Posts: 33
Default Splash Screen

I've copied the code I'm using to stop a splash screen
from running if a specific workbook is open. I have a
template set up that users can open up, make changes, and
save to a new file name. I would like the splash screen
to open only the first time the template is opened. The
tab names are identical and cannot be changed in any of
the files. Is there a way to prevent the splash screen
from running if any instance of Excel is open. Is there a
way to look for a specific tab in all instances of Excel
and somehow use this to stop the splash screen from
running?

Public Const NameWkbook As String = "BOEUpload_Macro.xls"

Private Function IsWkbookOpen(NameWkbook) As Boolean
'determines if Boe Upload Macro file is open
Dim x As Workbook
On Error Resume Next
Set x = Workbooks(NameWkbook)
If Err = 0 Then IsWkbookOpen = True _
Else: IsWkbookIsOpen = False
End Function

Sub CheckIt()
'Run Splash Screen
If IsWkbookOpen(NameWkbook) = False Then SplashScrFrm.Show
End Sub

Thanks for the help.

Lee
Reply
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
Splash Screen Brooke Excel Discussion (Misc queries) 5 March 25th 08 03:58 PM
splash screen K11ngy Excel Discussion (Misc queries) 3 July 9th 07 12:19 PM
splash screen Dave F Excel Discussion (Misc queries) 2 March 16th 07 05:00 PM
Splash Screen Libby -xl97 Excel Programming 2 November 10th 03 09:10 PM
splash screen David W[_3_] Excel Programming 3 September 2nd 03 09:13 PM


All times are GMT +1. The time now is 11:16 PM.

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

About Us

"It's about Microsoft Excel"