Note: The other languages of the website are Google-translated. Back to English

Excel'de belirli hücre içeriklerinin silinmesini nasıl önleyebilirim?

Bu makale, belirli hücre içeriklerinin Excel'de silinmesini önlemekten bahsediyor. Bu makaledeki yöntemler ile bunu başarabilirsiniz.

Çalışma sayfasını koruyarak belirli hücre içeriklerinin silinmesini önleyin
VBA kodunu kullanarak belirli hücre içeriklerinin silinmesini önleyin


Çalışma sayfasını koruyarak belirli hücre içeriklerinin silinmesini önleyin

Varsayılan olarak, çalışma sayfasındaki tüm hücreler kilitlidir. Belirli hücre içeriklerinin silinmesini önlemek ve koruduktan sonra diğer hücreleri düzenlenebilir hale getirmek istiyorsanız, lütfen aşağıdaki işlemleri gerçekleştirin.

1. Tıklayın Tüm çalışma sayfasını seçmek için çalışma sayfasının sol üst köşesindeki düğmesine basın. Ardından Ctrl + 1 tuşlarını açmak için biçim Hücreler iletişim kutusu.

2. Açılırken biçim Hücreler iletişim kutusu, işaretini kaldırın Kilitli altında seçenek koruma sekmesini ve sonra da OK buton. Ekran görüntüsüne bakın:

3. İçeriğin silinmesini istemediğiniz hücreleri seçin, Ctrl + 1 tuşunu açmak için biçim Hücreler iletişim kutusunu tekrar kontrol edin. Kilitli altında seçenek koruma sekmesini ve sonra da OK düğmesine basın.

4. Şimdi tıklayın Değerlendirme > Koruma Sayfası, ardından her ikisinde de parolanızı belirtin ve onaylayın. Koruma Sayfası ve Şifreyi Onayla diyalog kutuları.

Şimdi çalışma sayfası korumalı. Ve belirtilen hücre içeriği artık silinmeyecek.


VBA kodunu kullanarak belirli hücre içeriklerinin silinmesini önleyin

Yukarıdaki iki yöntemin yanı sıra, belirli hücre içeriklerinin bir çalışma sayfasında silinmesini önlemek için VBA kodunu çalıştırabilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. Silinmesini istemediğiniz hücre içeriğini içeren çalışma sayfasını açın, Sayfa Sekmesine sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden.

2. Aşağıdaki VBA kodunu kopyalayıp cihazın Kod penceresine yapıştırın. Uygulamalar için Microsoft Visual Basic pencere.

VBA kodu: Belirli hücre içeriklerinin Excel'de silinmesini önleyin

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

not: Kodda A1: E17, hücre içeriklerinin silinmesini engelleyeceğiniz aralıktır. Aralığı ihtiyaçlarınıza göre değiştirebilirsiniz.

Şu andan itibaren, hücre içeriğini A1: E17 aralığından silmeye çalıştığınızda, bir Kutools for Excel aşağıda gösterilen ekran görüntüsü gibi iletişim kutusu, lütfen tıklayın OK düğmesine basın.


İlgili Makaleler:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (17)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tam aradığım şey, yardımın için teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
her zaman yardım etmek için burada endişelenmeyin :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

VBA betiğini denedim ve çoğu durumda gerçekten iyi çalışıyor. Ancak, düzenlenebilir bir hücreden düzenlenebilir olmayan sütuna/hücreye sekme yaptığınızda çalışmaz. Sorun, komut verildiği gibi hata mesajını yukarı atması, ancak sekmeli orijinal, düzenlenebilir hücreye girilen verileri tutmaması nedeniyle ortaya çıkar.

Düzenlenemez sekmesine geldiğinizde düzenlenebilir hücredeki verileri kabul etmesi için komut dosyasında bir değişiklik yapar mısınız?

Şerefe
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler,
Sizin durumunuzda bahsettiğiniz gibi denedim, ancak hata atmıyor. Durumunuzun bir ekran görüntüsünü verir misiniz veya bana Office sürümünüzü söyler misiniz?
Yorumun için teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sayfanıza bakmak veya VBA kodu yazmak istemiyorsanız, "DELETE" tuşunu kullanmaları dışında herhangi bir geçersiz kılmayı önleyen basit bir teknik kullanıyorum (geri silmeye izin verilmeyecek, ancak Sil'i durdurmak zor ). Yaptığım, aşağıdaki ayarlarla bir veri doğrulaması eklendi:

1) İzin Ver --> Listele

