Ctrl tuşu ile sayfa kopyalamayı engelleyebilir miyiz?

[ceycey72]

selam arkadaşlar

Sayfa sekmesi üzerinde Ctrl tuşuna basılı tutup sürükleyerek sayfayı kopyalayabiliyoruz

Bu özelliği devre dışı bırakmanın bir yolu veya bir kodu varmıdır?

yardımcı olursanız sevinirim

 

[avcar]

sLM

Sanırsam düzen menüsünden seçeneklerde bunun ile ilgili bir ayar olması lazım kontrol etmek lazım.

 

[Seyit Tiken]

Sayfa gizlemenin bir yöntemi.

Sub Düğme1_Tıklat()
ActiveWindow.TabRatio = 0
End Sub

 

[ceycey72]

arkadaşlar

araçlar>seçenekler> düzen buradan sadece hücrelerin sürüklenip bırakılması engellenebiliyor bennim istediğim sayfanın sürükle bırak yöntemiyle kopyalanmasını engellemek.

ikinci yöntemde işime yaramadı (sayfa gizleme kodu) çünkü çalışma kitabında bir sürü sayfa var ve bu sayfalarda gezilebilsin istiyorum.

kullanıcı sayfa sekmelerine tıklayabilsin fakat sürükle bırak yöntemiyle sayfayı kopyalayamasın. yokmu bunun bir yolu?

değerli üstadlar yardımlarınızı bekliyorum..

 

[Levent Menteşoğlu]

Aşağıdaki kodları thisworkbook sayfasına kopyalayın. Kodların çalışması için dosyanızı kapatıp tekrar açın. Bu kodun çalışma mantığı şöyledir. Dosya ilk açılışında mevcut sayfa sayısını "say" isimli değişkene atıyor. Daha sonra ctrl tuşuna basarak sürükle veya sağ-klik kopyala ile kopyalanan dosyanın ardından sayfa sayısını tekrar sayıyor ve say değişkeni ile karşılaştırıyor eğer fazla ise son kopyalanan dosyayı siliyor. (yeni sayfa eklenmesinede izin vermez)

Aklıma böyle bir çözüm geldi. Ancak şunu hatırlatmakta yarar görüyorum. Kod, silme işlemi yaptığından öncelikle, ne kadar sağlıklı çalıştığını anlamak için bir kopya dosya üzerinde denemeler yapın. İyice emin olduktan sonra kodu kullanın. Her zaman dosyanızın bir yedeğinide almayı unutmayın.

Dim say As Integer
 
Private Sub Workbook_Open()
say = Sheets.Count
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.DisplayAlerts = False
If Sheets.Count > say And say <> 0 Then ActiveSheet.Delete
End Sub

 

[PrivateSub]

Yapacağının en iyisi yukarıdaki veya benzeri bir kodla (Seyit Tiken'in kodu) sayfa sekmelerini gizlemek, sonra da sayfalara yerleştireceğin hiperlinklerle veya ComboBox'larla gezinilecek sayfaları seçmen olacaktır.

 

[ceycey72]

budur

Saygı değer üstadım Leventm

Öncelikle çok teşekkür ediyorum. vermiş olduğunuz bu kod projemi bitirmemi sağladı.

Bu güzellik karşısında bende paylaşıma bir katkısı olması açısından bitirdiğim dosyayı foruma ekliyorum.

Bu dosya sayesinde tam güvenlik sağladığımı düşünüyorum. Son zamanlarda dosyalarıma sayfa koruması koymama rağmen bazıları özel programlarla sayfa koruma şifremi kırıp verilerimi alıyorlardı. Oysa şimdi siz değerli ustalardan aldığım yardımlarla bunun önüne geçtiğimi düşünüyorum.

Yaptığım çalışmada sayfa korumasını kaldırsalar bile, Açılışta makroları etkinleştirmeseler dahi çalışma sayfalarımdaki verilerin kopyalanmamasını engellemiş oldum.

Veri güvenliği açısından örnek olması amacıyla dosyayı ekliyorum.
Sayfa koruma şifresi : c
VBA şifresi : c

test edip eksiği varsa, söylerseniz sevinirim.

 

[Levent Menteşoğlu]

..............
Bu dosya sayesinde tam güvenlik sağladığımı düşünüyorum. Son zamanlarda dosyalarıma sayfa koruması koymama rağmen bazıları özel programlarla sayfa koruma şifremi kırıp verilerimi alıyorlardı. Oysa şimdi siz değerli ustalardan aldığım yardımlarla bunun önüne geçtiğimi düşünüyorum........

Öncelikle rica ederim, yalnız sizi hayal kırıklığına uğratacak belki ama fikrimi söylemek durumundayım. Excel açık kaynak kodlu bir program olduğundan hiçbir zaman tam koruma sağlanamaz, dosyanızdaki yaptığınız işlem ancak VBA konusunda yeterli düzeyde bilgi sahibi olmayanlar için bir koruma sağlayabilir. VBE şifresi en kolay kırılan şifrelerdendir. Bu şifrenin tam olarak korunmasıda mümkün değildir. En zor kırılan şifre ise excelin açılışına konan şifredir bunuda bir bilgi olarak vereyim.

 

[Haluk]

Zip formatında olmadığı için dosyayı indirip, deneyemedim ama şunu söyleyeyim ....

Makroları etkinleştirmeden dosyayı açıp, 10 saniye içinde istediğiniz herhangibir sayfayı olduğu gibi kopyalayabilirim ... :mrgreen: