Worksheet.Unprotect

Söz dizimi​

ifade.Unprotect(Password)

' Örnekler
Worksheets("Stok Listesi").Unprotect Password:="1234"
ActiveSheet.Unprotect

• ifade: Bir Worksheet nesnesini veren ifade (ör. Worksheets("Stok Listesi") ya da ActiveSheet); zorunludur.
• Password: Sayfayı korurken kullanılan parola; isteğe bağlıdır (Variant). Büyük/küçük harf duyarlıdır. Sayfa parolasız korunmuşsa bu bağımsız değişken atlanır ve koruma doğrudan kalkar. Sayfa parolalıysa ve bağımsız değişken atlanırsa Excel parolayı sormak için bir pencere açar.

Koruma durumunu denetleme ve hata davranışı​

• Yanlış parola: Parola yanlış verilirse çalışma zamanı hatası (genellikle 1004) oluşur ve sayfa korumalı kalır. Hatayı On Error ile yakalayıp Err.Number değerine bakabilirsiniz.
• Parola atlanırsa: Parolalı sayfada Excel bir parola penceresi gösterir; makro kullanıcı yanıtlayana kadar bekler. Zamanlanmış ya da gözetimsiz çalışan makrolarda bu istenmez, parolayı açıkça verin.
• Koruma açıksa yazma: Kilitli bir hücreye korumalı sayfada yazmak hata verir. Bu yüzden yazma işleminden önce Unprotect, sonra Protect çağrılır.

Protect ile birlikte kullanım ve güvenlik​

ws.Unprotect Password:="1234"
' ... sayfada değişiklik yapılır ...
ws.Protect Password:="1234"

1. Veri yazmak için korumayı geçici kaldırma​

Option Explicit

Sub StokDurumuYaz()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ThisWorkbook.Worksheets("Stok Listesi")

    ' Sayfayı parolayla koruyoruz (örnek senaryo)
    ws.Protect Password:="1234"

    ' Yazmadan önce korumayı kaldırıyoruz
    ws.Unprotect Password:="1234"

    For i = 2 To 7
        If ws.Cells(i, 2).Value < 20 Then
            ws.Cells(i, 3).Value = "Sipariş ver"
        Else
            ws.Cells(i, 3).Value = "Yeterli"
        End If
    Next i

    ' İş bitince sayfayı yeniden koruyoruz
    ws.Protect Password:="1234"
End Sub

2. Yanlış parolayı hata yakalayarak yönetme​

Option Explicit

Sub YanlisParolaDene()
    Dim ws As Worksheet
    Dim hataKodu As Long
    Dim yanlisSonrasi As Boolean
    Dim dogruSonrasi As Boolean

    Set ws = ThisWorkbook.Worksheets("Parola Denemesi")

    ' Sayfayı korumaya alıyoruz
    ws.Protect Password:="Dogru1"

    ' Yanlış parolayla deneme; hatayı yakalıyoruz
    On Error Resume Next
    ws.Unprotect Password:="Yanlis1"
    hataKodu = Err.Number
    Err.Clear
    On Error GoTo 0

    ' Yanlış denemeden sonra koruma sürüyor mu?
    yanlisSonrasi = ws.ProtectContents

    ' Doğru parolayla korumayı kaldırıyoruz
    ws.Unprotect Password:="Dogru1"
    dogruSonrasi = ws.ProtectContents

    ' Sayfa artık korumasız olduğu için sonuçları yazabiliriz
    ws.Range("B2").Value = hataKodu
    ws.Range("B3").Value = yanlisSonrasi
    ws.Range("B4").Value = dogruSonrasi
End Sub

3. Sayfa korumasını koruyan güvenli yazma yordamı​

Option Explicit

' Korumalıysa açar, yazar, yeniden korur.
' Sayfa baştan korumalıysa True döndürür.
Function GuvenliYaz(ws As Worksheet, adres As String, deger As Variant, parola As String) As Boolean
    Dim korumaliydi As Boolean

    korumaliydi = ws.ProtectContents
    If korumaliydi Then ws.Unprotect Password:=parola

    ws.Range(adres).Value = deger

    If korumaliydi Then ws.Protect Password:=parola
    GuvenliYaz = korumaliydi
End Function

Sub AylikSatisYaz()
    Dim ws As Worksheet
    Dim tutar As Variant
    Dim i As Long

    Set ws = ThisWorkbook.Worksheets("Satış Tablosu")
    tutar = Array(1250, 1480, 1320, 1710)

    ' Sayfayı korumaya alıyoruz
    ws.Protect Password:="2024"

    For i = 0 To 3
        Call GuvenliYaz(ws, "B" & (i + 2), tutar(i), "2024")
        Call GuvenliYaz(ws, "C" & (i + 2), "Güncellendi", "2024")
    Next i
End Sub

Kullanırken dikkat edin​

• Parola büyük/küçük harfe duyarlıdır: Unprotect çağrısındaki parola, Protect ile verilen parolayla harf harf aynı olmalıdır. Dogru1 ile dogru1 farklı parolalardır. Yanlış parola çalışma zamanı hatası üretir; gerekirse On Error ile yakalayın.
• Parolayı atlamayın: Parolalı bir sayfada Unprotect parolasız çağrılırsa Excel bir parola penceresi açar ve makro yanıt bekler. Otomatik çalışan makrolarda parolayı daima bağımsız değişken olarak verin.
• Önce durumu denetleyin: ProtectContents özelliğiyle sayfanın korumalı olup olmadığına bakın. Böylece korumasız bir sayfada gereksiz işlem yapmaz, işlem bitince sayfayı başlangıçtaki durumuna döndürebilirsiniz; üçüncü örnekteki yordam bu yaklaşımı gösterir.
• Koruma tekrar açılmalıdır: Makro hata ile yarıda kesilirse sayfa korumasız kalabilir. Bu riski azaltmak için hata yakalama bloğunda da Protect çağırın ya da Protect yönteminde UserInterfaceOnly:=True seçeneğini kullanın. Bu seçenek dosya kapatılınca saklanmaz; açılışta (ör. Workbook_Open olayında) yeniden ayarlanmalıdır.
• Çalışma kitabı korumasından farklıdır: Worksheet.Unprotect yalnızca tek bir sayfanın korumasını kaldırır. Çalışma kitabının yapısını (sayfa ekleme, silme, yeniden adlandırma) koruyan ayar için Workbook.Unprotect yöntemi kullanılır. Her sayfanın korumasını ayrı ayrı kaldırmanız gerekir.
• Güvenlik beklentisi: Sayfa koruması kazara değişiklikleri önlemek içindir; güçlü bir şifreleme sağlamaz. Hassas veriyi korumak için dosya şifrelemesi ya da erişim denetimi kullanın. Ayrıca parolayı VBA kodunda düz metin olarak saklamayın; kod görüntülenebilir.
• İlgili konular:
  • Worksheet.Protect: Sayfayı parolayla ve ayrıntılı izin seçenekleriyle korur.
  • Workbook.Unprotect: Çalışma kitabı yapısının korumasını kaldırır.
  • Worksheet.ProtectContents: Hücrelerin korunup korunmadığını bildiren özellik.
  • Worksheet.ProtectDrawingObjects ve ProtectScenarios: Nesne ve senaryo korumasını gösteren özellikler.
  • Range.Locked: Hücrenin korumada kilitli sayılıp sayılmayacağını belirler.
  • Worksheet.AllowEditRanges: Korumalı sayfada düzenlemeye izin verilen aralıkları tanımlar.
  • On Error: Yanlış parola gibi çalışma zamanı hatalarını yakalamak için kullanılır.