vba da güvenlik düzeyi ve program şifresi

[yldrm_06]

slm arkadaslar benım sızın yardımlarınıza ıhtıyacım var.

sıkıntım su;

bir excell dosyam var elımde ve içerisine bu kodu yapıştırıyorum

Option Explicit
Private Sub Workbook_Open()
If Date >= "30.07.2010" Then
MsgBox "Dosya Hasara Uğramıştır!" & Chr(10) & _
"-", vbCritical, "UYARI !"
If Excel.Application.Windows.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End If
End Sub


ve tarıh geldıgı zaman otomatık kendısını kapatıyor ama ben güvenlık seviyesini
çok yükseğe getirdiğimde dosyayı çalıştırabiliyorum. bu dosyayı hangi güvenlık duzeyınde olursa olsun
çalıştıramama gıbı bırsey yokmu.

vede bu dosyayı BU TARIHTEN SONRA sadece BEN calıstırmak ısteyınce calıstırabılsem BUNUN İÇİN özel bır kod özel bır sıstem gıbı bırsey yapabılırmıyız.

YARDIMLARINIZ ICIN TSK EDERIM SIMDIDEN

 

[Excelmy]

Sayın yldrm_06

Aşağıdaki kodlar ile deneme yapınız.

Private Sub Workbook_Open()
Dim tarih1 As Date
Dim tarih2 As Date
    tarih1 = "30.07.2010"
    tarih2 = Date
    If tarih2 > tarih1 Then
        MsgBox "Dosya Hasara Uğramıştır!" & Chr(10) & "-", vbCritical, "UYARI !"
        Application.Quit
End If
End Sub

 

[yldrm_06]

Sayın kuman

tsk edıyorum ama istediğim sey gene olmamıs guvenlık sevıyesını yukselttıgım an dosya acılıyor benım ıstedıgım sey guvenlık sevıyesı ne olursa olsun dosya acılmasın ve acılması ıcın benım özel bır sıfre yazmam yada farklı bırsey yapmam lazım bole bırsey ıstıyorum..

 

[Excelmy]

Şifre ile giriş için,

Private Sub Workbook_Open()
Dim tarih1 As Date
Dim tarih2 As Date
    tarih1 = "30.07.2010"
    tarih2 = Date
    If tarih2 > tarih1 Then
        sifre = InputBox("Mesajınız" BAŞLIK")
        If sifre <> "Şifreniz" Then   
       Application.Quit
End If
End If
End Sub

kodlarını uygulayabilirsiniz.

 

[yldrm_06]

bunu beceremedım acaba ThisWorkbook e mı yapıstırmam gerekiyor bıraz daha acıklayıcı bır sekılde yardım edermısınız

 

[Excelmy]

Module uygulayabilirsiniz

Sub auto_open()
Dim tarih1 As Date
Dim tarih2 As Date
    tarih1 = "30.01.2010"
    tarih2 = Date
    If tarih2 > tarih1 Then
        Sifre = InputBox("Mesajınız", " BAŞLIK")
        If Sifre <> "Şifreniz" Then
       Application.Quit
End If
End If
End Sub

 

[leumruk]

tsk edıyorum ama istediğim sey gene olmamıs guvenlık sevıyesını yukselttıgım an dosya acılıyor benım ıstedıgım sey guvenlık sevıyesı ne olursa olsun dosya acılmasın ve acılması ıcın benım özel bır sıfre yazmam yada farklı bırsey yapmam lazım bole bırsey ıstıyorum..

Merhaba,
Araçlar>Seçenekler>Güvenlik bölümünden dosyanızı şifreleyebilirsiniz.
Application.quit yerine aşağıdaki satırı ekleyin.

ActiveWorkbook.Password = "333333"