|
WorkbookBeforeSave Event - check required fields before saving
I am not very good with code, I am trying to Save a workbook, but prior to
saving I want it to check certain fields to ensure they are filled in. Below is the code I am using, but doesn't seem to work. Any Suggestions?? Linda Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) a = MsgBox("Do you really want to save the workbook?", vbYesNo) If a = vbYes Then SaveAsUI = True If TextBox8 = "" Then MsgBox "Please enter Submitting Agency Name" Exit Sub End If If TextBox1 = "" Then MsgBox "Please enter Accounting Unit Code (7 Digits)" Exit Sub End If If TextBox4 = "" Then MsgBox "Please enter Task Coordinator Name" Exit Sub End If If TextBox5 = "" Then MsgBox "Please enter Task Coordinator Telephone Number" Exit Sub End If If TextBox6 = "" Then MsgBox "Please enter Task Coordinator Email Address" Exit Sub End If End Sub |
WorkbookBeforeSave Event - check required fields before saving
On Mar 25, 12:23*pm, LRay67 wrote:
I am not very good with code, I am trying to Save a workbook, but prior to saving I want it to check certain fields to ensure they are filled in. *Below is the code I am using, but doesn't seem to work. *Any Suggestions?? Linda Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ * * * * ByVal SaveAsUI As Boolean, Cancel As Boolean) * a = MsgBox("Do you really want to save the workbook?", vbYesNo) * * If a = vbYes Then SaveAsUI = True *If TextBox8 = "" Then * * MsgBox "Please enter Submitting Agency Name" * * Exit Sub * * End If If TextBox1 = "" Then * * MsgBox "Please enter Accounting Unit Code (7 Digits)" * * Exit Sub * * End If *If TextBox4 = "" Then * * MsgBox "Please enter Task Coordinator Name" * * Exit Sub * * End If *If TextBox5 = "" Then * * MsgBox "Please enter Task Coordinator Telephone Number" * * Exit Sub * * End If *If TextBox6 = "" Then * * MsgBox "Please enter Task Coordinator Email Address" * * Exit Sub * * End If *End Sub Try this .... Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim bnSave as Boolean a = MsgBox("Do you really want to save the workbook?", vbYesNo) If a = vbYes Then bnSave = True If TextBox8 = "" Then MsgBox "Please enter Submitting Agency Name" Exit Sub End If If TextBox1 = "" Then MsgBox "Please enter Accounting Unit Code (7 Digits)" Exit Sub End If If TextBox4 = "" Then MsgBox "Please enter Task Coordinator Name" Exit Sub End If If TextBox5 = "" Then MsgBox "Please enter Task Coordinator Telephone Number" Exit Sub End If If TextBox6 = "" Then MsgBox "Please enter Task Coordinator Email Address" Exit Sub End If If bnSave = True then ActiveWorkbook.Save End if End Sub Does that help?? Chris |
WorkbookBeforeSave Event - check required fields before saving
Chris, I am not even getting the 1st message box "Do you really want to save
the workbook?" Nothing is working....Is there a particular place in the code sheet that I am to place the Private Sub App_WorkbookBeforeSave statement? Help -Thanks "cht13er" wrote: On Mar 25, 12:23 pm, LRay67 wrote: I am not very good with code, I am trying to Save a workbook, but prior to saving I want it to check certain fields to ensure they are filled in. Below is the code I am using, but doesn't seem to work. Any Suggestions?? Linda Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) a = MsgBox("Do you really want to save the workbook?", vbYesNo) If a = vbYes Then SaveAsUI = True If TextBox8 = "" Then MsgBox "Please enter Submitting Agency Name" Exit Sub End If If TextBox1 = "" Then MsgBox "Please enter Accounting Unit Code (7 Digits)" Exit Sub End If If TextBox4 = "" Then MsgBox "Please enter Task Coordinator Name" Exit Sub End If If TextBox5 = "" Then MsgBox "Please enter Task Coordinator Telephone Number" Exit Sub End If If TextBox6 = "" Then MsgBox "Please enter Task Coordinator Email Address" Exit Sub End If End Sub Try this .... Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim bnSave as Boolean a = MsgBox("Do you really want to save the workbook?", vbYesNo) If a = vbYes Then bnSave = True If TextBox8 = "" Then MsgBox "Please enter Submitting Agency Name" Exit Sub End If If TextBox1 = "" Then MsgBox "Please enter Accounting Unit Code (7 Digits)" Exit Sub End If If TextBox4 = "" Then MsgBox "Please enter Task Coordinator Name" Exit Sub End If If TextBox5 = "" Then MsgBox "Please enter Task Coordinator Telephone Number" Exit Sub End If If TextBox6 = "" Then MsgBox "Please enter Task Coordinator Email Address" Exit Sub End If If bnSave = True then ActiveWorkbook.Save End if End Sub Does that help?? Chris |
WorkbookBeforeSave Event - check required fields before saving
On Mar 25, 1:11*pm, LRay67 wrote:
Chris, I am not even getting the 1st message box "Do you really want to save the workbook?" Nothing is working....Is there a particular place in the code sheet that I am to place the Private Sub App_WorkbookBeforeSave statement? * Help *-Thanks "cht13er" wrote: On Mar 25, 12:23 pm, LRay67 wrote: I am not very good with code, I am trying to Save a workbook, but prior to saving I want it to check certain fields to ensure they are filled in. *Below is the code I am using, but doesn't seem to work. *Any Suggestions?? Linda Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ * * * * ByVal SaveAsUI As Boolean, Cancel As Boolean) * a = MsgBox("Do you really want to save the workbook?", vbYesNo) * * If a = vbYes Then SaveAsUI = True *If TextBox8 = "" Then * * MsgBox "Please enter Submitting Agency Name" * * Exit Sub * * End If If TextBox1 = "" Then * * MsgBox "Please enter Accounting Unit Code (7 Digits)" * * Exit Sub * * End If *If TextBox4 = "" Then * * MsgBox "Please enter Task Coordinator Name" * * Exit Sub * * End If *If TextBox5 = "" Then * * MsgBox "Please enter Task Coordinator Telephone Number" * * Exit Sub * * End If *If TextBox6 = "" Then * * MsgBox "Please enter Task Coordinator Email Address" * * Exit Sub * * End If *End Sub Try this .... Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, _ * * * * ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim bnSave as Boolean * a = MsgBox("Do you really want to save the workbook?", vbYesNo) * * If a = vbYes Then bnSave = True *If TextBox8 = "" Then * * MsgBox "Please enter Submitting Agency Name" * * *Exit Sub End If *If TextBox1 = "" Then * * *MsgBox "Please enter Accounting Unit Code (7 Digits)" * * *Exit Sub End If If TextBox4 = "" Then * * *MsgBox "Please enter Task Coordinator Name" * * *Exit Sub End If If TextBox5 = "" Then * * *MsgBox "Please enter Task Coordinator Telephone Number" * * *Exit Sub End If If TextBox6 = "" Then * * *MsgBox "Please enter Task Coordinator Email Address" * * *Exit Sub End If If bnSave = True then * * *ActiveWorkbook.Save End if End Sub Does that help?? Chris- Hide quoted text - - Show quoted text - Aha! Place this in the "ThisWorkbook" area: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim bnSave As Boolean a = MsgBox("Do you really want to save the workbook?", vbYesNo) If a = vbYes Then bnSave = True If TextBox8 = "" Then MsgBox "Please enter Submitting Agency Name" Exit Sub End If If TextBox1 = "" Then MsgBox "Please enter Accounting Unit Code (7 Digits)" Exit Sub End If If TextBox4 = "" Then MsgBox "Please enter Task Coordinator Name" Exit Sub End If If TextBox5 = "" Then MsgBox "Please enter Task Coordinator Telephone Number" Exit Sub End If If TextBox6 = "" Then MsgBox "Please enter Task Coordinator Email Address" Exit Sub End If If bnSave = True Then SaveAsUI = True End If End Sub |
| All times are GMT +1. The time now is 10:44 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com