Note: The other languages of the website are Google-translated. Back to English
Log in Register

How to make a particular cell mandatory enter before closing workbook?

When you share a workbook to other users for doing a survey which needs the real name registration, for instance, every user under investigation needs to enter their name in B1. But in some times, some users may close the workbook after investigation without entering their names. In this article, I introduce a VBA to make a particular cell mandatory before closing the workbook.

Make a cell mandatory enter with VBA

arrow blue right bubble Make a cell mandatory enter with VBA

1. Enable the workbook that contains the mandatory cell, and press Alt + F11 keys to open Microsoft Visual Basic for Applications window.

2. In the Project pane, double click ThisWorkbook, and go to select Workbook and BeforeClose from right section list, then paste below code to the script. See screenshot:

VBA: Make a cell mandatory

    If Cells(1, 2).Value = "" Then
        MsgBox "Cell B1 requires user input", vbInformation, "Kutools for Excel"
        Cancel = True
    End If

doc mandantory enter 1

3. Then save this code and close this popping window. Now, if the cell B1 is blank when you close the workbook, below dialog will pop out to remind you to enter something in B1. See screenshot:
doc mandantory enter 2

Tip: You can change cell B1 to other cells you want.

The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Comments (18)
No ratings yet. Be the first to rate!
ashley
ashley
This comment was minimized by the moderator on the site
how do i make column D16-D300 mandatory if column B16-300 has values? I used the code below for row 16 and tried variations but it is not working. any help is greatly appreciated! 'us business as a mandatory field- need to fix if none are there and window pops up Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Step 1: Check to see if Cell A1 is blank If Sheets("Sensitive Leave Tracker").Range("B16").Value "" And Sheets("Sensitive Leave Tracker").Range("D16").Value = "" Then 'Step 2: Blank: cancel the Close and tell the user Cancel = True MsgBox "Cant close field required" 'Step 3: Not Blank; Save and Close Else ActiveWorkbook.Close SaveChanges:=True End If End Sub
Reply
Sunny
Sunny     ashley
This comment was minimized by the moderator on the site
Hello, sorry to reply so late. Here is the macro code you may be need. If it works, please let me know. Thanks!

If Application.WorksheetFunction.CountA(Range("B16:B300")) > 0 Then

If Application.WorksheetFunction.CountA(Range("D16:D300")) <> Range("D16:D300").Count Then

MsgBox "Cell D16:D300 requires user input", vbInformation, "Kutools for Excel"

Cancel = True

End If

End If
Reply
Report
Vishal Bhagwan Kadam
Vishal Bhagwan Kadam     Sunny
This comment was minimized by the moderator on the site
how do i make column Q7-Q500 mandatory if column B7-B500 has values

I don't want to save flle before completing mandatory filed.

eg.
If I put any value / Text in column D7 to D500 then Column Q7 to Q500 should be Mandatory. (window Pop up)
If i didn't put any value/text in column D7 to D500 then Q7 to Q500 should be empty
Reply
Sunny
Sunny     Vishal Bhagwan Kadam
This comment was minimized by the moderator on the site
Hi, try above VBA and change the reference to you own need.
Reply
Report
Shabaaz
Shabaaz
This comment was minimized by the moderator on the site
Did you ever fined an answer to this?
Reply
Sunny
Sunny     Shabaaz
This comment was minimized by the moderator on the site
Sorry, which question do you mean?
Reply
Report
zwaenepoel
zwaenepoel
This comment was minimized by the moderator on the site
Hello, thank you for this formula, it works!

However, now I have created a template in which several cells are mandatory to fill out. But after creating the template and entering the macro, I cannot close it, because I have to fill out the cells :) So, I cannot send out a template...(where the mandatory cells must still be empty)


Can you help me?

Thanks!
Reply
Report
zagreb
zagreb     zwaenepoel
This comment was minimized by the moderator on the site
Any update on this?
Reply
M
M     zwaenepoel
This comment was minimized by the moderator on the site
I'm interested in this also, thanks!
Reply
Sally
Sally     zwaenepoel
This comment was minimized by the moderator on the site
I have this same issue. Is there a way to make a cell mandatory but blank for a template?
Reply
Rick
Rick     zwaenepoel
This comment was minimized by the moderator on the site
Hi everybody, I found the solution was to pause the macro in the alt+f11 screen. It can then be saved and will restart when next opened. To do this press alt + f11 then in the row of icons above the window (same one as where the little blue file disk icon is) you will see Play, Pause, Stop icons in green and blue (should be under the Debug and Run options). Click the middle pause button then you can save.
Reply
Ricky I
Ricky I     zwaenepoel
This comment was minimized by the moderator on the site
Hi everybody, I found the solution was to pause the macro in the alt+f11 screen. It can then be saved and will restart when next opened. To do this press alt + f11 then in the row of icons above the window (same one as where the little blue file disk icon is) you will see Play, Pause, Stop icons in green and blue (should be under the Debug and Run options). Click the middle pause button then you can save.
Reply
Report
Shea
Shea
This comment was minimized by the moderator on the site
Is there any way that I can Required cell f4 and F5 have data before closing or saving?
Reply
Sunny
Sunny     Shea
This comment was minimized by the moderator on the site
Just change B1 to F4 and F5 in the textbox to remind users.
Reply
Report
Akshay Patil
Akshay Patil
This comment was minimized by the moderator on the site
I want to make rows C2 to C7 mandatory and C13 to C19 mandatory?

Any help?

2 sets of ranges are here but under the same column.
Reply
raman sharma
raman sharma
This comment was minimized by the moderator on the site
i want to make the tick marks mandatory in sheet
Reply
Craig
Craig
This comment was minimized by the moderator on the site
Is there a way to make a cells input mandatory before an Active X command button can be used? I have a command button setup to submit a form via email but want to make certain cells mandatory before the button will submit the email.
Reply
Sunny
Sunny     Craig
This comment was minimized by the moderator on the site
Hi, Craig, sorry this problem cannot be solved here, maybe other else can help you.
Reply
Report
There are no comments posted here yet
Leave your comments
Guest
Posting as Guest
Login
×
Rate this post:
Reset
0   Characters
Suggested Locations