2) "Boşluğu yoksay" ve "hücre içi açılır menü" seçeneğinin işaretini kaldırın

3) Kaynağa iki çift tırnak girin (yani, "")

4) Hata Uyarısı sekmesinde, "Geçersiz veri girildikten sonra hata değişikliğini göster"i işaretleyin, stil için "Dur"u seçin, ardından bir hata mesajı ve açıklaması girin (örn. Geçersiz kılma)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Paylaştığınız için teşekkür ederiz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA Kodu - Harika İpucu teşekkürler

Excel'de belirli hücre içeriğinin değiştirilmesini VE silinmesini önlemek için bir VBA kodu var mı?
Verileri sıralama yeteneğimi kaybettiğim için normal koruma sayfası benim için çalışmıyor mu?

Şimdiden teşekkürler - Neil
Bu yorum sitedeki moderatör tarafından en aza indirildi
"Çalışma sayfasını koruyarak belirli hücre içeriklerinin silinmesini önleyin"Yönergenize göre yaptım, yine de hücre bilgileri silinebilir, yani koruma çalışmıyor. Herhangi bir çözüm.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Ahsan,
VBA yöntemini uyguladınız mı?
VBA'yı çalışma sayfası kod penceresine eklemeniz gerekir. Korumak istediğiniz hücre içeriğinin Sayfa9'da olduğunu varsayarsak, lütfen sayfa sekmesine sağ tıklayın ve içerik menüsünden Kodu Görüntüle'yi seçin ve ardından aşağıdaki resimde gösterildiği gibi kodu doğrudan kod penceresine kopyalayın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu kod iyi çalışıyor, ancak satır/sütun silmek onu atlayacaktır. Bunun için herhangi bir geçici çözüm var mı? Şerefe David.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba David,
Hangi Excel sürümünü kullanıyorsunuz? Kodu denedim, belirtilen aralıktaki tüm satırlar ve sütunlar, kodu uyguladıktan sonra silinemez.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Değerli bilgiler için teşekkür ederiz.
Aşağıdaki VBA ile ilgili olarak:
Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Intersect(Target, Range("A1:E7")) Hiçbir Şey Değilse, Exit Sub
Hatada Çıkış Noktasına Git
Application.EnableEvents = Yanlış
DeğilseTarih(Hedef(1)) O zaman
Uygulama.Geri Al
MsgBox " Bu aralıktaki hücre içeriğini silemezsiniz " _
, vbCritical, "Kutools for Excel"
Eğer son
Çıkış Noktası:
Application.EnableEvents = True
End Sub

Yukarıdakiler, belirli bir belirtilen aralıkta yürütmeye izin verecektir. Yeni satırların eklenmesine izin vermez. Aynı korumayı koruyarak yeni satırlar ekleyebilmenin bir yolu var mı?
teşekkürler ve saygılar
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Oussama Abou faraj,
Çeşitli yöntemlerle denedikten sonra bunun işe yaramasını sağlayamıyorum. Yeni bir satır eklendikten sonra alan hemen kilitlenir ve yeni eklenen hücre düzenlenemez.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışma kitabı düzeyinde benzer bir şey yapmak mümkün müdür?

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Intersect(Target, Range("A1:M7000")) Hiçbir Şey Değilse, Sub Exit Sub
Hatada Çıkış Noktasına Git
Application.EnableEvents = Yanlış
DeğilseTarih(Hedef(1)) O zaman
Uygulama.Geri Al
MsgBox " Bu aralıktaki hücre içeriğini silemezsiniz " _
, vbCritical, "Kutools for Excel"
Eğer son
Çıkış Noktası:
Application.EnableEvents = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Gelu,
Geçerli çalışma kitabının tüm çalışma sayfalarında "A1:M7000" aralığının silinmesini engellemek mi istiyorsunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hayır, silmeye izin vermemeyi kastetmiştim (wks veya wkb'yi korumadan).

Yukarıdakilerin Wks seviyesinde çalışması güzel.

Wkb düzeyinde çalışmasını sağlayacak bir şey varsa daha da iyi olurdu (birçok sayfam var)

G
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika. Bunun bir seçenek olup olmadığını merak ediyordum ve kesinlikle öyleydi. Çok kolay talimatlar için teşekkür ederim.

Andrés S.
5 üzerinden 5 olarak derecelendirildi
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır