Belirli zaman sonra şifre isteyen dosya

[marlalı1]

Arkadaşlar excelde bir rapor hazırlamak istiyorum.bu raporda gayri resmi kayıtlarda olacak.ben bu raporun örneğin 1 ay sonra kapanmasını yada sayfayı açmak için şifre sormasını istiyorum.
örneğin sayfanın kod bölümüne;15.08.2009 tarihini yazdığımda o gün excel dosyayısını açmak için şifre sorsun.acaba böyle birşey mümkünmü

 

[Ayhan Ercan]

Merhaba

Kod penceresine aşağıdaki kodu yazarak deneyiniz...

Private Sub Workbook_Open()
If Date <= "15.08.2009" Then
    sifre = InputBox("Lütfen Şifrenizi giriniz..", "ŞİFRE")
If sifre <> 123 Then Application.Quit: ActiveWorkbook.Close True
End If
End Sub

NOT: Şifre 123 dür

 

[marlalı1]

hocam bunu yaptım ama makroları etkinleştirmezsek şifre falan sormuyor.

 

[Ayhan Ercan]

hocam bunu yaptım ama makroları etkinleştirmezsek şifre falan sormuyor.

Makro-Vba bölümüne sorduğunuza göre makro-vba çözümü sunmaya çalıştık. kod yazarak çalışmasını istediğimiz herşeyin "Makroları etkinleştir" ile çalıştığını unutmayınız...

 

[izcik]

Peki bu kodlara , örneğin

"makrolar etkinleşirse excel dosyasının içindeki bilgiler görünsün , makrolar etkinleştirilmezse excel sayfalarının içindeki bilgiler görünmesin ta da açılmasın"

gibi bir özellik ekleyebilir miyiz?

Böylelikle tam güvenlik olmuş olur

 

[leumruk]

Peki bu kodlara , örneğin

"makrolar etkinleşirse excel dosyasının içindeki bilgiler görünsün , makrolar etkinleştirilmezse excel sayfalarının içindeki bilgiler görünmesin ta da açılmasın"

gibi bir özellik ekleyebilir miyiz?

Böylelikle tam güvenlik olmuş olur

Merhaba,
Eklediğim dosyayı güvenlik seviyesini yükselterek deneyin.

 

[uzmanamele]

merhaba

ek dosya, makro etkinleştirilmeden açılırsa sayfalar görünmez.
makro etkinleştirildiğinde belirli zaman sonra şifre soracağından şifreyi bilmeyen dosyaya ulaşamaz.

ek dosyayı inceleyiniz.

 

[marlalı1]

bu dosya çalışmıyor sanırım.dosyaya bakarmısınız arkadaşlar

 

[realperest]

Evet sanki boş dosya