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

Excel'de kesme, kopyalama ve yapıştırma işlevleri nasıl devre dışı bırakılır?

Kesilmeye, kopyalanmaya ve yapıştırılmaya karşı korumanız gereken önemli verileri içeren bir çalışma kitabınız olduğunu varsayalım. Nasıl başarılır? Bu makale, bir Excel çalışma kitabındaki kesme, kopyalama ve yapıştırma işlevlerini aynı anda devre dışı bırakmanız için bir VBA yöntemi sağlar.

VBA kodu ile kesme, kopyalama ve yapıştırma işlevlerini devre dışı bırakın


VBA kodu ile kesme, kopyalama ve yapıştırma işlevlerini devre dışı bırakın

Bir Excel çalışma kitabındaki kes, kopyala ve yapıştır işlevlerini devre dışı bırakmak için lütfen aşağıdaki işlemleri yapın.

1. Çalışma kitabında kesme, kopyalama ve yapıştırma işlevlerini devre dışı bırakmanız gerekir, lütfen Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen çift tıklayın Bu Çalışma Kitabı solda Proje bölmesine gidin ve ardından aşağıdaki VBA kodunu kopyalayıp Bu Çalışma Kitabı (Kod) pencere. Ekran görüntüsüne bakın:

VBA kodu: Excel'de aynı anda kes, kopyala ve yapıştır işlevlerini devre dışı bırakın

Private Sub Workbook_Activate()
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_Deactivate()
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.CutCopyMode = False
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
Application.CellDragAndDrop = True
Application.OnKey "^c"
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.OnKey "^c", ""
Application.CellDragAndDrop = False
Application.CutCopyMode = False
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Application.CutCopyMode = False
End Sub

3. Ardından lütfen Ara Toplam + Q çıkış tuşları Uygulamalar için Microsoft Visual Basic pencere.

Artık bu çalışma kitabındaki verileri kesemez veya kopyalayamazsınız; bu arada, diğer sayfalardan veya çalışma kitaplarından kopyaladığınız veriler bu çalışma kitabına yapıştırılamaz.

not: Sürükle ve bırak işlevi, yukarıdaki VBA kodunu çalıştırdıktan sonra da devre dışı bırakılır.


İ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 (50)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
yukarıdaki gibi yapıyorum ama açtığım herhangi bir excel dosyasında kopya ve geçmiş kesme işlevi devre dışı. neden?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bunu "Kes" i kullanıcılardan gizlemek için kullandım ve bir Tablonuz olmadıkça harika çalışıyor, "Kesme" mucizevi bir şekilde Tabloda bir hücre seçtiğinizde yeniden ortaya çıkıyor, tam olarak kaçınmaya çalıştığım şey. herhangi bir fikir? Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler efendim çalışıyor. Ama Tüm çalışma kitabında. Bu Kod'a sadece belirli bir sayfaya ihtiyacım olursa.Mümkün mü ??
Bu yorum sitedeki moderatör tarafından en aza indirildi
bir cevap buldun mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkürler.Tüm çalışma kitabında çalışıyor. Kodlamayı sadece 1 sayfa için yapabilir miyiz.Lütfen yardım edin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kes, kopyala ve yapıştır işlevi nasıl geri etkinleştirilir? Lütfen tavsiye!
Bu yorum sitedeki moderatör tarafından en aza indirildi
sevgili gökyüzü
Çalışma kitabınızda kes, kopyala ve yapıştır işlevini devre dışı bırakmak için lütfen aşağıdaki VBA1'i çalıştırın (kodu ThisWorkbook modülüne yerleştirin).

VBA1:
Alt DelCopy()
Uygulama ile
.OnKey "^x", ""
.OnKey "^c", ""
.CommandBars("Hücre").Controls(1).Enabled = False
.CommandBars("Hücre").Controls(2).Enabled = False
İle bitmek
End Sub

Ve tüm bu işlevleri çalışma kitabınıza geri döndürmek için VBA2'yi çalıştırın.

VBA2:
Alt Kurtarma Kopyası()
Uygulama ile
.OnKey "^x"
.OnKey "^c"
.CommandBars("Hücre").Controls(1).Enabled = True
.CommandBars("Hücre").Controls(2).Enabled = True
İle bitmek
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu benim için işe yaramadı - orijinal VBA kodunu silip, Kes, kopyala ve yapıştır işlevini tekrar etkinleştirmek için yukarıdakileri yapıştırmalı mıyım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Yukarıdaki VBA1in yorumu, orijinal kodun değiştirilmesidir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili,

