Excel'de veri girişi veya yazımı yaptıktan sonra hücreleri nasıl kilitleyebilir veya koruyabilirsiniz?

Diyelim ki bir çalışma sayfanız var ve yalnızca belirli bir boş hücre aralığına veri girişi gerekiyor, ve veri girişi tamamlandıktan sonra bu hücrelerin otomatik olarak kilitlenmesini istiyorsunuz, böylece tekrar değişiklik yapılmasını engellemiş olacaksınız. Bunu nasıl başarabilirsiniz? Bu makale size yardımcı olabilir.

VBA kodu ile veri girişi sonrası hücreleri kilitleme veya koruma

VBA kodu ile veri girişi sonrası hücreleri kilitleme veya koruma

Örneğin, belirli boş hücre aralığı A1:F8 olsun. Lütfen Excel'de veri girişi sonrasında bu hücreleri kilitlemek için aşağıdaki adımları izleyin.

1. Lütfen önce bu alanı seçerek, sağ tıklayarak, ardından sağ tıklama menüsünden Hücre Biçimlendir'i seçerek açılan Hücre Biçimlendir iletişim kutusunda Koruma sekmesi altında Kilitle onay kutusunun işaretini kaldırarak ve son olarak Tamam düğmesine tıklayarak bu alanı açın. Ekran görüntüsüne bakın:

2. İncele sekmesine tıklayın > Çalışma Sayfasını Koru. Ve bu çalışma sayfasını korumak için bir şifre belirleyin.

3. Sayfa sekmesine sağ tıklayın, sağ tıklama menüsünden Kodu Görüntüle'yi seçin. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:

VBA kodu: Veri girişi sonrası hücreleri kilitleme veya koruma

Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A1:F8"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="123"
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:="123" 
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub

Not: Kodda “A1:F8” veri girişi yapmanız gereken aralıktır; ve “123” korunan çalışma sayfası için şifredir. Gereksinimlerinize göre bunları değiştirin.

4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına aynı anda basın.

A1:F8 aralığındaki hücrelere veri girişini tamamladıktan sonra, bu hücreler otomatik olarak kilitlenecektir. Eğer bu aralıktaki herhangi bir hücre içeriğini değiştirmeye çalışırsanız, bir uyarı iletişim kutusu alacaksınız. Ekran görüntüsüne bakın:

İlgili makaleler:

• Excel'de tüm hücre referanslarını birden nasıl kilitleyebilirsiniz?
• Excel'de başka bir hücredeki değerlere göre hücreleri nasıl kilitleyebilir veya açabilirsiniz?
• Excel'de resim/görüntüyü hücreye veya hücre içine nasıl kilitleyebilirsiniz?