S

Çözüldü Belirlenen hücrelerde yapıştırmayı iptal edilmesi

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
S

SilinenUye8231

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın sadece H8:H17 hücrelerinde kopyalanmış herhangi bir şeyin yapıştırılmasının iptal edilmesini istiyorum. (Sağ mause ve Ctrl+V iptal edilmesi.)

Dosya içerisinde kodlar var, ama bu tamamen bütün dosyayı kapsadığı için işimi görmüyor.

Yardımcı olur musunuz?
 

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Aşağıdaki kodları kullanınız ve işlemleri uygulayın. Belirtilen alanda sağ cilick menüsünü iptal etmez yapıştırma menüsünü disabled eder.

Sayfa1 kod bölümüne aşağıdaki kodu yazın.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(23 satır)


Module kod bölümüne aşağıdaki kodu yazın.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(19 satır)

ThisWorkbook (BuKitap) kod bölümüne aşağıdaki kodu yazın.


VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(15 satır)
 
Moderatörün son düzenlenenleri:
Oyla 0 Olumsuz oyla
Merhaba,
Alternatif olarak panonun boşaltılması da kopyalamayı engelleyecektir.
Modül kodu:
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)

Sayfa kodu:
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(7 satır)

Çalışma kitabı kodu:
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)
 
Oyla 0 Olumsuz oyla
Sayın Ömer Bey, sizinde ilginize çok teşekkür ediyorum, Aşağıdaki kodda hata verdi, user 32 zannedersem sistem türü için, kullandığım bilgisayarın sistem türü 64 bit işletim sistemi yazıyor.
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
 

Ekli dosyalar

  • Ekran Alıntısı.webp
    Ekran Alıntısı.webp
    11 KB · Görüntüleme: 1
Oyla 0 Olumsuz oyla
Sayın Feyzullah Bey, Sayfa2'nin kod bölümünde kod olmamasına rağmen, bu sayfanın herhangi bir yerinde Ctrl+C veya Ctrl+V çalışmıyor.
Yapmak istediğim sadece Sayfa1'de H8:H17 bu hücre aralığında çalışmamasını istiyorum.
 
Oyla 0 Olumsuz oyla
ASLAN7410' Alıntı:
Sayın Ömer Bey, sizinde ilginize çok teşekkür ediyorum, Aşağıdaki kodda hata verdi, user 32 zannedersem sistem türü için, kullandığım bilgisayarın sistem türü 64 bit işletim sistemi yazıyor.
Genişletmek için tıklayın ...
Aldığınız hata da ifade edildiği şekilde Declare ifadesinden sonra PtrSafe ilave ediniz. Declare PtrSafe Function... şeklinde.
Ya da aşağıdaki şekilde değiştirilerek 32/64 bit uyumlu çalışması sağlanabilir.
Kod: 
Görüntülemek için giriş yapmanız gerekmektedir.
(9 satır)
 
Oyla 0 Olumsuz oyla
Sayın Ömer Bey, aşağıdaki gibi yapıyorum, dosyayı açtığımda hata mesajı geliyor, ve aşağıdaki koyu olan kısmı seçiyor.

#If VBA7 Then
Public Declare PtrSafe Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare PtrSafe Function EmptyClipboard Lib "user32" () As Long
Public Declare PtrSafe Function CloseClipboard Lib "user32" () As Long
#Else
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EmptyClipboard Lib "user32" () As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
#End If

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
If Not Intersect(Selection, Range(alan)) Is Nothing Then Run "ClearClipboard"
End Sub
 

Ekli dosyalar

  • Ekran Alıntısı1.webp
    Ekran Alıntısı1.webp
    14.1 KB · Görüntüleme: 2
Oyla 0 Olumsuz oyla
Sayın Ömer Bey, ellerinize sağlık, süper olmuş, hatasız çalışıyor, çok teşekkür ediyorum.
Dosyada SOLVER.XLAM eklentisi mevcut, bunun şifresi nedir acaba?
Ayrıca bu dosyayı orijinal dosyama nasıl taşıyacağım, yada orijinal dosyama eklemeliyim?
 
Oyla 0 Olumsuz oyla
ASLAN7410' Alıntı:
Sayın Feyzullah Bey, Sayfa2'nin kod bölümünde kod olmamasına rağmen, bu sayfanın herhangi bir yerinde Ctrl+C veya Ctrl+V çalışmıyor.
Yapmak istediğim sadece Sayfa1'de H8:H17 bu hücre aralığında çalışmamasını istiyorum.
Genişletmek için tıklayın ...
Aşağıdaki kodları Sayfa1 kod bölümüne ekleyiniz.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(10 satır)
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler İçerikler Daha Fazlası

Üst