excel dosyasını kopyalamaya karşı güvenlik

[neo]

:hey: herkese merhaba dostlar

dostlar EFM2005.XLS bir dosyam var bunun başka bir ortama komyalanmasını önlemek mümkünmüdür yani bir diskete yada hard diskin herhangi bir yerine kopyalanmasını engellemek istiyorum birde dosyanın adının değiştirilmesini engellemek mumkünmü saygılarımla


leventm not:soru tarafımdan "diğer excel soruları" başlığı altına taşınmıştır.

 

[danersin]

İstedikleriniz excel ile yapılabilecek şeyler değil.
Excel'de kodlar ancak dosya açık olduğu zaman çalışır.
Ancak dosyanızın başka bilgisayarlarda çalışmaması için bazı şeyler yapılabilir.

 

[birol_mumcu]

merhaba;
başka bir fikir vermesi için
benimde bir yerden edindiğim (yanılmıyorsam sitemizden) kodlar aşağıdadır.
Mesela bu program CD-Rom ismini kontrol ediyor ve tutmuyorsa dosya açmayı iptal ediyor.
CD-Rom a özel bir isim vermemiş iseniz, CD-Rom dahi herhangi bir dosyayıda kontrol ettirebilirsiniz, eğer o dosya yoksa program kapanır.
Kod:
Sub auto_open()
Dim fso, drv, cdr

Set fso = CreateObject("Scripting.FileSystemObject")
For Each drv In fso.Drives
If drv.driveType = 4 Then Set cdr = drv
Next

If cdr.volumename <> "CD nin adı" Then
MsgBox "Lütfen program cd sini takmadan programı çalıştırmayınız"
ThisWorkbook.Close False
End If

End Sub


not: bilgiler paylaşıldıkça güzeldir :bravo:
kolay gelsin

 

[neo]

bu söylediğiniz olayı hardiskte herhangi bir dosyanın içinde bir dosyanın olup olmaması şeklinde ayarlanabilirmiyiz

 

[birol_mumcu]

bu söylediğiniz olayı hardiskte herhangi bir dosyanın içinde bir dosyanın olup olmaması şeklinde ayarlanabilirmiyiz

DAHA AÇIKLAYICI BİLGİ LÜTFEN

 

[neo]

Ã?rnek

Mesala C:\ içinde mesele sirket.txt dosyası varsa çalışsın yoksa kayıt kulanıcısı değilsiniz diye mesaj versi ve excel dosyasını açması

saygılarımla

 

[Haluk]

Re: Ã?rnek

Mesala C:\ içinde mesele sirket.txt dosyası varsa çalışsın yoksa kayıt kulanıcısı değilsiniz diye mesaj versi ve excel dosyasını açması

saygılarımla

Ekli dosya, C:\Sirket.txt dosyasının olup olmamasına göre açılır veya açılmaz.

 

[inFiesta]

Raider, verdiğin güzel bir örnek. Peki txt dosyasından veri okutabilirmiyiz. Yani mesela txt dosyasının ilk 6 hanesi 123456 ise açılsın, değilse açılmasın gibi. Veya belki bunun txt değilde excel dosyası olanı da olabilir.

 

[Haluk]

Merhaba;

.....
Yani mesela txt dosyasının ilk 6 hanesi 123456 ise açılsın, değilse açılmasın gibi.
.....

Ekli zip dosyasını açıp, içindeki Sirket.txt doyasını C:\Sirket.txt olarak bilgisayarınıza kaydettikten sonra deneme yapın.

Muhtemelen XL dosyası açılacaktır . :mrgreen:

Daha sonra, bu XL dosyasını kapatın ve C:\Sirket.txt dosyasını açıp, 1nci satırın ilk 6 karakterini değiştirin (123456 yerine örneğin 123856 gibi...) ve XL dosyasını tekrar açmayı deneyin.

İstediğinize yakın bir şey olmuştur umarım.

 

[Levent Menteşoğlu]

Sn Raider

Excelin güvenlik seviyesini yukarı çekerek, makroları devre dışı bırakıp dosyayı açmak mümkün,bunun içinde bir tedbir öngörülebilirmi? örneğin dosyayı şifrelemek bir çözüm olabilirmi?

 

[inFiesta]

