Come impedire il salvataggio se una cella specifica è vuota in Excel?
Ad esempio, hai progettato un modulo in un foglio di lavoro e lo hai condiviso con i tuoi colleghi. Speri che i tuoi colleghi inseriscano i loro nomi nella cella specifica per indicare chi ha inserito questo modulo, altrimenti impedire loro di salvare il modulo, come potresti fare? Qui introdurrò una macro VBA per impedire il salvataggio di una cartella di lavoro se la cella specifica è vuota in Excel.
Impedisci il salvataggio se una cella specifica è vuota in Excel
Per evitare di salvare la cartella di lavoro corrente se la cella specifica è vuota in Excel, è possibile applicare facilmente la seguente macro VBA.
Passaggio 1: aprire la finestra di Microsoft Visual Basic, Applications Edition premendo il pulsante altro + F11 chiavi nel frattempo.
Passaggio 2: in Esplora progetti, espandere il file VBAProject (nome della cartella di lavoro.xlsm) ed Oggetti di Microsoft Excel, quindi fai doppio clic su Questa cartella di lavoro. Vedi la schermata a sinistra:
Passaggio 3: nella finestra di apertura di ThisWorkbook, incolla la seguente macro VBA:
Macro VBA: impedisce il salvataggio se la cella specifica è vuota
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
Nota: 1. Nella 26a riga del codice VBA sopra, il "Foglio 1" è il nome specifico del foglio di lavoro e "A1"è la cella specifica e puoi modificarli in base alle tue esigenze.
2. Dopo aver inserito il VBA in Questa cartella di lavoro, dovresti prima salvare la cartella di lavoro. E quindi puoi inviare il file abilitato alle macro ad altri.
Ora se la cella specifica è vuota nella cartella di lavoro corrente, quando la salvi, viene visualizzata una finestra di dialogo di avviso che ti dice "Salvataggio annullato". Guarda la seguente schermata:
Articoli Correlati
Come verificare o scoprire se la cella contiene una stringa / testo / parola specifica in Excel?
Come copiare le righe se la colonna contiene testo / valore specifico in Excel?
Come copiare le celle se la colonna contiene un valore / testo specifico in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!