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