Excel'de veri girişi veya girişi yapıldıktan sonra hücreleri nasıl kilitleyebilir veya koruyabilirim?
Bir çalışma sayfanız olduğunu ve yalnızca belirli bir boş hücre aralığının veri girişi gerektirdiğini varsayarsak ve veri girişini tamamladıktan sonra, değişiklikleri tekrar önlemek için hücrelerin otomatik olarak kilitlenmesi gerekir. Bunu başarmak için nasıl yapabilirsiniz? Bu makale size yardımcı olabilir.
Veri girişinden veya VBA kodu ile girildikten sonra hücreleri kilitleyin veya koruyun
Veri girişinden veya VBA kodu ile girildikten sonra hücreleri kilitleyin veya koruyun
Örneğin, belirli boş hücre aralığı A1: F8'dir. Excel'de veri girişinden sonra bu hücreleri kilitlemek için lütfen aşağıdaki işlemleri yapın.
1. Lütfen önce bu aralığın kilidini açın, hücreleri seçin ve sağ tıklayın, ardından şunu seçin: biçim Hücreler sağ tıklama menüsünde ve biçim Hücreler iletişim kutusu, işaretini kaldırarak Kilitli altındaki kutuyu koruma sekmesine tıklayın ve son olarak OK buton. Ekran görüntüsüne bakın:
2. tık Değerlendirme > Koruma Sayfası. Ve bu çalışma sayfasını korumak için bir parola belirleyin.
3. Sayfa sekmesine sağ tıklayın, Kodu Görüntüle sağ tıklama menüsünden. 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şinden veya girişinden sonra hücreleri kilitleyin veya koruyun
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 girmeniz gereken aralıktır; ve "123" bu korumalı çalışma sayfasının şifresidir. Lütfen ihtiyaç duyduğunuzda değiştirin.
4. Basın Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.
A1: F8 aralığındaki hücrelere veri girmeyi bitirdikten sonra, bunlar otomatik olarak kilitlenir. Ve bu aralığın herhangi bir hücre içeriğini değiştirmeye çalışırsanız, bir hızlı iletişim kutusu alırsınız. Ekran görüntüsüne bakın:
İlgili Makaleler:
- Formüllerdeki tüm hücre referanslarını Excel'de aynı anda nasıl kilitleyebilirim?
- Excel'deki başka bir hücredeki değerlere göre hücreleri nasıl kilitleyebilir veya kilidini açabilirim?
- Excel'de hücreye veya hücrenin içine resim / resim nasıl kilitlenir?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!