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

Excel çalışma sayfasında hassas veya paylaşılan verilerle çalışırken, sayfayı korumak, yanlışlıkla veya yetkisiz olarak değişiklik yapılmasını ö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 işlemler engellenir. Birçok kullanıcı genellikle çalışma sayfasının geri kalanını korurken düzenleme izni vermek istediği durumlarla karşı karşıya kalır, örneğin satır eklemek veya silmek isteyebilir. Bu öğretici, korumalı bir sayfada satır ekleme veya silmenin pratik yollarını gösterir 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ır, ekle/sil 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 olmasını istediğiniz durumlar için uygundur, örneğin satır eklemek veya silmek gibi. Belirli satırların veya veri bölümlerinin esnek ve düzenlenebilir kalmasına izin verirken, sayfanın geri kalanı kazara değişikliklerden veya silmelerden korunur.

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 ekleyebileceği veya silebileceği tüm satırları seçin. Bu işlem, korumalı çalışma sayfanızda bu işlemlerin nerede yapılacağını belirler. Satırları seçtikten sonra, seçime sağ tıklayın ve ardından bağlam menüsünden Hücreleri Biçimlendir'i seçin. Ekran görüntüsüne bakın:

2. Açılan Hücreleri Biçimlendir iletişim kutusunda, Koruma sekmesine gidin. Burada, bu belirli hücreleri veya satırları kilitlememek için Kilitli kutusunun işaretini kaldırın. Kilidi açmak çok önemlidir; aksi takdirde kullanıcılar diğer izinlere rağmen değişiklik yapamaz. Korumalı kalmasını istediğiniz hassas alanları kilitlememeye dikkat edin. Ekran görüntüsüne bakın:

3. İletişim kutusunu kapatmak için Tamam'a tıklayın. Ardından, Excel şeridine gidin, İncele'ye 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 verilenler listesini göreceksiniz. 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 verirken sayfanın geri kalanını korumak için çok önemlidir. Ekran görüntüsüne bakın:

5. Son olarak, yeni ayarlar altında sayfa korumasını etkinleştirmek için Tamam'a tıklayın. Sonuç olarak, artık yapılandırdığınız izinlere ve kilidi açılmış alanlara göre yalnızca belirtilen satırlar 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ışında satır eklemesine veya silmesine izin vermediğini unutmayın. Korumayı etkinleştirmeden önce hangi hücrelerin kilidi açıldığını her zaman gözden geçirin, böylece istenmeyen veri açıklarını veya yetersiz korumayı önlersiniz.

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

VBA: Geçici olarak korumayı kaldır, ekle/sil ve otomatik olarak yeniden koruma

Bu VBA makrosu yaklaşımı, korunan bir çalışma sayfasında sık sık satır eklemek veya silmek zorunda olan kullanıcılar için mükemmeldir, çünkü her seferinde manuel olarak kilidi açıp tekrar kilitlemek zorunda kalmazlar. Bir makro çalıştırarak, sayfanın geçici olarak korumasını kaldırabilir, satır işlemlerini gerçekleştirebilir ve ardından sayfayı otomatik olarak yeniden koruyabilirsiniz — hepsi 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ırlayarak hassas verilerin yanlışlıkla maruz kalmasını en aza indirmesi ve rutin düzenleme için sürekli şifre girmenin can sıkıntısını ortadan kaldırmasıdır. Ancak potansiyel bir sınırlama, makroların etkinleştirilmesi gerekliliği ve temel makro güvenlik anlayışının olması gerektiğidir.

1. Bu işlevselliği etkinleştirmek istediğiniz çalışma sayfasını açın. Geliştirici sekmesine tıklayın (Geliştirici sekmesi görünür değilse, Dosya > Seçenekler > Şeridi Özelleştir aracılığıyla etkinleştirebilirsiniz), ardından Visual Basic'e tıklayın. Görüntülenen VBA düzenleyici penceresinde, Ekle > Modül seçeneğine 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 basarak Makro iletişim kutusunu açın, InsertRowInProtectedSheet seçeneğini seçin ve Çalıştır'a tıklayın; bir satır silmek için DeleteRowInProtectedSheet seçeneğini seçin ve Çalıştır'a tıklayın. Çalışma sayfası şifresini girmeniz ve hangi satırı ekleyeceğinizi veya sileceğinizi belirtmeniz istenecektir. Bu yöntem, işlem tamamlandıktan hemen sonra sayfayı yeniden korur, böylece sürekli güvenlik sağlanır. Gelecekte kullanmak üzere çalışma kitabınızı makro özellikli dosya (.xlsm) olarak kaydettiğinizden emin olun.

İpuçları:

• Makroyu çalıştırmadan önce doğru şifreye sahip olduğunuzu her zaman doğrulayın, yanlış şifre otomasyonu engelleyecektir.
• Herhangi bir hata oluşursa, giriş değerlerini gözden geçirin ve makroların Excel Güvenlik Merkezi ayarlarınızda etkin olduğundan emin olun.