كيفية منع الحفظ إذا كانت خلية معينة فارغة في إكسيل؟

على سبيل المثال ، قمت بتصميم نموذج في ورقة العمل ومشاركته مع زملائك. تأمل أن يملأ زملاؤك أسمائهم في الخلية المحددة للإشارة إلى من أدخل هذا النموذج ، وإلا تمنعهم من حفظ النموذج ، كيف يمكنك أن تفعل؟ سأقدم هنا ماكرو VBA لمنع حفظ مصنف إذا كانت الخلية المحددة فارغة في Excel.

علامة تبويب Office تمكن من التحرير والتصفح المبوب في المكتب ، واجعل عملك أسهل بكثير ...

اقرأ أكثر... تحميل مجاني ...

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام أي شيء: أضف الصيغ والمخططات الأكثر استخدامًا أو تعقيدًا وأي شيء آخر إلى مفضلاتك ، وأعد استخدامها بسرعة في المستقبل.
أكثر من 20 ميزة نصية: استخراج رقم من سلسلة نصية ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية.
أدوات الدمج: مصنفات وأوراق متعددة في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقد البيانات ؛ دمج الصفوف المكررة والمجموع.
أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد لملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة.
لصق التخطي صفوف مخفية / مصفاة العد والمجموع حسب لون الخلفية؛ إرسال رسائل بريد إلكتروني مخصصة إلى مستلمين متعددين بشكل مجمع.
مرشح سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ تصنيف حسب: حسب الأسبوع واليوم والتكرار والمزيد ؛ تطبيق الفلتر بواسطة bold، formulas، comment ...
أكثر من 300 ميزة قوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك.

اقرأ أكثر... تحميل مجاني ...

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

منع الحفظ إذا كانت خلية معينة فارغة في Excel

لمنع حفظ المصنف الحالي إذا كانت الخلية المحددة فارغة في Excel ، يمكنك تطبيق ماكرو VBA التالي بسهولة.

الخطوة 1: افتح نافذة Microsoft Visual Basic for Applications بالضغط على ملف قديم + F11 مفاتيح في غضون ذلك.

الخطوة 2: في Project Explorer ، قم بتوسيع ملف VBAProject (اسم المصنف الخاص بك. xlsm) و كائنات ميكروسوفت إكسيل، ثم انقر نقرًا مزدوجًا فوق ملف ThisWorkbook. انظر لقطة الشاشة على اليسار:

الخطوة 3: في نافذة ThisWorkbook الافتتاحية ، الصق ماكرو VBA التالي:

ماكرو فبا: منع الحفظ إذا كانت خلية معينة فارغة

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Application.Sheets("TEST").Range("A1").Value = "" Then
Cancel = True
MsgBox "Save cancelled"
End If
End Sub

ملاحظة: في التعليمات البرمجية لـ VBA ، يكون "الاختبار" هو اسم ورقة العمل المحدد ، و "A1"هي الخلية المحددة ، ويمكنك تغييرها حسب حاجتك.

الآن إذا كانت الخلية المحددة فارغة في المصنف الحالي ، فعند حفظها ، يظهر مربع حوار تحذير ويخبرك "تم إلغاء الحفظ". انظر لقطة الشاشة التالية:

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء...

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...

19 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

or post as a guest, but your post won't be published automatically.

Loading comment... The comment will be refreshed after 00:00.

To post as a guest, your comment is unpublished.
Aditya · 5 months ago
This is not working, it states save cancelled but still ends up saving the workbook
- Reply
- To post as a guest, your comment is unpublished.
  kellytte · 5 months ago
  
  Note: In the VBA code, the "TEST" is the specific worksheet name, and the "A1" is the specific cell, and you can change them as you need.
  
  For example, your sheet is named as "Sheet1", and the specified cell is B2, you need to change the sheet name and cell address in the VBA code before running it
  
  Reply
To post as a guest, your comment is unpublished.
Happy · 10 months ago
I tried above formula which works. May i know is there any formula can force user to fill in before they can save? As i set the pull down menu "Please select", "Yes" or "No" for them to select. But they always forgot to select that field and remain "Please select". If i add this VBA code only apply cell is blank. Much appreciate you can advise. Thank you
- Reply
- To post as a guest, your comment is unpublished.
  kellytte · 10 months ago
  
  Hi Happy,
  Just replace the empty value “Sheets("TEST").Range("A1").Value = ""” to the specified text “Sheets("TEST").Range("A1").Value = "Please select"”
  And the whole code will be changed as below:
  
  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Application.Sheets("TEST").Range("A1").Value = "Please select" Then Cancel = True MsgBox "Save cancelled" End If End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Happy · 10 months ago
