Korumalı sayfada satır nasıl eklenir veya silinir? 

Excel çalışma sayfasında hassas veya paylaşılan verilerle çalışırken, sayfa koruması, kazara veya yetkisiz değişiklikleri önlemek için yaygın olarak kullanılan bir yöntemdir. Ancak tasarım gereği, sayfa koruması aynı zamanda belirli işlemleri de kısıtlar, özellikle kilitli hücrelerde satır ekleme veya silme gibi. Birçok kullanıcı genellikle çalışma sayfasının geri kalanını korurken düzenleme izni verilmesi gereken durumlarla karşı karşıya kalır, örneğin satır ekleme veya silme. Bu öğretici, korumalı bir sayfada satır ekleme veya silme konusunda pratik yöntemleri ve bunların uygulama senaryolarını, önlemlerini ve alternatif çözümleri ele alarak verilerinizi güvenli ve etkili bir şekilde yönetmenize yardımcı olur.

Korumalı sayfada satır ekleme veya silme

VBA: Geçici olarak korumayı kaldırma, ekleme/silme ve otomatik olarak yeniden koruma

Korumalı sayfada satır ekleme veya silme

Bu çözüm, kullanıcıların çoğunlukla korunan çalışma sayfasında sınırlı düzenleme haklarına sahip olmalarını istediğiniz durumlar için uygundur, örneğin satır ekleme veya silme gibi. Belirli satırların veya veri bölümlerinin esnek ve düzenlenebilir kalmasını sağlarken, sayfanın geri kalanının kazara değişikliklerden veya silinmelerden korunmasını sağlar.

Korumalı bir sayfada satır ekleme ve silmeyi etkinleştirmek için aşağıdaki adım adım talimatları izleyin:

1. Kullanıcıların satır eklemesine veya silmesine izin vermek istediğiniz tüm satırları seçin. Bu işlem, korunan çalışma sayfanızda bu işlemlerin nerede yapılacağını belirler. Satırları seçtikten sonra, seçim üzerinde sağ tıklayın ve ardından açılır menüden Hücreleri Biçimlendir'i seçin. Ekran görüntüsüne bakın:

2. Görüntülenen Hücreleri Biçimlendir iletişim kutusunda, Koruma sekmesine gidin. Burada, bu özel hücreleri veya satırları kilidini açmak için Kilitle onay kutusunu kaldırın. Kilidini açmak çok önemlidir; aksi takdirde, kullanıcılar diğer izinlere rağmen değişiklik yapamaz. Korumak istediğiniz hassas alanların kilidini açmamaya dikkat edin. Ekran görüntüsüne bakın:

3. İletişim kutusunu kapatmak için Tamam'ı tıklayın. Ardından, Excel şeridine gidin, İncele'yi tıklayın ve ardından Çalışma Sayfasını Koru seçeneğini seçerek çalışma sayfası korumasını etkinleştirin. Ekran görüntüsüne bakın:

4. Görüntülenen Çalışma Sayfasını Koru iletişim kutusunda, bu çalışma sayfasındaki tüm kullanıcılara izin ver etiketli bir liste görürsünüz. Satır ekle ve Satır sil seçeneklerini işaretleyin. Gerekirse, sayfayı korumak için bir parola girin ve istendiğinde onaylayın. Bu adım, yalnızca istenen düzenleme izinlerini kullanıcıya vermek için çok önemlidir, aynı zamanda sayfanın geri kalanını da güvende tutar. Ekran görüntüsüne bakın:

5. Son olarak, yeni ayarlar altında sayfa korumasını etkinleştirmek için Tamam'ı tıklayın. Sonuç olarak, artık yalnızca belirttiğiniz satırlar, yapılandırdığınız izinlere ve kilidi kaldırma işlemlerine göre eklenebilir veya silinebilir, ancak çalışma sayfasının geri kalanı etkilenmez. Ekran görüntüsüne bakın:

Bu yöntem, çoğu temel ihtiyaç için iyi sonuç verir, ancak kullanıcıların kilidi açılmış ve izin verilmiş alanların dışındaki satırları eklemesine veya silmesine izin vermediğini unutmayın. Korumayı etkinleştirmeden önce hangi hücrelerin kilidinin açık olduğunu gözden geçirmek, yanlışlıkla veri maruziyetini veya yetersiz korumayı önlemek için önemlidir.

Daha geniş sayfa bölgelerinde ekleme veya silme izni vermeniz gerekiyorsa veya daha fazla otomasyon istiyorsanız, aşağıdaki VBA tabanlı çözümleri inceleyin.

