Cevap:Bilgisayarda Şaka Yapmak (27.3.2011 01:09:05)
Allah selametinizi versin.
Yeni Şakamız
Bilgi: Bir Excel sayfasına komut vereceğiz. Komuttan sonra bilgisayar yeniden başlatınca ya da kapatılıp açınca, masaüstü göründükten hemen sonrası, bizim Excel şakamız otomatik olarak açılacak ve şifre isteyecek. Şifre doğru girilmedikçe sayfamız kapanmayacak ve bilgisayar hiç bir işlem yapamayacak.Sayfaya da DİKKAT ...ŞU..NEDENLERDEN DOLAYI...ŞU..ŞU...VİRÜSÜ BULAŞMIŞ.BİLGİ İÇİN ...ŞU..ADAMA MÜRACAT EDİN falan kafamıza göre bir esprili cümle yazalım.Ya da "şifreyi açmak için ayakkabı numaranızı giriniz" vb.
YAPILIŞI
Yeni bir Excel sayfasını açalım. Klavyedeki Alt tuşuna basılı tutup F11 tuşuna basıp bırakalım (Alt+F11 tuş kombinasyonu). Yada araçlar çubuğunda sırayla; ARAÇLAR-MAKRO-VİSUAL BASİC DÜZENLEYİCİSİ ni tıklayalım. 2 yol da bizi makro sayfasına götürecektir. Sayfa açılınca, açılan sayfadaki araçlar çubuğunda sırayla İNSERT-MODULE yi tıklayalım. Açılacak yeni module sayfasına şu kodu kopyalayıp yapıştıralım.
Sub auto_open()
1
For i = 1 To 3
Dim Password, Pword
Password = "15"
Pword = InputBox("TEKRAR YAZ"
If Pword Password Then
GoTo 1
End
End If
Next
End Sub
Excel'i kaydedip çıkalım. Kaydettikten sonra dosyamızı başlangıca koyalım (Dosyayı başlangıça koymak için; mause ile kapalı olan dosyamızı tutup(hiç bırakmadan bir kaç saniye BAŞLAT üzerinde bekletelim) BAŞLAT açılacaktır. Hiç bırakmadan devam edip BAŞLAT-TÜM PROGRAMLAR-BAŞLANGIÇ orada açılacak kutucuğun içine bırakalım.
Bu işlemden sonra kendi dosyamızı yada herhangi bir Excel kitabını açıp güvenliğin açık olup olmadığını kontrol edelim. Kontrol için Araçlar çubuğunda sırayla; "ARAÇLAR-SEÇENEKLER - GÜVENLİK-MAKRO GÜVENLİĞİ(alta) açılan karta DÜŞÜK kısmını onaylıyoruz TAMAM.
Artık bilgisayarın her açılışında hazırlamış olduğumuz Excel sayfası görünüp şifre isteyecektir. Ha unutmayalım şifremiz (15) şifreyi yukarda ki kod sayfasında 15 yerine başka sayı da verebilirsiniz. TEKRAR YAZ yerine de başka bir mesaj da yazabilirsiniz.
NOT: Şifreyi 3 kez yazıyoruz(her seferinde enterliyoruz) ve 3. Kez 15 yazdığımızda Excel kullanıma hazır hale gelecektir.
*Başlangıca koyduğumuz dosyamızı silmek için ise üzerinde sağ klikleyip SİL yapıyoruz
*Yapamayanlar için yazının altına bir dosya ekliyorum sadece Excel güvenliğini açıp Excel sayfasına yerleştirdiğim GÖNDER butona basmanız yeterli olacaktır. Kendiliğinde başlata yerleşecektir.
Ekler
-------------------------------------------
baslangica_gonder.xls (Yükleme:2)
-------------------------------------------
İmza:"Ne elbiseler gördüm adam yok içinde, ne adamlar gördüm elbise yok üstünde."
Bu mesaja teşekkür edenler: