tek makro ile kitap kapatma açma

[ugur111]

Merhabalar ;

Konu ile ilgili aramalarım sonuçsuz kaldı . Ben mevcut iki kitaptan birini kapatıp tekrar açılması ile ilgili bir yardım istiyorum . Aşağıdaki şekilde kitap kapatılıyor , ancak açılamıyor .

Private Sub Workbook_Open()

Workbooks("A PROGRAMI.xls").Close True
Workbooks("A PROGRAMI.xls").Open True


End Sub

Kolay gelsin

 

[hamitcan]

Kitabın kayıtlı bulunduğu yolu yazmalısınız.
Örneğin:Workbooks("c:\A PROGRAMI.xls").Open True

 

[naturus]

salt okunur olarak çalıştığımız kitabın güncellenebilmesi için makro ile verileri güncellemesini veya otomatik kapanıp açılmasını sağlayabilir miyiz?

 

[hamitcan]

Sub nn()
Workbooks.Open "C:\deneme\kk.xls", , ReadOnly
End Sub

Bu şekilde bir deneyin.

 

[naturus]

hocam netde sizinkine benzer şöyle bir kod buldum

Kod:
Application.DisplayAlerts = False
Workbooks.Open ThisWorkbook.Path & "\" & ThisWorkbook.Name, , True
Application.DisplayAlerts = True


Bu çalışıyor fakat sıkıntım, tekrar açıldığında "Tasarım Modu" açık olarak geliyor.
Dolayısı ile el ile kapatmadan makrolar çalışmıyor.
Run mode da açılmasını sağlayamadım. Makro ile açmanın yolunu bulamadım zaten makro çalışmadığı için açılırken dizayn mode açılmaması gerekiyor.

 

[hamitcan]

Dosya açıldığında makroları etkinleştirmiyor musunuz ?

 

[naturus]

Makrolar otomatik etkinleşmede, CTRL+ÜSTKAR+T tuşuna bağlamıştım. Sanırım ondan kaynaklanıyor. CTRL+m ye bağlayınca sorun kalmadı. Gerçi makroya bağlanmadan T li kombinasyon bir etki göstermiyor ama neyse şimdilik işim halloldu. Tşkler.