Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 06-07-2005, 14:31   #1
algil
 
Giriş: 28/04/2005
Şehir: İSTANBUL
Mesaj: 252
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan excel sayfasında Copy/paste olayını engelleme

Merhaba
Arama yapmama rağmen bulamadım. Ben bir excel sayfasını tümünü veya seçilmiş bir bölümünün kopyalanıp başka bir excel sayfasına yapıştırılmasını engellemek istiyorum. Bunu nasıl yapabilirim. Bunun için bir kod var mı?
__________________
Excel 2003 TR
algil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-07-2005, 14:40   #2
Levent Menteşoğlu
Administrator
 
Levent Menteşoğlu kullanıcısının avatarı
 
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,896
Excel Vers. ve Dili:
Excel 2010-Türkçe
Varsayılan

Aşağıdaki kodu sayfanın kod sayfasına kopyalayarak deneyin.

[vb:1:2861856e9f]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CutCopyMode = False
End Sub
[/vb:1:2861856e9f]
__________________
FORUM KURALLARI



"Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan
Levent Menteşoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-07-2005, 14:43   #3
Levent Menteşoğlu
Administrator
 
Levent Menteşoğlu kullanıcısının avatarı
 
Giriş: 13/10/2004
Şehir: Çorlu
Mesaj: 15,896
Excel Vers. ve Dili:
Excel 2010-Türkçe
Varsayılan

Yukarıdaki kod sadece kendi sayfasında engelleme yapıyor, tüm sayfalar için aşağıdakini deneyin. Bu kodda thisworkbook sayfasına kopyalanmalıdır.

[vb:1:93ec3bbd1a]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
[/vb:1:93ec3bbd1a]

Başka bir dosyaya kopyalanmasını engellemek içinde aşağıdaki koduda yukarıdaki kod ile beraber kullanın.

[vb:1:93ec3bbd1a]Private Sub Workbook_Deactivate()
Application.CutCopyMode = False
End Sub
[/vb:1:93ec3bbd1a]
__________________
FORUM KURALLARI



"Biz burada hep beraber, sevginin,saygının, alınterinin, mutluluğun makrosunu yazıyoruz. " Kaylan
Levent Menteşoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-07-2005, 15:48   #4
balca
 
balca kullanıcısının avatarı
 
Giriş: 22/03/2005
Mesaj: 304
Varsayılan

Merhaba;

Gerçi cevap verilmiş ama alternatif olması açısından;

Eğer dosya açılırken kullanıcının makroları devreye sokacağından eminsen, aşağıdaki kodları boş bir standard module yerleştir, dosyayı kaydet, kapat ve daha sonra tekrar aç. Herşey yolunda gittiyse, XL'in menü çubuklarında, mouse sağ click ile çıkan pop-up pencerelerdeki bazı menüler ile klavye kısayol tuşlaması ile çıkan bazı menüler aktif olmayacaktır. (Save, Copy, Print, VBE, .....)

Kodlarda menülere ID'leri ile referans verilmekte ve böylece İngilizce - Türkçe versiyon farkından dolayı menü etiketlerinin problem çıkartması engellenmiştir.

Sub Auto_Open()
Call OrganizeMenus(False)
Application.OnKey "^p", "" 'Print kısayol
Application.OnKey "^s", "" 'SaveAS kısayol
Application.OnKey "^c", "" 'Copy kısayol
Application.OnKey "^v", "" 'Paste kısayol
Application.OnKey "%{F11}", "" 'VBE kısayol"
End Sub
'
Sub Auto_Close()
Call OrganizeMenus(True)
Application.OnKey "^p" 'Print kısayol
Application.OnKey "^s" 'SaveAs kısayol
Application.OnKey "^c" 'Copy kısayol
Application.OnKey "^v" 'Paste kısayol
Application.OnKey "%{F11}" 'VBE kısayol"
End Sub
'
Sub OrganizeMenus(MyBoolean As Boolean)
On Error Resume Next
For Each Ctrl In Application.CommandBars.FindControls(ID:=3) 'Save
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=2521) 'Print
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=4) 'Print
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=748) 'Save As
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=1695) 'Visual Basic Editor
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=30029) 'Protection
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=847) 'Delete Sheet
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'Copy
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=848) 'Move or Copy Sheet
Ctrl.Enabled = MyBoolean
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=1561) 'View Code
Ctrl.Enabled = MyBoolean
Next Ctrl
End Sub
__________________
Excel-2000 Türkçe
balca Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-07-2005, 16:01   #5
algil
 
