excel şifre makrosu

alig
18-02-2009, 16:41   |  #1  
OP Taze Üye
Teşekkür Sayısı: 0
2 mesaj
Kayıt Tarihi:Kayıt: Ara 2008

Çalışma kitabına, yine sizlerden aldığım kodlarla deneme yaparken, aşağıdaki kodu yazdım, "şifreyi buraya yaz" kısmına rasgele harfler yazıp, yanlışlıkla makroyu kopyaladım, şimdi dosyayı açamıyorum.Biraz idiotça bir hareket yaptım ama,oldu bir kere, yardımcı olursanız sevinirim, teşekkürler.
KOD:
Sub auto_open()  Static sayac As Integer  Do  If sayac = 3 Then  ThisWorkbook.Close False  Else  If InputBox("Şifreyi girin") = "şifreyi buraya yaz" Then  GoTo devam  Else  sayac = sayac + 1  End If  End If  Loop  devam:  End Sub

Son Düzenleme: Serkan Karadaş ~ 19 Şubat 2009 00:06
cudi_evindar
26-02-2009, 11:46   |  #2  
Yıllanmış Üye
Teşekkür Sayısı: 0
100 mesaj
Kayıt Tarihi:Kayıt: Mar 2008

SoruSoruSoru

kArdeş keşke sorununu daha açıklayıcı anlaşılır yazsaydın.ben hiç bişi anlamadım sorunundan..