excel 2007 sayfasında kesme, kopyalama, yapıştırma işlemlerini devre dışı bırakmak istiyorum
bunun kodunu paylaşırmısın
Bu yorum sitedeki moderatör tarafından en aza indirildi
Good Day,
Yorumun için teşekkür ederim. Excel 2007 için bir çözüm bulmaya çalışıyorum. Lütfen sabırla bekleyin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Yalnızca "CUT" işlevini devre dışı bırakmak mümkün müdür? ama yine de Kopyala ve Yapıştır'ı kullanabilir miyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Carmelo,
Lütfen aşağıdaki kodu kopyalayıp çalışma kitabınızdaki Çalışma Kitabı kodu penceresine yapıştırın ve ardından Excel Makro etkin çalışma kitabı olarak kaydedin. Ardından "Kes" işlevi devre dışı bırakılacaktır.

Seçenek Açıkça
Komut Çubukları Olarak Özel WithEvents Cmbrs

Özel Sub Workbook_Open ()
Cmbrs = Application.CommandBars Ayarla
End Sub

Özel Sub Workbook_Activate ()
Application.CutCopyMode = 2 ise
Application.CutCopyMode = 0
Eğer son
End Sub

Özel Alt Cmbrs_OnUpdate()
Ben ActiveWorkbook ise
Application.CutCopyMode = 2 ise
Application.CutCopyMode = 0
MsgBox "Kesme İşlemleri devre dışı"
Eğer son
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Dediğiniz gibi denedim ama hiçbir şey olmuyor. A tam olarak aynı istemek, Sadece
"Kes" işlevi devre dışı bırakıldı. Sağ tıklama buton seçeneğinden ve araç çubuğundan "kes" seçeneğini devre dışı bırakmam gerekiyor.
Mümkün kristal mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler,
Kod benim durumumda iyi çalışıyor. Office sürümünüzü öğrenebilir miyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hi

VBA kodlarında acemiyim ve bu kod sorunlarımın %99'unu çözdü.

Delik sayfasını kilitlemek (bu kod dozu olarak) ancak yine de bir hücrenin kilidi açık mı?
(Açıklığa kavuşturun, bilgide geçmişin kopyalanmasına, delik sayfasındaki yalnızca bir hücrede izin vermek istiyorum).

Saygılarımla
L
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Linda,
VBA kodu kullanmadan sorunu çözebilirsiniz.
Hücreye sağ tıklayın ve içerik menüsünden Hücreleri Biçimlendir'i seçin, iletişim kutusundaki Koruma sekmesinin altındaki Kilitli kutusunun işaretini kaldırın. Ardından çalışma sayfasını parola ile koruyun.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu gönderiyi bulduğuma çok sevindim ama bunu çok çalışma sayfalı bir Çalışma Kitabında tek bir çalışma sayfasıyla sınırlamak için biraz yardıma ihtiyacım var. Ve bunu kullanıcı müdahalesi olmadan nasıl yürüteceğimizi bilmemiz gerekiyor... hataları önlemeye yardımcı olmak için bu ASAP'a bir çalışma kitabında ihtiyacımız var.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler,
Aşağıdaki VBA kodu, sorunu çözmenize yardımcı olabilir. Ve koddaki "Sayfa2"yi sayfa adınızla değiştirmeyi unutmayın.

Genel mJWSName As String

Özel Sub Workbook_Open ()
mJWSName = "Sayfa2"
End Sub

Özel Sub Workbook_Activate ()
ActiveSheet.Name = mJWSName ise
Application.CutCopyMode = Yanlış
Application.OnKey "^c", ""
Application.CellDragAndDrop = Yanlış
Eğer son
End Sub

Özel Alt Çalışma Kitabı_Deactivate ()
Application.OnKey "^c", ""
Application.CellDragAndDrop = Doğru
Application.CutCopyMode = Yanlış
End Sub


Özel Alt Workbook_WindowActivate(ByVal Wn As Window)
ActiveSheet.Name = mJWSName ise
Application.CutCopyMode = Yanlış
Application.OnKey "^c", ""
Application.CellDragAndDrop = Yanlış
Eğer son
End Sub

Özel Alt Workbook_WindowDeActive(ByVal Wn As Window)
Application.OnKey "^c"
Application.CellDragAndDrop = Doğru
Application.CutCopyMode = Yanlış
End Sub

Özel Alt Workbook_SheetSelectionChange(Nesne Olarak ByVal Sh, Aralık Olarak ByVal Target)
On Error Resume Next
Eğer Sh.Name = mJWSName ise
Application.CutCopyMode = Yanlış
Eğer son
End Sub

Özel Alt Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
Eğer Sh.Name = mJWSName ise
Application.OnKey "^c", ""
Application.CellDragAndDrop = Yanlış
Application.CutCopyMode = Yanlış
Eğer son
End Sub

