ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Splash Screen (https://www.excelbanter.com/excel-programming/344642-splash-screen.html)

Bill[_30_]

Splash Screen
 
Hello,
I use a splash screen when a macro opens. Never had a problem with it. Now
a user with Excel 2000 had an error after enabling macros: Microsoft Excel
400 error which has to with showing a form. It was the splash screen. When
I bypassed showing the form, it worked for that user. It works fine showing
the splash screen with my Excel 2000.

Code:

In this workbook:


Private Sub Workbook_Open()
SplashSSS.Show
End Sub

In form:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "KilltheForm"
End Sub

In a module:

Public Sub KilltheForm()
Unload SplashSSS
End Sub

Any idea why this would generate an error?

Thanks.

Bill




Bob Phillips[_6_]

Splash Screen
 
I have Excel 2000 on this laptop, and your code worked fine here. Where does
the error occur?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bill" wrote in message
nk.net...
Hello,
I use a splash screen when a macro opens. Never had a problem with it.

Now
a user with Excel 2000 had an error after enabling macros: Microsoft Excel
400 error which has to with showing a form. It was the splash screen.

When
I bypassed showing the form, it worked for that user. It works fine

showing
the splash screen with my Excel 2000.

Code:

In this workbook:


Private Sub Workbook_Open()
SplashSSS.Show
End Sub

In form:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "KilltheForm"
End Sub

In a module:

Public Sub KilltheForm()
Unload SplashSSS
End Sub

Any idea why this would generate an error?

Thanks.

Bill






Bill[_30_]

Splash Screen
 
The error occurs immediately after he selects Enable Macros. He gets a
message saying file not found, then hits help and get the 400 error message.
Very strange since it works on lots of Excel 2000 versions just fine.

Bill


"Bob Phillips" wrote in message
...
I have Excel 2000 on this laptop, and your code worked fine here. Where
does
the error occur?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Bill" wrote in message
nk.net...
Hello,
I use a splash screen when a macro opens. Never had a problem with it.

Now
a user with Excel 2000 had an error after enabling macros: Microsoft
Excel
400 error which has to with showing a form. It was the splash screen.

When
I bypassed showing the form, it worked for that user. It works fine

showing
the splash screen with my Excel 2000.

Code:

In this workbook:


Private Sub Workbook_Open()
SplashSSS.Show
End Sub

In form:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "KilltheForm"
End Sub

In a module:

Public Sub KilltheForm()
Unload SplashSSS
End Sub

Any idea why this would generate an error?

Thanks.

Bill









All times are GMT +1. The time now is 05:11 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com