Jak zabránit uložení, pokud je konkrétní buňka v aplikaci Excel prázdná?
Například jste navrhli formulář v listu a sdíleli se svými kolegy. Doufáte, že vaši kolegové vyplní svá jména do konkrétní buňky, aby určili, kdo vstoupil do tohoto formuláře, jinak by jim zabránili v uložení formuláře, jak byste mohli? Zde představím makro VBA, které zabrání uložení sešitu, pokud je konkrétní buňka v aplikaci Excel prázdná.
Zabraňte ukládání, pokud je konkrétní buňka v aplikaci Excel prázdná
Chcete-li zabránit uložení aktuálního sešitu, pokud je konkrétní buňka v aplikaci Excel prázdná, můžete snadno použít následující makro VBA.
Krok 1: Stisknutím tlačítka otevřete okno Microsoft Visual Basic for Applications Další + F11 klíče mezitím.
Krok 2: V Průzkumníkovi projektu rozbalte VBAProject (Název vašeho sešitu.xlsm) a Objekty aplikace Microsoft Excela potom dvakrát klikněte na ikonu Tato pracovní kniha. Viz snímek obrazovky vlevo:
Krok 3: V úvodním okně ThisWorkbook vložte následující makro VBA:
Makro VBA: Zabraňte ukládání, pokud je konkrétní buňka prázdná
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
Poznámka: 1. Ve 26. řádku výše uvedeného kódu VBA je "List1" je název konkrétního listu a "A1„je konkrétní buňka a můžete je měnit podle potřeby.
2. Po zadání jazyka VBA Tato pracovní kniha, měli byste sešit nejprve uložit. A pak můžete soubor s podporou maker poslat ostatním.
Pokud je konkrétní buňka v aktuálním sešitu prázdná, po uložení se zobrazí varovné dialogové okno a řekne vám „Uložit zrušeno". Viz následující snímek obrazovky:
Související články
Jak zkontrolovat nebo zjistit, zda buňka obsahuje konkrétní řetězec / text / slovo v aplikaci Excel?
Jak kopírovat řádky, pokud sloupec obsahuje konkrétní text / hodnotu v aplikaci Excel?
Jak kopírovat buňky, pokud sloupec obsahuje konkrétní hodnotu / text v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!