Özel Alt Workbook_SheetDeactive(ByVal Sh As Object)
Application.OnKey "^c"
Application.CellDragAndDrop = Doğru
Application.CutCopyMode = Yanlış
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Son bir soru - Bu kod nereye gidiyor ve nasıl yürütülüyor? Bunun çalışması gereken proje, kodun çoğunu içeren Excel sayfasına bir XLA dosyası ekler. Bunun bir modüle mi yoksa bu sayfanın arkasındaki koda mı ihtiyacı olduğunu bilmiyordum. Teşekkürler...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Yönlendirmeniz için teşekkür ederim. 2013 ofisini deniyorum ama hiçbir şey değişmedi.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, kod iyi çalışıyor teşekkürler.
Ancak, salt okunur seçeneği etkinleştirildi. (değiştirmek istemiyorsanız). ..Dosya, farklı kaydet, araçlar, genel seçenekler, salt okunur önerilir.. ayarlarsam kod çalışmaz.

Şimdiden teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Gerçekten iyi çalışıyor, çok teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkürler, mükemmel çalışıyor .... sadece bir şekilde bir aralığa uygulanabilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
İyi günler,
Üzgünüm bu konuda size yardımcı olamam. Forumumuza herhangi bir soru göndermeye hoş geldiniz: https://www.extendoffice.com/forum.html. Yorumun için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
TEŞEKKÜRLER EFENDİM
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim, çok yararlı.
Bu yorum sitedeki moderatör tarafından en aza indirildi
kes kopyala yapıştır uygulanabilir Tüm çalışma kitabı. Bu Kod'a sadece belirli bir sayfaya ihtiyacım olursa.Mümkün mü ??
lütfen yardım et. sadece bir sayfa devre dışı bırakma işlevine ihtiyacımız var. tüm fonksiyonları üzerinde çalıştığımız başka bir sayfa...
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kod, tüm çalışma kitabı yerine tek bir sayfa için excel 2016'mda çalışmıyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu yine de Not Defteri'nden veya Microsoft Edge'den yapıştırmaya izin verir. Lütfen herhangi bir kaynaktan yapıştırmayı önlemenin bir yolu olup olmadığına bakın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
Herhangi bir kaynaktan yapıştırmayı engellersek, rahatsızlık verebilecek Not Defteri özelliğini engellememiz gerekir. Bunu tavsiye etmiyoruz. Üzgünüm bunun için sana yardım edemem.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu kodu kullandım ve yeniden etkinleştirmek mi istiyorsunuz? nasıl yeniden etkinleştirilir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
kopyala kes ve yapıştır özelliğini devre dışı bırakmak için bu kodu kullanın



Özel Sub Workbook_Activate ()

Application.CutCopyMode = Yanlış

Application.OnKey "^c", ""

Application.CellDragAndDrop = Yanlış

End Sub



Özel Alt Çalışma Kitabı_Deactivate ()

Application.CellDragAndDrop = Doğru

Application.OnKey "^c"

Application.CutCopyMode = Yanlış

End Sub



Özel Alt Workbook_WindowActivate(ByVal Wn As Window)

Application.CutCopyMode = Yanlış

Application.OnKey "^c", ""

Application.CellDragAndDrop = Yanlış

End Sub



Özel Alt Workbook_WindowDeActive(ByVal Wn As Window)

Application.CellDragAndDrop = Doğru

Application.OnKey "^c"

Application.CutCopyMode = Yanlış

End Sub



Özel Alt Workbook_SheetSelectionChange(Nesne Olarak ByVal Sh, Aralık Olarak ByVal Target)

Application.CutCopyMode = Yanlış

End Sub



Özel Alt Workbook_SheetActivate(ByVal Sh As Object)

Application.OnKey "^c", ""

Application.CellDragAndDrop = Yanlış

Application.CutCopyMode = Yanlış

End Sub



Özel Alt Workbook_SheetDeactive(ByVal Sh As Object)

Application.CutCopyMode = Yanlış

End Sub





ve bu işlevi tekrar etkinleştirmek istiyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu harika çalışıyor, adlandırılmış kabul edilebilir girdi aralıklarına ve yalnızca kabul edilebilir girdiye bağlı menüleri olan belirli sütunlarda kopyala/yapıştır işlemine izin vermek için bunu nasıl değiştirebilirim? Örneğin, Jetson, George, 25 olan bir ad, Jetson, George, 25'in kopyalanmasına/yapıştırılmasına izin verir, ancak Jeston, George, 26'ya izin vermez. Veya Jetson, George, 25 sonra 26 ile sonuçlanacak bir sürükle ve doldur , sonra 27, vb.
Çalışma sayfamda, belirli sütunlarda kes/kopyala/yapıştır işlemini tamamen devre dışı bırakmak, ardından yalnızca açılır menülerden kabul edilebilir verilerin kes kopyala yapıştırılmasına izin vermek istiyorum.
Teşekkür ederim.
Buraya henüz hiç yorum yapılmamış
Daha Çok
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