30 günde değişen şifreleme sistemi...

[manly]

Sizden istediğim, dosyamın açılışına ekleyeceğim 1. giriş şifresi 30 gün ile kısıtlı olsun..kısıtlamanın sonunda 2. giriş şifrenizi girin mesajı ile daha önceden koda yazılmış şifre devreye girsin...aynı şekilde bu şifreleme 12 ay sonuna kadar 30 günde bir değişsin... Yardımlarınızı bekliyorum...

 

[leumruk]

Sizden istediğim, dosyamın açılışına ekleyeceğim 1. giriş şifresi 30 gün ile kısıtlı olsun..kısıtlamanın sonunda 2. giriş şifrenizi girin mesajı ile daha önceden koda yazılmış şifre devreye girsin...aynı şekilde bu şifreleme 12 ay sonuna kadar 30 günde bir değişsin... Yardımlarınızı bekliyorum...

Merhaba,
Bu istediğinizi yapmak zor değil ancak şu tür sıkıntılarının olduğunu belirtmek istiyorum:
1- Bilgisayarın tarihiyle oynayarak geçmiş şifreye dönmek zor olmayacaktır.
2- Makro devre dışı bırakılarak şifre girmeden dosyaya ulaşılabilecektir.
Şifre yanlış olduğunda ne yapması gerektiği konusunda bilgi vermediğiniz için koda sadece msgbox eklemekle yetindim. Siz bu msgboxların altına ne tür işlemler yaptırmak istiyorsanız eklersiniz.
NOT: Dosyayla yapmak istediğiniz işleme ve dosyanın sabit bir bilgisayarda bulunup bulunmamasına göre yukarda söz ettiğim açıklar için çözümler düşünülebilir. Tabi yeterli açıklamayı yapmanız kaydıyla...

Private Sub Workbook_Open()
ilk_tarih = CDate("18.10.2011")
If ilk_tarih > Date Then
MsgBox "Bilgisayarınızın tarihini güncelleyin.", vbCritical, "UYARI"
End If
deg = Array("11", "22", "33", "44", "55", "66", "77", "88", "99", "1010", "1111", "1212")
fark = WorksheetFunction.RoundDown(DateDiff("d", CDate("17.10.2011"), Date, vbMonday) / 30, 0)
Tekrar:
sifre = Application.InputBox("Lütfen " & fark + 1 & ". şifrenizi giriniz...", "Şifre", "")
If sifre = False Then MsgBox "Lütfen bir şifre giriniz!!!", vbCritical, "UYARI": GoTo Tekrar
If sifre = deg(fark) Then
MsgBox "Şifreniz onaylandı.", vbInformation, "DURUM"
Else
MsgBox "Geçersiz şifre!!!", vbCritical, "HATA"
End If
End Sub

 

[manly]

Çok teşekkür ederim. Bu işlemler tek bir bilgisayarda olacak..tarih değişmesi söz konusu değil...Makronun devre dışı bırakılmaması için kod bölümüne giriş şifreli olabilir mi?

 

[leumruk]

Çok teşekkür ederim. Bu işlemler tek bir bilgisayarda olacak..tarih değişmesi söz konusu değil...Makronun devre dışı bırakılmaması için kod bölümüne giriş şifreli olabilir mi?

Tools>VBA Project Properties>Protection kısmını tıklayın. Karşınıza çıkan ekranda bulunan kutucuğu işaretleyin ve şifrenizi girin.

 

[manly]

Tools>VBA Project Properties>Protection kısmını tıklayın. Karşınıza çıkan ekranda bulunan kutucuğu işaretleyin ve şifrenizi girin.

Teşekkür ederim...Çok sağolun...