VBA: Geçici olarak korumayı kaldırma, ekleme/silme ve otomatik olarak yeniden koruma

Bu VBA makro yaklaşımı, kullanıcıların korunan bir çalışma sayfasında sık sık satır eklemesi veya silmesi gereken durumlar için idealdir, her seferinde manuel olarak kilidi açıp tekrar kilitlemeye gerek kalmaz. Bir makro çalıştırarak, sayfanın korumasını geçici olarak kaldırabilir, satır düzenlemeleri yapabilir ve ardından sayfayı otomatik olarak yeniden koruyabilirsiniz — tümü bir düğmeye tıklamayla yapılır. Bu özellikle işbirliğine dayalı veya tekrarlayan görevler için uygundur ve verilerin hem esnek hem de sürekli korunmasını sağlar.

Bu yaklaşımın ana avantajları, korumasız pencereyi sınırlandırarak hassas verilerin yanlışlıkla maruz kalmasını en aza indirmek ve rutin düzenlemeler için sürekli parola girişi zahmetinden kaçınmaktır. Ancak, potansiyel bir sınırlama, makroların etkinleştirilmesi gerekliliği ve temel makro güvenlik anlayışı gerektirmesidir.

1. Bu işlevselliği etkinleştirmek istediğiniz çalışma kitabını açın. Geliştirici sekmesini tıklayın (Geliştirici sekmesi görünür değilse, Dosya > Seçenekler > Şeridi Özelleştir üzerinden etkinleştirebilirsiniz) ve ardından Visual Basic'i tıklayın. Görüntülenen VBA düzenleyici penceresinde Ekle > Modül seçeneğini tıklayın ve aşağıdaki kodu modüle yapıştırın:

Sub InsertRowInProtectedSheet()
    Dim ws As Worksheet
    Dim pwd As String
    Set ws = ActiveSheet
    pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
    
    If pwd = "" Then Exit Sub
    
    On Error Resume Next
    ws.Unprotect Password:=pwd
    
    If Err.Number <> 0 Then
        MsgBox "Incorrect password or unprotect failed!", vbExclamation
        Exit Sub
    End If
    
    On Error GoTo 0
    Dim insertRow As Integer
    insertRow = Application.InputBox("Enter row number to insert:", "KutoolsforExcel", Type:=1)
    
    If insertRow > 0 Then
        ws.Rows(insertRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        MsgBox "Row inserted at " & insertRow, vbInformation
    End If
    
    ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

Sub DeleteRowInProtectedSheet()
    Dim ws As Worksheet
    Dim pwd As String
    Set ws = ActiveSheet
    pwd = InputBox("Enter sheet password:", "KutoolsforExcel")
    
    If pwd = "" Then Exit Sub
    
    On Error Resume Next
    ws.Unprotect Password:=pwd
    
    If Err.Number <> 0 Then
        MsgBox "Incorrect password or unprotect failed!", vbExclamation
        Exit Sub
    End If
    
    On Error GoTo 0
    Dim delRow As Integer
    delRow = Application.InputBox("Enter row number to delete:", "KutoolsforExcel", Type:=1)
    
    If delRow > 0 Then
        ws.Rows(delRow).Delete
        MsgBox "Row " & delRow & " deleted.", vbInformation
    End If
    
    ws.Protect Password:=pwd, AllowInsertingRows:=True, AllowDeletingRows:=True
End Sub

2. VBA düzenleyicisini kapatın. Bir satır eklemek için Alt + F8 tuşlarına basın, Makro iletişim kutusunu açın, InsertRowInProtectedSheet'i seçin ve Çalıştır'ı tıklayın; bir satır silmek için DeleteRowInProtectedSheet'i seçin ve Çalıştır'ı tıklayın. Çalışma sayfası parolasını girmeniz ve hangi satırın ekleneceğini veya silineceğini belirtmeniz istenecektir. Bu yöntem, işlem tamamlandıktan hemen sonra sayfayı yeniden koruyarak sürekli güvenliği sağlar. İş kitabı dosyasını gelecekte kullanmak üzere makro etkin dosya (.xlsm) olarak kaydettiğinizden emin olun.

İpuçları:

• Makroyu çalıştırmadan önce doğru parolaya sahip olduğunuzu her zaman doğrulayın, çünkü yanlış parola otomasyonu engelleyecektir.
• Herhangi bir hata oluşursa, giriş değerlerini gözden geçirin ve makroların Excel Güven Merkezi ayarlarınızda etkinleştirildiğinden emin olun.