sekmeleri geri getiremiyorum

[aptillah]

arkadaşlar ben sekmleri görünmez hale getirdim komut ile fakat şimdi eski haline alamıyorum bi yardım edebilirmisiniz.

Private Sub Workbook_Open()
For Each syf In Sheets
If syf.Name <> "AnaSayfa" Then syf.Visible = xlVeryHidden
Next
End Sub

yazdıgığım komut bu dosyayı yükleyedim 1 mb uzun eğer çok gerekliyse başka bi yerden link gnderebilirim şimdiden teşekkürler...

 

[leumruk]

Merhaba,
Aşağıdaki kodu kullanın.

Sub Ac()
For Each syf In Sheets
If syf.Name <> "AnaSayfa" Then syf.Visible = True
Next
End Sub

 

[Ömer]

Merhaba,

xlVeryHidden

yerine

True

yazınız.

 

[aptillah]

Merhaba,
Aşağıdaki kodu kullanın.

Sub Ac()
For Each syf In Sheets
If syf.Name <> "AnaSayfa" Then syf.Visible = True
Next
End Sub

çok teşekkür ederim üstadım....