Gizlenen Dosyanın bulunması

Katılım
6 Temmuz 2006
Mesajlar
172
Excel Vers. ve Dili
Windows7 Türkçe
Sayın Üstadlarımız,
Pencere menüsünden gizle komutuyla kapattığım dosyayı bulamıyorum!
uygunsuz kapatıldı ve aynı dosyayı açtığımda eski haliyle açılıyor halbuki yaptığım değişiklikleri kaydetmiştim. yardımlarınız için şimdiden teşekkür ederim.
 
Katılım
26 Kasım 2005
Mesajlar
396
Excel Vers. ve Dili
Office 365
Sub GÖSTER()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
Next
End Sub

bu kodu kullanırsan tüm sayfaların gözükür.

pardon sorunu yanlış anladım herhalde.
 
Katılım
6 Temmuz 2006
Mesajlar
172
Excel Vers. ve Dili
Windows7 Türkçe
Sub GÖSTER()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Visible = True
Next
End Sub

bu kodu kullanırsan tüm sayfaların gözükür.

pardon sorunu yanlış anladım herhalde.
Sayın Parsley2,
bulunmayan dosyaya bu kod nasıl uygulanabilir ki? Zaten yanlış anladığınızı söylüyorsunuz! yine de teşekkürler. Yokmu acaba bunun bir çaresi?
 

Mahmut Bayram

Özel Üye
Katılım
25 Haziran 2005
Mesajlar
1,778
Excel Vers. ve Dili
2016 Excel Tr
İşinizi görebilir belki.
Ekteki dosyayı inceler misiniz.
 
Katılım
26 Kasım 2005
Mesajlar
396
Excel Vers. ve Dili
Office 365
Private Sub CommandButton1_Click()

Sayın sami şunu yapmalısınız gizlenen dosyanızı önceden nereye saklamışsanız oradı adını bulun ve açın , ancak dosyanız gizli olduğu için boş gri ekran gelecek ve visual basıc penceresinde bir commandbutton'a aşağıdaki kodu yazın, dosyanızın ismi ne ise aşağıdaki koda doğru şekilde ismini yazınız. dosyanız açılacaktır.

Windows("(Dosyanızın ismi ne ise onu yazın.XLS").Visible = True

End Sub
sanırım bu kod işini görür . sayın Sami
 
Son düzenleme:
Katılım
6 Temmuz 2006
Mesajlar
172
Excel Vers. ve Dili
Windows7 Türkçe
Private Sub CommandButton1_Click()

Sayın sami şunu yapmalısınız gizlenen dosyanızı önceden nereye saklamışsanız oradı adını bulun ve açın , ancak dosyanız gizli olduğu için boş gri ekran gelecek ve visual basıc penceresinde bir commandbutton'a aşağıdaki kodu yazın, dosyanızın ismi ne ise aşağıdaki koda doğru şekilde ismini yazınız. dosyanız açılacaktır.

Windows("(Dosyanızın ismi ne ise onu yazın.XLS").Visible = True

End Sub
sanırım bu kod işini görür . sayın Sami
Sayın parsley2,
Size tekrar teşekkür ederim. Ancak sanırım ben derdimi anlatamadım. Biraz daha açıklık getiriyim, zip'li arşivdeki dosyayı kopyasını alarak açtım üzerinde çalıştım ve de defalarca kaydettim, üzerinde çalışırken pencere menüsünde gizle komutuna bastım! daha sonra her nasıl olduysa dosyayı uygunsuz bir şekilde kapattım. Daha sonra aynı dosyayı açtığımda eski haliye açıldı. Yani beni üzerinde çalıştığım dosya yok oldu. Dosyayı bulabilsem pencere menüsünde göster komutuyla çağırabilirim. Kısaca orijinal dosya duruyor, kopyası da duruyor ama son şekliyle değil !.. Onca yaptığım değişiklik ve iki günlük emeğim yok oldu.
 
Üst