Excel'de belirli bir hücre boşsa dosyanın kaydedilmesini nasıl engelleyebilirsiniz?

Excel'de bir form oluşturduğunuzu ve meslektaşlarınızla paylaştığınızı düşünün. Kimin bilgi girdiğini belirlemek için belirli bir hücreye adlarını yazmalarını istiyorsunuz. Hücre boş bırakılırsa, formun kaydedilmesini engellemek istiyorsunuz. Bu öğreticide, Excel'de belirlenen hücre boşsa kaydetme işlemini nasıl engelleyeceğinizi göstermek için bir VBA makrosu kullanacağız.

---

Excel'de belirli bir hücre boşsa kaydetmeyi engelleme

Geçerli Çalışma Kitabı’nı Excel’de belirli bir hücre boşsa kaydetmeyi önlemek için aşağıdaki VBA makrosunu kolayca uygulayabilirsiniz.

Adım 1: Microsoft Visual Basic for Applications penceresini açmak için aynı anda Alt+F11 tuşlarına basın.

Adım 2: Proje Gezgini'nde VBAProject (Your Çalışma Kitabı Adı.xlsm) ve Microsoft Excel Nesneleri öğelerini genişletin, ardından ThisWorkbook öğesine çift tıklayın. Ekran görüntüsüne bakın:

Adım 3: Açılan ThisWorkbook penceresine aşağıdaki VBA makrosunu yapıştırın:

VBA Makrosu: Belirli hücre boşsa kaydetmeyi engelleme

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,"Sheet1"belirli Çalışma Sayfası Adı'dir ve "A1" ise belirli bir hücredir; bunu ihtiyacınıza göre değiştirebilirsiniz.
2. VBA kodunu ThisWorkbookÇalışma kitabına girdikten sonra, öncelikle onu kaydetmelisiniz. Böylece makro destekli dosyayı başkalarıyla paylaşabilirsiniz.

Şimdi, Geçerli Çalışma Kitabı’ndaki belirtilen hücre boşsa, dosyayı kaydettiğinizde bir uyarı iletişim kutusu açılır ve "Kaydetme iptal edildi" mesajını gösterir. Aşağıdaki ekran görüntüsüne göz atın:

---

İlgili Makaleler