herşey gizlensin

[nedimce]

Ana sayfa dışında bütün sayfalar gizlensin istenilen köprü ile gelsin ve çıkışta ana sayfa ile kapansın...

bunu nasıl yapabilirim...

çalışma kitabını komple olarak yolluyorum yardımcı olursanız sevinirim.

şimdiden teşekkürler...

 

[EXTRANET]

Private Sub Workbook_BeforeClose(Cancel As Boolean)

' Sayfa1 sayfasını görünür yapıyoruz
Sheets("ana sayfa").Visible = True

' Sayfa1 haricinde hepsini gizliyoruz
For Each Worksheet In ActiveWorkbook.Worksheets

If Worksheet.Name <> "ana sayfa" Then
Worksheet.Visible = False
End If

Next


End Sub



ana sayfaya eklermisiniz

bende hata verdi

 

[nedimce]

olmuyor hata veriyor (

belkide ben beceremiyorum

sizler yapıp bitirip yollayabilirmisiniz...

 

[nedimce]

olmuyor sonunda hep hata veriyor sayfaları gizledim ne olur bi yardım alayım , heralde ben beceremiyorum sizler makroyu çalıştırırsanız sevinirim...

 

[EXTRANET]

mrb
yeni bir execl dosyasına kodu uyguladım..alışıyor.

senin dosya açılırken hata veriyor.çok büyük hepsini açmıyor bende

 

[nedimce]

Hiçbirşey anlamadım kodu bile uygulamak bulamadım,boşver benim işim zor..

bu işte acemiyim çünkü..

 

[EXTRANET]

kendi dosyanda ana sayfayı ters tuşla woorkbook sayfasına kopyala

Private Sub Workbook_BeforeClose(Cancel As Boolean)

' Sayfa1 sayfasını görünür yapıyoruz
Sheets("ana sayfa").Visible = True

' Sayfa1 haricinde hepsini gizliyoruz
For Each Worksheet In ActiveWorkbook.Worksheets

If Worksheet.Name <> "ana sayfa" Then
Worksheet.Visible = False
End If

Next

End Sub

 

[nedimce]

Söylediğini yapıyorum ama olmuyor demek sorun bende acemiyim bu kitabıda deneme yanılma yönteleri ve yardımlar ile bu hale getirdim.Benim için bu bile bi başarı yinede ilgine çok teşekkürler...