Excel Splash Screen Macro - Display on Opening a File
1.7 هزار بار بازدید -
پارسال
-
Excel Splash Screen - Display
Excel Splash Screen - Display with a Macro on Opening a File
Learn how to display a splash screen over the top of an Excel file on opening the file. This screen is created using a custom form that I will step you through creating. The macro uses the special Auto_Open event in Excel to run on opening a file. The user can opt to hide the screen for the future but this can be reversed. This macro solution is full of handy information relating to creating forms and keeping track of user settings using a simple text file.
This code goes behind the form:
Private Sub CommandButton1_Click()
If CheckBox1.Value Then
Open CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Productsplashscreendisabled.txt" For Output As #1
Close #1
End If
Sheets("Help").Select
Unload Me
End Sub
Private Sub CommandButton2_Click()
If CheckBox1.Value Then
Open CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Productsplashscreendisabled.txt" For Output As #1
Close #1
End If
Sheets("Sheet1").Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.Top = Application.Top + (Application.UsableHeight / 2) - (Me.Height / 2)
Me.Left = Application.Left + (Application.UsableWidth / 2) - (Me.Width / 2)
End Sub
This code goes in a module in your file:
Sub auto_open()
If Dir(CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Productsplashscreendisabled.txt") = "" Then
UserForm1.Show
End If
End Sub
This is the code for the two button_click events:
Sub Button1_Click()
On Error Resume Next
Kill CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Productsplashscreendisabled.txt"
End Sub
Sub Button2_Click()
UserForm1.Show
End Sub
VIEW MORE VIDEOS JUST LIKE THIS ON MY YOUTUBE CHANNEL
Microsoft Office ► @mastermicrosoftoffice
TIP ME TO SAY THANK YOU? ► paypal.me/projectwoman
VISIT PROJECTWOMAN.COM FOR MORE ON MICROSOFT OFFICE APPLICATIONS:
Website ► http://www.projectwoman.com
Blog ► http://www.projectwoman.com/blogger
LET'S CONNECT!
Facebook ► Facebook: projectwoman
Twitter ► Twitter: helenbradley
LinkedIn ► LinkedIn: HelenBradley
IF YOU LIKED THIS VIDEO YOU MAY LIKE THESE SIMILAR VIDEOS:
Microsoft Excel Mac - Remove Custom Templates ► Excel Mac - Remove Templates
Microsoft Word - Images in Tables - How to place & position pictures in Word Tables ►Word - Images in Tables - How to plac...
Microsoft Word - Change Default Image Wrap ► Word - Change Image Default - Make Te...
Microsoft Excel - Custom Lists and Sort lists ► Excel - Custom Lists and Sort lists -...
Microsoft Excel - Count days between two dates ►Excel - Count days between two dates
Microsoft Word - Table Cell Widths - Adjust one or more with ease ► Microsoft Word - Table Cell Widths - ...
A Microsoft Word Macro to Resize All Images in a document A Word Macro to Resize All Images in ...
Microsoft Excel - Format a List Instantly - Quick & Easy Table Formatting Trick for Lists ► Insanely Simple Excel Formatting Trick
Office Tab for Word Excel and PowerPoint - A quick look at this handy application ► Office Tab for Word Excel and PowerPo...
Microsoft Excel - Hide Unused Rows and Columns - Show only used cells ► Excel - Hide Unused Rows and Columns ...
Microsoft Excel - Click to Enter Data - Create Custom Spin Buttons ► Excel - Click to Enter Data - Create ...
Excel - Save to Computer not OneDrive - Change the Excel default Save location ► Excel - Save to Computer not OneDrive...
Excel - Personal Macro Workbook - what it is and how to create and use it ► Excel - Personal Macro Workbook - wha...
Excel - File Save Macro - A Smart Macro to Manage Saving Files Better ► Excel - File Save Macro - A Cell's Co...
Excel - Charts that Don't Lie - Configure Sparklines to be Useful ► Excel - Charts that Don't Lie - Confi...
Word Calendar Wizard - Get the original Calendar Wizard to work in 2023 ► Word Calendar Wizard - Setup to work ...
Excel Goal Seek - Find Answers Quickly & Easily ► Excel Goal Seek - Find Answers Quickl...
Excel Chart for B & W Print & Photocopying - Grayscale Chart Formatting ► Excel Chart for B & W Print & Photoco...
Excel - Chart With 2 Axes - Add a 2nd Axis to a Chart & Control the Data Shown ► Excel - Chart With 2 Axes - Add a 2nd...
Excel Data With ChatGPT - Create Data for Practice - for Teachers & Trainers► Excel Data With ChatGPT - Create Data...
Excel - VBA File Open Macro - Make & Add to Ribbon for One Click Access► Excel - VBA File Open Macro - Make & ...
Excel - Macro to Shade Alternate Rows in a Selection► Excel - Macro to Shade Alternate Rows...
Excel - Conditional Format Shade Alternate Rows - Create a Quick & Easy Format► Unbelievable Excel Secret: Shade Ever...
Excel NETWORKDAYS.INTL: Unlock the Secrets to Accurate Workday Count► Excel - Count Workdays & Exclude Cust...
Save Time in Excel: Quick Math Operations with Copy-Paste - Apply Math Operation to all Data► Save Time in Excel: Quick Math Operat...
Word 365 - 4 Rotate Text Methods - Angled Vertical & Flipped ► MS Word - Rotate Text 4 Ways - Angled...
#helenbradley #microsoftexcel #microsoftoffice #projectwoman #ExcelVBA #ExcelMacro
Learn how to display a splash screen over the top of an Excel file on opening the file. This screen is created using a custom form that I will step you through creating. The macro uses the special Auto_Open event in Excel to run on opening a file. The user can opt to hide the screen for the future but this can be reversed. This macro solution is full of handy information relating to creating forms and keeping track of user settings using a simple text file.
This code goes behind the form:
Private Sub CommandButton1_Click()
If CheckBox1.Value Then
Open CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Productsplashscreendisabled.txt" For Output As #1
Close #1
End If
Sheets("Help").Select
Unload Me
End Sub
Private Sub CommandButton2_Click()
If CheckBox1.Value Then
Open CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Productsplashscreendisabled.txt" For Output As #1
Close #1
End If
Sheets("Sheet1").Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
Me.Top = Application.Top + (Application.UsableHeight / 2) - (Me.Height / 2)
Me.Left = Application.Left + (Application.UsableWidth / 2) - (Me.Width / 2)
End Sub
This code goes in a module in your file:
Sub auto_open()
If Dir(CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Productsplashscreendisabled.txt") = "" Then
UserForm1.Show
End If
End Sub
This is the code for the two button_click events:
Sub Button1_Click()
On Error Resume Next
Kill CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\Productsplashscreendisabled.txt"
End Sub
Sub Button2_Click()
UserForm1.Show
End Sub
VIEW MORE VIDEOS JUST LIKE THIS ON MY YOUTUBE CHANNEL
Microsoft Office ► @mastermicrosoftoffice
TIP ME TO SAY THANK YOU? ► paypal.me/projectwoman
VISIT PROJECTWOMAN.COM FOR MORE ON MICROSOFT OFFICE APPLICATIONS:
Website ► http://www.projectwoman.com
Blog ► http://www.projectwoman.com/blogger
LET'S CONNECT!
Facebook ► Facebook: projectwoman
Twitter ► Twitter: helenbradley
LinkedIn ► LinkedIn: HelenBradley
IF YOU LIKED THIS VIDEO YOU MAY LIKE THESE SIMILAR VIDEOS:
Microsoft Excel Mac - Remove Custom Templates ► Excel Mac - Remove Templates
Microsoft Word - Images in Tables - How to place & position pictures in Word Tables ►Word - Images in Tables - How to plac...
Microsoft Word - Change Default Image Wrap ► Word - Change Image Default - Make Te...
Microsoft Excel - Custom Lists and Sort lists ► Excel - Custom Lists and Sort lists -...
Microsoft Excel - Count days between two dates ►Excel - Count days between two dates
Microsoft Word - Table Cell Widths - Adjust one or more with ease ► Microsoft Word - Table Cell Widths - ...
A Microsoft Word Macro to Resize All Images in a document A Word Macro to Resize All Images in ...
Microsoft Excel - Format a List Instantly - Quick & Easy Table Formatting Trick for Lists ► Insanely Simple Excel Formatting Trick
Office Tab for Word Excel and PowerPoint - A quick look at this handy application ► Office Tab for Word Excel and PowerPo...
Microsoft Excel - Hide Unused Rows and Columns - Show only used cells ► Excel - Hide Unused Rows and Columns ...
Microsoft Excel - Click to Enter Data - Create Custom Spin Buttons ► Excel - Click to Enter Data - Create ...
Excel - Save to Computer not OneDrive - Change the Excel default Save location ► Excel - Save to Computer not OneDrive...
Excel - Personal Macro Workbook - what it is and how to create and use it ► Excel - Personal Macro Workbook - wha...
Excel - File Save Macro - A Smart Macro to Manage Saving Files Better ► Excel - File Save Macro - A Cell's Co...
Excel - Charts that Don't Lie - Configure Sparklines to be Useful ► Excel - Charts that Don't Lie - Confi...
Word Calendar Wizard - Get the original Calendar Wizard to work in 2023 ► Word Calendar Wizard - Setup to work ...
Excel Goal Seek - Find Answers Quickly & Easily ► Excel Goal Seek - Find Answers Quickl...
Excel Chart for B & W Print & Photocopying - Grayscale Chart Formatting ► Excel Chart for B & W Print & Photoco...
Excel - Chart With 2 Axes - Add a 2nd Axis to a Chart & Control the Data Shown ► Excel - Chart With 2 Axes - Add a 2nd...
Excel Data With ChatGPT - Create Data for Practice - for Teachers & Trainers► Excel Data With ChatGPT - Create Data...
Excel - VBA File Open Macro - Make & Add to Ribbon for One Click Access► Excel - VBA File Open Macro - Make & ...
Excel - Macro to Shade Alternate Rows in a Selection► Excel - Macro to Shade Alternate Rows...
Excel - Conditional Format Shade Alternate Rows - Create a Quick & Easy Format► Unbelievable Excel Secret: Shade Ever...
Excel NETWORKDAYS.INTL: Unlock the Secrets to Accurate Workday Count► Excel - Count Workdays & Exclude Cust...
Save Time in Excel: Quick Math Operations with Copy-Paste - Apply Math Operation to all Data► Save Time in Excel: Quick Math Operat...
Word 365 - 4 Rotate Text Methods - Angled Vertical & Flipped ► MS Word - Rotate Text 4 Ways - Angled...
#helenbradley #microsoftexcel #microsoftoffice #projectwoman #ExcelVBA #ExcelMacro
پارسال
در تاریخ 1402/01/10 منتشر شده
است.
1,744
بـار بازدید شده