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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.