1004 worksheet sınıfının visible özelliği kurulamıyor

[gerekless]

Merhaba
Çalışma sayfalarının özelliklerini makro içinden değiştirmekle uğraşırken

"1004 worksheet sınıfının visible özelliği kurulamıyor" hatasını almaya başladım ve artık bu sayfaların visible özelliklerini değiştirememeye başladım nasıl düzeltebilirim bilen var mı?

Teşekkürler

 

[Ali]

Yeni bir çalışma kitabı oluşturun sadece Sayfa1 kalsın diğer sayfaların hepsinin silin. Sayfa1 de herhangi bir hücreye bir değer yazın 3,5 , 53 gibi dosyadan farklı kaydet seçeneğini seçin ve Template (*.xlt) olarak kaydedin. sonra template dosyasının içine
Sheets.Add Type:=path\filename kodunu ekleyin.

 

[gerekless]

Þimdi yaptığım olay şu;
Excel Kitabı açılınca bir kullanıcı listesi çıkacak burdaki seçimlere göre kullanıcılara sayfaların görünüp görünmemesine karar vererek sayfaların visible özelliklerini değiştireceğim. Aşağı yukarı bitmek üzereydi fakat noldu anlamadım bu hata meydana geldi umurım şimdi daha iyi anlatabilmişimdir derdimi. Sizin söylediğinizi yapmaya çalıştım fakat bu kodu nereye yazmam gerekiyor bilemedim. Teşkkürler fructose

İstersen dosyayıda ekleyebilirim

 

[Ali]

Excel'de Visual Basic düzenleyicisini açıp (alt+f11) ile

şu kodları yapıştır.

Sub SayfaTesti()
Dim iTemp As Integer
Dim oBook As Workbook
Dim iCounter As Integer

Application.SheetsInNewWorkbook = 1
Set oBook = Application.Workbooks.Add
Application.SheetsInNewWorkbook = iTemp

oBook.Names.Add Name:="tempRange", _
RefersTo:="=Sayfa1!$A$1"
oBook.SaveAs "c:\deneme.xls"
For iCounter = 1 To 275
oBook.Worksheets(1).Copy After:=oBook.Worksheets(1)

If iCounter Mod 100 = 0 Then
oBook.Close SaveChanges:=True
Set oBook = Nothing
Set oBook = Application.Workbooks.Open("c:\deneme.xls")
End If
Next
End Sub

bir dene aynı hataları verecekmi ?

 

[Ali]

Sayın gerekless, siz dosyayıda bir eklermisiniz

 

[gerekless]

Dosyayı ekleyemedim boyutu çok büyük diyor 1.400 kb .
Verdiğiniz örneği aktardım fakat hata düzelmedi. Kitapda dikkatimi çeken şey ne yeni bir sayfa ekleyebiliyorum nesilebiliyorum bunu hem menülerden hemde sayfa isimlerinden yapamıyorum. Galiba bunu sağlayan bir özelliği kapatmışım gibime gidiyor ama böyle bir şeyide hatırlayamıyorum.

Teşekkürler