excel belgeleri salt okunur açılıyor

[odisse]

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]

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]

 

[odisse]

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]

Set kitap = New Excel.Application

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

Set kitap = CreateObject("Excel.Application")

 

[odisse]

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

 

[odisse]

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.

 

[odisse]

tamam arkadaşlar ben çözümü buldum gerçekten kitabın kapanması gerekiyormuş.
uğraştığınız için öok teşekkürler