Excel'de boş olmayan hücreler nasıl kilitlenir ve korunur?
Varsayalım ki, veri aralığı içinde bazı boş hücreleri dolduran bir çalışma sayfam var, şimdi, tüm veri hücrelerini kilitlemek ve korumak ve yeni bir değer girmek için boş hücreleri kilitlemeden bırakmak istiyorum. Excel'de olabildiğince hızlı bir şekilde yalnızca boş olmayan hücreleri nasıl kilitleyebilir ve koruyabilirsiniz?
Koruma Sayfası ile seçilen bir aralıktaki tüm boş olmayan hücreleri kilitleyin ve koruyun
Kullanılmış bir aralıktaki tüm boş olmayan hücreleri VBA kodu ile kilitleyin ve koruyun
Koruma Sayfası ile seçilen bir aralıktaki tüm boş olmayan hücreleri kilitleyin ve koruyun
Normalde, bu işi Excel'de aşağıdaki yöntemle adım adım tamamlayabilirsiniz:
1. Veri hücrelerini kilitlemek ve korumak istediğiniz hücre aralığını seçin ve ardından Ana Sayfa > Bul ve Seç > Özelliğe Git, ekran görüntüsüne bakın:
2. In Özelliğe Git iletişim kutusunu seçin Boşluklar itibaren seç bölümü, ekran görüntüsüne bakın:
3. Sonra tıklayın OK düğmesine basın ve tüm boş hücreler aynı anda seçildi ve ardından Ctrl + 1 tuşlarını açmak için biçim Hücreler iletişim kutusunun altında Koruması sekmesini tıklayın, Kilitli seçenek, ekran görüntüsüne bakın:
4. tıklayın OKVe ARDINDAN tıklayın Değerlendirme > Koruma Sayfası, ardından ihtiyacınız olan şifreyi girin ve onaylayın, ekran görüntüsüne bakın:
5. tıklayın OK diyalogları kapatmak için ve şimdi, tüm veri hücreleri korumalı ve yalnızca boş hücreleri korumasız bırakın.
Kullanılmış bir aralıktaki tüm boş olmayan hücreleri VBA kodu ile kilitleyin ve koruyun
Yukarıdaki yöntemin birden fazla adımı vardır, bunu olabildiğince çabuk elde etmek için aşağıdaki VBA kodu size bir iyilik yapabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Sonra tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Bir çalışma sayfasındaki tüm boş olmayan hücreleri kilitleyin ve koruyun
Sub UnlockEmptyCells()
'Updateby Extendoffice
Application.ScreenUpdating = False
Cells.Locked = True
Selection.SpecialCells(xlCellTypeBlanks).Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
3. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, kullanılan aralıkta aynı anda yalnızca boş olmayan hücreler korunur.
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!