Anamenu.xls Açık Değilse Diğer Workbook Açılmasın

Katılım
22 Ekim 2004
Mesajlar
178
Değerli Excel Dostları,
Benim "C" de cari klasörü içinde Anamenu.xls ve buradan açılıp işlem yapılabilen diğer "xls" Çalışma Kitapları var.Ben diğer Çalışma Kitaplarının bağımsız olarak açılmasını istemiyorum.
Eğer Anamenu.xls aktif değilse diğerlerinin açılmasını önlemek mümkünmüdür?
Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
aşağıdaki kodu ThisWorkbook kod sayfasına kopyalayınız

Private Sub Workbook_Open()
dim i as byte
dim AnaMenüAçık as boolean
for i 1 to workbooks.count
if workbook(i)name = "Anamenü.xls" then
anamenüAçık=true
exit sub
else
anamenüAçık=false
end if
next

if anamenüAçık=false then
msgbox "Lütfen önce AnaMenü.xls dosyasını açınız..."
thisworkbook.close
end if

End Sub
 
Katılım
22 Ekim 2004
Mesajlar
178
Sayın alpi,
Kodlarınızı denedim "Compile error in hidden module:ThisWorkBook" hatası verdi.
 
Katılım
5 Şubat 2005
Mesajlar
114
Altın Üyelik Bitiş Tarihi
03-03-2022
Merhabalar,
Bide şunu denermisin: ThisWorkBook kod sayfası yerine makro sayfasına adını "auto_open" yaparak kontrolü açılışta yapmasını sağla. Böylece dosyalar açılmadan kapanmış olur..
Kolay gelsin..
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Makro Güvenlik düzeyini düşük olarak ayarladınız mı?

Araçlar/Makro/Güvenlik sekmelerini tıklatarak bunu yapabilirsiniz
 
Katılım
23 Mart 2006
Mesajlar
303
Excel Vers. ve Dili
Microsoft Office 2003
Excel 2003
Kodları aşağıdaki gibi değiştirirseniz çalışıyor.Sayın alpi kodları yazarken "=" ifadesini ve "." işaretini yazmayı unutmuş.Sayın alpi affınıza sığınarak kodunuzu düzeltip tekrar gönderiyorum.

Saygılar
Private Sub Workbook_Open()
Dim i As Byte
Dim AnaMenüAçık As Boolean
For i = 1 To Workbooks.Count
If Workbooks(i).Name = "Anamenü.xls" Then
AnaMenüAçık = True
Exit Sub
Else
AnaMenüAçık = False
End If
Next

If AnaMenüAçık = False Then
MsgBox "Lütfen önce AnaMenü.xls dosyasını açınız..."
ThisWorkbook.Close
End If

End Sub
 
Katılım
22 Haziran 2005
Mesajlar
998
Excel Vers. ve Dili
Office 2007 Türkçe
Sayın tevfikdemir yardımınız için Teşekkür ederim
İnternet kafe den bağlandığım için burada office programı yok dolayısıyla kodları deneme imkanım da yok.

Bende defalarca kodumu okuduğum halde bir türlü hatayı bulamadım.

Tekrar teşekkürler
 
Üst