Hi, I tried above formula which works. May i know is there any formula can force user to fill in before they can save? As i set the pull down menu "Please select", "Yes" or "No" for them to select. But they always forgot to select that field and remain "Please select". If i add this VBA code only apply cell is blank. Much appreciate you can advise. Thank you
- Reply
To post as a guest, your comment is unpublished.
Am1n · 10 months ago
Hi
I have a VBA code that sorts and filters data from one excel table and save 48 different reports on my desktop. but based on those filters, some generated reports have only 1 row (headers) and no data. How can I add some VBA code to my file that prevents to save files that has just one row (header) and no data?
Thank you
- Reply
To post as a guest, your comment is unpublished.
Amin · 10 months ago
Hi
I have a VBA code that sorts and filters data from one excel table and save 48 different reports on my desktop. but based on those filters, some generated reports have only 1 row (headers) and no data. How can I add some VBA code to my file that prevents to save files that has just one row (header) and no data?
Thank you
- Reply
To post as a guest, your comment is unpublished.
Benjamin · 1 years ago
good afternoon, I used the code above and it worked perfectly. my question is what should the code look like if I want to test on 2 cells? I am quite desperate. thanking you I advance for your assistance
- Reply
To post as a guest, your comment is unpublished.
Yzelle · 1 years ago
I have a very big spreadsheet that contains a lot of info.
Can someone please help me with a code to copy into VBA - I want it to be that if Cell C2-C1000+ have any info in them then cell O2-O1000+ and P2-P1000+ requires user input - however if a cell in Column C is empty then the cell in Column O & P can be empty as well. (for example) if cell C3 doesn't have any data input then cell O3-P3 can be empty.

Thank you :)
- Reply
- To post as a guest, your comment is unpublished.
  kellytte · 1 years ago
  
  Hi Yzelle,
  Please remember to place below code into “ThisWorkbook” script window, and rename the worksheet name “Test” in the below code based on your condition.
  
  Dim xIRg As Range
  Dim xSRg As Range
  Dim xBol As Boolean
  Dim xInt As Integer
  Dim xStr As String
  If ActiveSheet.Name = "Test" Then
  Set xRg = Range("C:C")
  Set xRRg = Intersect(xRg.Worksheet.UsedRange, xRg)
  xBol = False
  On Error Resume Next
  For xInt = 1 To xRRg.Count
  Set xIRg = xRRg.Item(xInt)
  If xIRg.Value2 <> "" Then
  Set xSRg = Nothing
  If (Range("O" & xIRg.Row) = "") Or (Range("P" & xIRg.Row) = "") Then
  xBol = True
  Exit For
  End If
  End If
  Next
  If xBol Then
  Cancel = True
  MsgBox "Save cancelled"
  End If
  End If
  End Sub
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Fatos Gaxha · 3 months ago
  
  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  
  With Sheets("Sheet1")
  If WorksheetFunction.CountA(.Range("A1:A4")) <> WorksheetFunction.CountA(.Range("B1:C4")) / 2 Then
  Cancel = True
  MsgBox "Please enter a values in columns B and C", vbCritical, "Error!"
  End If
  End With
  
  End Sub
  
  Just change the range from a to c, and from b to o and p
  hope it will help
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Fatos Gaxha · 3 months ago
  
  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  
  With Sheets("Sheet1")
  If WorksheetFunction.CountA(.Range("A1:A4")) <> WorksheetFunction.CountA(.Range("B1:C4")) / 2 Then
  Cancel = True
  MsgBox "Please enter a values in columns B and C", vbCritical, "Error!"
  End If
  End With
  
  End Sub
  
  Just change the range from a to c, and from b to o and p
  hope it will help
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Reece · 10 days ago
  
  Do you have a way that this can be coded so that either B or C need to be populated but its not required to populate both?
  
  Reply
To post as a guest, your comment is unpublished.
andrewgonzales048@gmail.com · 2 years ago
This is really great. Do you know what I can do to make this work for a range of sheets and a number of cells? Also, these cells cannot always be the same, as there are sheets generated in this specific workbook which may not have the same cell needing to be filled each time. The cells will always be in the same column, just above the page border which is also generated. Thanks!
- Reply
To post as a guest, your comment is unpublished.
mhoferica@gmail.com · 2 years ago
Hi, very useful. BUT there is a problem when I use it for files on the sharepoint. The changes are not saved but a new version is created that is displayed when reopening which is quite confusing. Is it possible to disable these new versions ?
- Reply
To post as a guest, your comment is unpublished.
Wkai · 2 years ago
Hi i want to ask if it is from A2 to U2. what should i write?
- Reply
- To post as a guest, your comment is unpublished.
  kellytte · 2 years ago
  
  Hi Wkai,
  Try this VBA code:
  (This VBA code will detect Range A2:E5 in the Sheet “Test”, and cancel saving if there are blank cells existing in the range.)
  
  Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Dim xWSName As String
  Dim xRgAddress As String
  Dim xRg As Range
  Dim xWs As Worksheet
  Dim xFNRg As Range
  xWSName = "TEST"
  xRgAddress = "A2:E5"
  Set xWs = Application.ActiveWorkbook.Worksheets.Item(xWSName)
  Set xRg = xWs.Range(xRgAddress)
  Set xFNRg = Nothing
  On Error Resume Next
  Set xFNRg = xRg.SpecialCells(xlCellTypeBlanks, 23)
  If Not TypeName(xFNRg.count) = "Nothing" Then
  Cancel = True
  MsgBox "Save cancelled"
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
edusuro · 3 years ago
hi - this was super helpful... Just had one question, how do I save the file without a value in that field? As I try to save, the VBA code will pop the "Save Cancelled" message which is the intended response, however, need to save once without a value to create the form to be reused.

Thanks!
- Reply
- To post as a guest, your comment is unpublished.
  kelly.extendoffice@gmail.com · 3 years ago
  
  Hi Eduardo,
  What about typing a space in the specified cell to pretend to a blank cell? Please remind to remove the space in future!
  
  Reply

تسجيل الدخول إلى حسابك

استعادة كلمة المرور