Excel'de belirli hücre boşsa kaydetmeyi nasıl önleyebilirim?
Örneğin, çalışma sayfasında bir form tasarladınız ve iş arkadaşlarınızla paylaştınız. Meslektaşlarınızın bu forma kimin girdiğini belirtmek için adlarını belirli bir hücreye doldurmalarını umuyorsunuz, aksi takdirde formu kaydetmelerini engelleyin, nasıl yapabilirsiniz? Burada, Excel'de belirli hücre boşsa, bir çalışma kitabını kaydetmeyi önlemek için bir VBA makrosu tanıtacağım.
Excel'de belirli hücre boşsa kaydetmeyi engelle
Excel'de belirli hücre boşsa, geçerli çalışma kitabını kaydetmeyi önlemek için aşağıdaki VBA makrosunu kolayca uygulayabilirsiniz.
Adım 1: Microsoft Visual Basic for Applications penceresini şu tuşa basarak açın: Ara Toplam + F11 bir arada anahtarlar.
Adım 2: Proje Gezgini'nde, VBAProject (Çalışma kitabınızın adı.xlsm) ve Microsoft Excel Nesnelerive ardından çift tıklayın Bu Çalışma Kitabı. Soldaki ekran görüntüsüne bakın:
Adım 3: ThisWorkbook penceresini açarken aşağıdaki VBA makrosunu yapıştırın:
VBA Makrosu: Belirli hücre boşsa kaydetmeyi engelle
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
Not: 1. Yukarıdaki VBA kodunun 26. satırında, "Sayfa1" belirli çalışma sayfası adıdır ve "A1"belirli bir hücredir ve bunları istediğiniz gibi değiştirebilirsiniz.
2. VBA'ya girdikten sonra Bu Çalışma Kitabı, önce çalışma kitabını kaydetmelisiniz. Ardından makro etkin dosyayı başkalarına gönderebilirsiniz.
Şimdi, geçerli çalışma kitabındaki belirli hücre boşsa, kaydettiğinizde bir uyarı iletişim kutusu çıkar ve size "Kaydetme iptal edildi". Aşağıdaki ekran görüntüsüne bakın:
İlgili Makaleler
Sütun, Excel'de belirli bir metin / değer içeriyorsa, satırlar nasıl kopyalanır?
Sütun, Excel'de belirli bir değer / metin içeriyorsa, hücreler nasıl kopyalanır?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!