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?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin