excel belgeleri salt okunur açılıyor

Katılım
21 Şubat 2006
Mesajlar
32
Excel Vers. ve Dili
excel xp
merhaba arkadaşlar ben aşağıdaki makroyu yazdım. makro benim istediğim şeyleri yapıyor. fakat bu makroda açılan excel sayfalarını bir daha açmaya çalıştığımda salt okunur olarak açılıyor. bunu nasıl düzeltebilirim . çok teşekkürler.

Sub b()
Open "c:/uludağ/no" For Random As #4
Dim s As Integer
Dim h As String

Get 4, 1, s

u = 2
For i = 2 To s
Get 4, i, h
Dim kitap As Excel.Application
Set kitap = New Excel.Application
kitap.Workbooks.Open ("c:\uludağ\" & h & ".xls")
kitap.Visible = False
Sheets(1).Cells(u, 2).Value = kitap.Sheets(9).Cells(2, 2).Value
Sheets(1).Cells(u, 3).Value = kitap.Sheets(9).Cells(2, 3).Value
For w = 1 To 9
If kitap.Sheets(9).Cells(w + 1, 4) = "" Then u = u + w: GoTo 10
Sheets(1).Cells(u + w - 1, 1).Value = kitap.Sheets(9).Cells(2, 1).Value

Sheets(1).Cells(u + w - 1, 4).Value = kitap.Sheets(9).Cells(w + 1, 4)
Sheets(1).Cells(u + w - 1, 5).Value = kitap.Sheets(9).Cells(w + 1, 5)
Sheets(1).Cells(u + w - 1, 6).Value = kitap.Sheets(9).Cells(w + 1, 6)
Sheets(1).Cells(u + w - 1, 7).Value = kitap.Sheets(9).Cells(w + 1, 7)
Sheets(1).Cells(u + w - 1, 8).Value = kitap.Sheets(9).Cells(w + 1, 8)
Sheets(1).Cells(u + w - 1, 9).Value = kitap.Sheets(9).Cells(w + 1, 9)
Sheets(1).Cells(u + w - 1, 10).Value = kitap.Sheets(9).Cells(w + 1, 10)
Next w

10 Next i
Close 4
kitap.Quit
Set kitap = Nothing

End Sub
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kırmızı renkli satırı ilave ederek denermisiniz.

[vb:1:4a1f59711b]kitap.Workbooks(h & ".xls").save
kitap.Quit
Set kitap = Nothing
[/vb:1:4a1f59711b]
 
Katılım
21 Şubat 2006
Mesajlar
32
Excel Vers. ve Dili
excel xp
ya hala aynı sorunu yapıyor. belge salt okunur açılıyor. ancak bilgisayarı kapatıp tekrar açılınca düzeliyor.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Set kitap = New Excel.Application

Yukarıdaki satırı aşağıdaki ile değiştirerek deneyin.

Set kitap = CreateObject("Excel.Application")
 
Katılım
21 Şubat 2006
Mesajlar
32
Excel Vers. ve Dili
excel xp
hiçbir şey değişmedi. birde şöyle bir sorun var bununla ilgili olabilir mi? bu makro çalıştıktan sonra herhangibir excel sayfasını açmaya çalıştığımda bu makroda açılmasını istediğim sayfalardan herhangi biri açılıyor. ama bu sefer normal açılıyor. ama ben sayfayı açmaya çalışırsam bana salt okunuur açılıyor. ilgilendiğin için teşekkürler
 
Katılım
21 Şubat 2006
Mesajlar
32
Excel Vers. ve Dili
excel xp
arkadaşlar anladığım kadarıyla sorun kitap içinde açılan dosyaların bir daha kapanmamasından kaynaklı tabi çok emin değilim. onun için

nextw
kitap.workbooks.close
next i

olarak yeni bir satır ekledim. ama denediğimde bu da sayfaları kapamadı.sayfaları kapamak için başka ne yapabilirim. bir de bulduğum tespitin doğru olma ihtimali var mı? yani bunun üzerine mi yoğunlaşayım.
 
Katılım
21 Şubat 2006
Mesajlar
32
Excel Vers. ve Dili
excel xp
tamam arkadaşlar ben çözümü buldum gerçekten kitabın kapanması gerekiyormuş.
uğraştığınız için öok teşekkürler
 
Üst