Як запобігти збереженню, якщо певна комірка порожня в Excel?
Наприклад, ви створили форму на робочому аркуші та поділилися зі своїми колегами. Ви сподіваєтесь, що ваші колеги заповнюють свої імена у певній комірці, щоб вказати, хто ввів цю форму, інакше заважають їм зберігати форму, як ви могли це зробити? Тут я представив макрос VBA, щоб запобігти збереженню книги, якщо певна комірка порожня в Excel.
Запобігання збереженню, якщо певна комірка порожня в Excel
Щоб запобігти збереженню поточної книги, якщо певна комірка порожня в Excel, ви можете легко застосувати наступний макрос VBA.
Крок 1: Відкрийте вікно Microsoft Visual Basic for Applications натисканням кнопки інший + F11 тим часом ключі.
Крок 2: У Провіднику проектів розгорніть VBAProject (назва вашої робочої книги.xlsm) та Microsoft Excel Objects, а потім двічі клацніть на ThisWorkbook. Дивіться знімок екрана ліворуч:
Крок 3: У вікні ThisWorkbook, що відкривається, вставте такий макрос VBA:
VBA Macro: Запобігання збереженню, якщо певна комірка порожня
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Update by ExtendOffice 20220907
Dim xFileName As String
Dim xStr As String
Dim xStrWSH As String
Dim xWSh As Worksheet
Dim xWShs As Sheets
Dim xWSh1 As Worksheet
Dim xWB As Workbook
xStrWSH = "xHidWSH_LJY"
On Error Resume Next
Set xWB = Application.ActiveWorkbook
Set xWShs = xWB.Worksheets
Set xWSh = xWShs.Item(xStrWSH)
If xWSh Is Nothing Then
Set xWSh1 = xWShs.Add
xWSh1.Name = xStrWSH
xWSh1.Visible = xlSheetVeryHidden
Cancel = False
Else
If Trim(Application.Sheets("Sheet1").Range("A1").Value) = "" Then
Cancel = True
MsgBox "Save cancelled"
End If
End If
End Sub
Примітка: 1. У 26-му рядку наведеного вище коду VBA "Аркуш 1" це назва конкретного аркуша, а "A1"- це конкретна комірка, і ви можете змінювати їх, як вам потрібно.
2. Після введення VBA в ThisWorkbook, спочатку слід зберегти робочу книгу. Потім ви можете надіслати файл із підтримкою макросів іншим.
Тепер, якщо конкретна комірка порожня в поточній книзі, при її збереженні виходить діалогове вікно попередження та повідомляє "Збереження скасовано". Див. Наступний знімок екрана:
Статті по темі
Як перевірити чи знайти, чи містить комірка певний рядок / текст / слово в Excel?
Як скопіювати рядки, якщо стовпець містить певний текст / значення в Excel?
Як скопіювати комірки, якщо стовпець містить певне значення / текст у Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!