şifre açma hatası

[xtanerx]

böyle bir makro şifre açabilir mi?

Sub sifreac()
Dim a As Integer
For a = 1 To 10000
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\Documents and Settings\usak0018\Belgelerim\YTL.xls", Password:=["a"]
Next a
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=5511

 

[xtanerx]

bu kod her şifreyi açmıyor.ban for next kullanarak mesela 1 den 10000 e kadar tüm şifreleri denemek istiyorum

 

[Levent Menteşoğlu]

O istediğiniz mümkün değil.

 

[danersin]

Password:=a
diye deneyin.