Sayın Raider, Teşekkürler.
Tam istediğim gibi.

 

[Haluk]

........
örneğin dosyayı şifrelemek bir çözüm olabilirmi?
......

3ncü gruplara ait yazılımlar dışında yapılabilecek tek şey, dosyaya bir tane boş sayfa ilave edip esas sayfaları xlVeryHidden olarak gizlemek ve ancak şartlar sağlandığında dosya açılırsa, boş sayfayı gizleyip diğerlerini görünür hale getirmek ile ilgili bir VBA prosedürünü de kodlara ilave etmek .......... bir dereceye kadar faydalı olabilir.

Ancak, bu da VBA'i az ~ çok bilen birisi tarafından bile rahatlıkla aşılabilir.

Excel'de sayfaların şifreleme algoritması çok zor olmadığından, VBA ile bile çözülebilmektedir. Ancak, dediğiniz gibi dosya açmaya 6-7 karakterlik şifre konulursa (dosya açma - koruma şifrelemesinin encryption'ı, sayfa koruma şifrelemeye göre çok daha yüksektir), en azından dosya açma şifresini bulmak isteyen kişinin PC'si biraz ısınabilir işte.... :mrgreen:

Unutmamak gerekir ki, Microsoft hiçbir zaman Excel'i güvenlikli bir yazılım olarak lanse etmemiştir. Yaptığı hesaplar, grafikler ve sonuçları ..... güvenli olmakla beraber, şifreleri güvenlikli değildir. 3ncü gruplara ait yazılımlarla şifreler rahatlıkla çözülebilmektedir.

Kaldı ki, bu tür ücretli şifre çözücü programların lisans şifrelerinin bile internet ortamında bedavaya bulunabildiği bir ortamda, bir Excel dosyasının "güvenlikli" olmasından bahsetmek ...... veya dosyanın VBA ile "güvenlik" sağlamayı düşünmek bana göre boş .... ama ufukları açması bakımından da hoş bir düşünceden öteye gidemez. :mrgreen:

Genellikle ofis ortamlarında, sayfa koruma ve / veya dosya açmak için şifre koymak, sorunları çözmeye yeterlidir. En azından, yetkisiz veya bilinçsiz Excel kullanıcılarının hazırladığınız dosyayı bozmasına epeyce engel olur.

Yani bu konuda bana göre en son nokta, yukarıdaki alıntıda bahsettiğiniz gibi dosyanın kendisine bir açma şifresi konulmasıdır.

@inFiesta;
Ã?rnek dosyanın işinize yaradığına sevindim.

 

[neo]

:hey: bu olay çok mükemmel arkadaşlar
ben birşey daha merak ettim bu txt dosyasının içine yazacağımız verinin excel da sayfa 1 içinde a1 hücresinin içine yazsak şirket txt dosyasının içine yazmasını sağlamak mümkünmüdur

 

[birol_mumcu]

MERHABA;

bu söylediğiniz olayı hardiskte herhangi bir dosyanın içinde bir dosyanın olup olmaması şeklinde ayarlanabilirmiyiz

syn neo
bu mesajı özel mesaj olarakta yollamışsınız.
konu ile ilgili sorunuzu syn raider'in harika cevabı yanıtlamıştır umarım
http://www.excel.web.tr/viewtopic.php?t=2806&highlight=koruma
linkinde
ve de mesajlarınızı özel (yanlışlıkla olduğunu düşünüyorum)göndermemeye özen gösterelim ki verilen cevaplardan ve örnek çalışmalardan tüm forumdaşlar faydalansın :arkadas:
kolay gelsin

 

[damra2005]

Sn Raider Benim kendi belgemde
Sub Autpen ()
Sheet ("Sayfa1").Selecet
End Sub

diye makrom var. Yazmış olduğun makronun adı da aynı bunları nasıl birleştirebilir. birde kendi makromu silip seninkini yerleştirdiğimde ambiguous name......... : auto_open diye mesaj gelip dosya açılıyor

 

[recep]

bir de böyle dene. istediğin olacaktır
makronun içindekileri sil ve bu kodları yapıştır. :hey: :hey: :hey:


Const strTxtFile As String = "C:\Sirket.txt"
Const MyCheckVal As Long = 123456
'
Sub Autpen()
Sheet ("Sayfa1").Selecet
Dim InputData As Variant
Dim FileNum As Long
Dim x As Integer
FileNum = FreeFile
If Dir(strTxtFile) <> Empty Then
Open strTxtFile For Input As FileNum
x = x + 1
Do While Not EOF(FileNum)
Line Input #FileNum, InputData
If Left(InputData, 6) <> MyCheckVal Then GoTo NoGo:
If x = 1 Then Exit Sub
Loop
Close FileNum
ThisWorkbook.IsAddin = False
Else
NoGo:
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
'

 

[selections]

Bu tip koruma isteklerinde database olarak bir çalışma kitabı kodların çalıştığı başka bir çalışma kitabı kullanmanız biraz daha güvenli olur kodların çalışacağı kitabın açılışta harddisk seri numarasını kontrol etmesi kopyalamayı, başka bir kitabı database olarak kullanmanız makroları etkisiz yapması halinde bilgilerinize ulaşmasını zorlaştırır eğer bunları yapabiliyorsa zaten sizinde yapacak çok şeyiniz yok demektir. Ayrıca Allah hırsızı kapıya getirmesin geldiğinde girer.

 

[vanhelsing]

Sayın Haluk ;

Merhaba;



Ekli zip dosyasını açıp, içindeki Sirket.txt doyasını C:\Sirket.txt olarak bilgisayarınıza kaydettikten sonra deneme yapın.

Muhtemelen XL dosyası açılacaktır . :mrgreen:

Daha sonra, bu XL dosyasını kapatın ve C:\Sirket.txt dosyasını açıp, 1nci satırın ilk 6 karakterini değiştirin (123456 yerine örneğin 123856 gibi...) ve XL dosyasını tekrar açmayı deneyin.

İstediğinize yakın bir şey olmuştur umarım.

Sayın Haluk ;
Forumu Araştırırken yukarı daki sizin dosyanızı buldum bunu kitap açılıpta kitabın içinde ki sayfalar da seçim yaparak yetkisiz kullanıcıların o sayfayı veya sayfaları açmalarını engellemek mümkün olurmu
şimdiden teşekkürler

 

[cocoa35]

say&#305;n haluk bey;
Forumu dola&#351;&#305;rken sizin haz&#305;rlam&#305;&#351; oldu&#287;unuz kod'lar&#305; g&#246;rd&#252;m ve bir konuda yard&#305;m&#305;n&#305;z&#305; istiyorum.Benimde excel ortam&#305;nda haz&#305;rlad&#305;&#287;&#305;m bir program dosyas&#305; var.ben bu dosyay&#305; istiyen ki&#351;ilere cd ile g&#246;nderip bilgisayarlar&#305;na kopyalamas&#305;n&#305; ancak benim vermi&#351; oldu&#287;um kod olmaks&#305;z&#305;n o bilgisayarda program&#305;n &#231;al&#305;&#351;mas&#305;n&#305;n engellenmesini istiyorum.
Ayr&#305;ca yollam&#305;&#351; oldu&#287;um kod ile program&#305;n &#231;al&#305;&#351;mas&#305; sa&#287;lansa bile program&#305;n o bilgisayardan ba&#351;ka cd,yada hard disc'e kopyalanmas&#305;n&#305; engellemek istiyorum.bu konuda yard&#305;mc&#305; olabilirmisiniz?

 

[baydeniro]

Arkadaşlar Sayın üstat Haluk konuyu gayet güzel açıklamış. Excel netice itibarıyla koruma açısından diğer programlama olanaklarına göre daha zayıf bir program. Üstelik VBA yı iyi bilenler şifrelerini de çözebildiğine göre yapacak fazla bir şey kalmıyor. Öte yandan konu hakkında etik olarak şunu düşünüyorum : İster firmada çalışalım, isterse programı satalım veya bir şekilde paylaşalım, koruma önlemleri bilgilere değil formüllere-makrolara zarar vermeli ki yani o programı normal olarak kullanan kişi verileri kaybetmesin.

Benim tahminim, hacker düzeyinde birisi bir excel dosyasının programlaması ile uğraşmaz. Yapılması gerekeni zaten kendisi de yapabilir. Önemli olan; verilere bir zeval gelmesin.