Giriş: 28/04/2005
Şehir: İSTANBUL
Mesaj: 252
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

merhaba

Evet bende farkettim. ikinci kod tüm çalışma kitabına uyguluyor. Ama benim asıl istediğim benim bir excel sayfasında oluşturduğum yazı, formül ve tablo formatının Copy/past yöntemiyle başka bir excel sayfasına aktarılmasına engel olmak istiyorum. Çünkü oluşturduğum excel sayfası valide edilecek formüller ve formatı kilitlenecek. bunları yaptık ama aynı formatı copy/paste ile alıp başka bir sayfada değiştirilebiliyor. ve print alınıyor. ben buna engel olmak istiyorum.
inşallah anlatabilmişimdir.
teşekkürler
__________________
Excel 2003 TR
algil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-07-2005, 16:02   #6
algil
 
Giriş: 28/04/2005
Şehir: İSTANBUL
Mesaj: 252
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

kusura bakmayın cevap gelmiş farketmedim inceledikten sonra döneceğim
__________________
Excel 2003 TR
algil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-07-2005, 16:03   #7
balca
 
balca kullanıcısının avatarı
 
Giriş: 22/03/2005
Mesaj: 304
Varsayılan

Merhaba;

Ã?rnek verdiğim kodları denediniz mi? İstediğiniz işlemleri yapıyor.
__________________
Excel-2000 Türkçe
balca Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-07-2005, 01:14   #8
algil
 
Giriş: 28/04/2005
Şehir: İSTANBUL
Mesaj: 252
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba leventm ve balca

Alıntı:
Ã?rnek verdiğim kodları denediniz mi? İstediğiniz işlemleri yapıyor.
göndermiş olduğunuz kodları denedim. hepside sorunsuz çalışıyor. Bu kodlar sayesinde hazırladığım hesaplama tablosu için düşündüğüm güvenliğin daha da üst seviyesine ulaştım. Bu bilgilerin paylaşımına vesile olan board yetkilileri ve bu siteye üye olan herkese teşekkür ediyorum.
Eğer yaptığım çalışmanın draft halini görmek isteyen olursa seve seve paylaşırım.
__________________
Excel 2003 TR
algil Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-07-2005, 06:51   #9
tevfikseremet
 
tevfikseremet kullanıcısının avatarı
 
Giriş: 15/09/2004
Şehir: tekirdag
Mesaj: 91
Excel Vers. ve Dili:
2010 TR
Varsayılan

Arkadaşlar,

kodları kaydedip çalıştırdığımızda,

Ã?zelleştir,komutlar,dosya tabından kaydet butonunu seçerek toolbara yerleştirdiğimizde bu buton niye çalışıyor...Acaba farklı bir ID NO 'sumu alıyor???

Ayrıca CTRL+INSERT hala kopyalamaya devam ediyor..

iyi çalışmalar..
tevfikseremet Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-07-2005, 20:15   #10
algil
 
Giriş: 28/04/2005
Şehir: İSTANBUL
Mesaj: 252
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhabalar

Alıntı:
Bu kodlar sayesinde hazırladığım hesaplama tablosu için düşündüğüm güvenliğin daha da üst seviyesine ulaştım.
bazı eksiklikler kullanıldıkça ortaya çıkyor. Yukarda bahsettiğim güvenliğin yeterli olmadığını gördüm. Çünkü macro güvenliği yüksek veya çok yüksek olan sistemlerde macro ile sağlanan hiçbir koruma devreye girmiyor. Sadece hücrelere ait korumalardevrede kalıyor. Bu aşamada aklıma gelen tek şey, dosyayı açtığımızda macro güvenliği yüksek veya çok yüksek olan sistemlerde excel sayfasının açılmaması gerekmektedir. Bunu yapabilirmiyiz?
__________________
Excel 2003 TR
algil Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 23:17


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden