- Katılım
- 15 Ağustos 2009
- Mesajlar
- 127
- Excel Vers. ve Dili
- Office 2010 Tr
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Workbook_Open()
Dim s As Workbook
For Each s In Workbooks
If s.Name <> "Örnek-1.xls" Then
s.Close
End If
Next s
Set s = Nothing
End Sub
Dosyanın aslını gönderebilir misiniz ?
Gönderdiğim dosyayı denediniz mi ?
Merhaba,
Dosyanızda Excelin "Pencere" özelliği kullanılmıştır.
2003 ve öncesi sürümlerde; menü çubuğundaki Pencere/Yeni Pencere kullanarak açılır.
2003 ve sonrası sürümlerde; Görünüm menüsünden / Yeni Pencere seçilerek açılır.
Bu pencereleri kapatmak için excel sayfasındaki sağ üst köşedeki büyük çarpı(dosyayı kapatma çarpısı) nın altındaki küçük olan pencere çarpılarına basarak fazladan açılan pencereleri kapatabilirsiniz. Bu işlemden sonra dosyayı kaydettiğinizde istediğiniz olur.