köprüyle dosya açılınca köprünün çalıştığı dosya kapansın

[Eser Gökay]

arkadaslar iyi aksamlar...


20 sayfalık bir çalışma kitabının her sayfasında farklı kitaplara başvuran köprüler var. herhangi bir köprüyü açınca o dosyanın kaydedilmeden kapanmasını sağlayabilir miyiz?

örneğin a.xls bizim ana menumuz. bu dosyada b.xls dosyasını açan köprü çalıştığında b dosyası açılsın ama a dosyası da kaydedilmeden kapansın.
bunun bir yolu var mıdır?

 

[Ferhat Pazarçevirdi]

Merhabalar,

Aşağıdaki kodu, Hyperlink'in (Köprü'nün) bulunduğu worksheet'in kod sayfasına kopyalayınız.

Siz isterseniz, belirli bir hücreye veya belirli bir çalışma kitabı şartına bağlayabilirsiniz.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim Cevap As VbMsgBoxResult
Cevap = MsgBox("Bu kitap kapatılacak. Emin misiniz?", vbYesNo, "UYARI")
If Cevap = vbYes Then: ThisWorkbook.Close 0
End Sub

 

[Eser Gökay]

Sayın fpc tesekkur ediyorum.