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

[ebruulker]

Merhaba,

Ekteki örnek excel dosyaları sanırım kaldırıldı , tekrar ekleyebilirmisiniz lütfen..

Özellikle , c 'deki bir dosya kontrolüne göre açılıp açlılmama çözümünü rica ediyorum.

Teşekkürler.

 

[rahmi06]

Merhaba,

Ekteki örnek excel dosyaları sanırım kaldırıldı , tekrar ekleyebilirmisiniz lütfen..

Özellikle , c 'deki bir dosya kontrolüne göre açılıp açlılmama çözümünü rica ediyorum.

Teşekkürler.

Buyur kardeş

 

[MHGUL]

Arkadaşlar merhaba benim 2tane makroya ihtiyacım var;
1.Excel dosya ismi değiştiğinde dosya çalıştırıldığı zaman hata verecek hatanın içerisinde "lütfen dosya adını *****.xlsm olarak değiştirin" gibi uyarı verecek,
Diğeri,
Olabilir mi bilmiyorum, sanırım excel yazar isimlerinden bilgisayar kullanıcısını yakalayabilir diye düşünüyorum. Şöyle birşey mümkün mü?
Bir makro içerisine dosyayı açabilecek kullanıcı adlarını tanımlayacağım ve bu kullanıcılar dışında ki kullanıcılar dosyayı açamayacak.

 

[ciomxx]

Merhaba,

benim bir excel çalışmam ilk açılışta password soruyor ancak bu şifrelemeyi taa 2005'te yapmıştım şimdi nasıl yaptığımı hatırlamıyorum, bana özel excel çalışmamı bu şekilde koyduğum şifre ile koruyorum ama dediği gibi nasıl yaptığımı hatırlamıyorum.

resim görüntüsünü eklemek istedim ama bu alana copyalanamıyor...

 

[Necdet]

Arkadaşlar merhaba benim 2tane makroya ihtiyacım var;
1.Excel dosya ismi değiştiğinde dosya çalıştırıldığı zaman hata verecek hatanın içerisinde "lütfen dosya adını *****.xlsm olarak değiştirin" gibi uyarı verecek,
Diğeri,
Olabilir mi bilmiyorum, sanırım excel yazar isimlerinden bilgisayar kullanıcısını yakalayabilir diye düşünüyorum. Şöyle birşey mümkün mü?
Bir makro içerisine dosyayı açabilecek kullanıcı adlarını tanımlayacağım ve bu kullanıcılar dışında ki kullanıcılar dosyayı açamayacak.

Merhaba,

Aşağıdaki kodlar ThisWorkbook'un kod bölümünde olmalı, inceleyiniz.

Sub Workbook_Open()

    On Error Resume Next
    If Not ThisWorkbook.Name = "Necdet.xls" Then
            MsgBox "Adımı Değiştirmişsiniz", vbCritical
            ThisWorkbook.Close Savechanges:=False
            Application.Quit
            Exit Sub
    End If
   
   If Environ("UserName") = "necdet" Or _
      Environ("UserName") = "ahmet" Or _
      Environ("UserName") = "mehmet" Or _
      Environ("UserName") = "ayse" Or _
      Environ("UserName") = "fatma" Or _
      Environ("UserName") = "gulay" Or _
      Environ("UserName") = "necdet" Or _
      Environ("UserName") = "huseyin" Or _
      Environ("UserName") = "omer" Or _
      Environ("UserName") = "uzmanamele" Then
      
            MsgBox "Yetkili Kullanıcısınız..."
   Else
      MsgBox "Bu dosyayı kullanmaya yetkili değilsiniz."
      ThisWorkbook.Close Savechanges:=False
   End If
 
End Sub

 

[MGüler1]

Sizi seviyorum yaa. İstediğim her şey var bu forumda. Süpersiniz. Allah razı olsun.

 

[Ferittt]

Necdet Bey bu kodları çalışma sayfasına yapıştırıyorum.hata verip sayfa kilitleniyor.Kodları nasıl kullanmamız lazım.

 

[baydeniro]

Sayın Necdet Yeşertener yardımlarınız için çok teşekkürler.

 

[__TR__]

Merhaba Necdet Bey!
en son göndermiş olduğunuz dosya şifre ile açma ve isim değiştirme ile alakalı makro kodunuzu kullanmak istedim fakat dosya açılımında adımı değiştirmişsiniz uyarısını verip sayfa pasif hale geliyor. Mesajınız bir kaç yıl öncesine ait ama rica etsem tekrar revize edebilirmisiniz. ?

 

[cem yılmaz]

Merhabalar.
123456 olan şifreyi hem vba'dan hem "sirket.txt" dosyasından değiştiriyorum. Hata veriyor. Ben şifremin "38572@3@201304246NK7D" olmasını istiyorum. Nasıl değiştirebiliriz?

 

[cocoa35]

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

Bu kod'ları Bilgisayar ıp numarası değişince çalışmasın şeklinde düzenlenebilirmi? Yani yüklendiği bilgisayarın IP numarası girilecek, program başka bilgisayara kopyalansa bile ıp numarası değişik olduğu için açılmıyacak?

 

[Cengiz Demir]

Masaüstü bilgisayarlarda genelde ip'ler sabitlenir ama laptoplarda sabitleme yapılmıyor genelde.
Laptop ile çalışırsanız sorun çıkartabilir.

Aşağıdaki fonksiyonu makroya ekleyip; öncelikle basit bir makro yazıp, o makro ile HDD seni nosunu not alıp,

dosya açılırken yine bu fonksiyonla seri nosunu çağırıp, not aldığınız seri noyla karşılaştırma yapacak ve farklıysa dosya açılmayacak şekilde kodları değiştirebilirsiniz.

------------------------------
Örn:
Sub HD()
MsgBox HdNum
End Sub

Function HdNum() As String

    Dim fsObj   As Object

    Dim drv     As Object

    Set fsObj = CreateObject("Scripting.FileSystemObject")

    Set drv = fsObj.Drives("C")

    HdNum = Hex(drv.serialnumber)

End Function

Bu kod'ları Bilgisayar ıp numarası değişince çalışmasın şeklinde düzenlenebilirmi? Yani yüklendiği bilgisayarın IP numarası girilecek, program başka bilgisayara kopyalansa bile ıp numarası değişik olduğu için açılmıyacak?

 

[Turkbey41]

Merhaba bu konu hakkında bir gelişme var mı?

Dosyanın kopyalanmasını istemiyorum. Bunu kod yardımı ile nasıl yapabilirim?

Şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Makro ile yapılan uygulamalar genellikle dosya açılırken yapılan kontrollerdir.

Onun dışında bir konumdaki dosyayı sağ tıklayıp kopyalama isteği tamamen kullanıcı yetkisi ile alakalıdır. Kullanıcıyı yetkilendirerek bu sorunu çözebilirsiniz.