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

[alpay1]

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.

 

[alpi]

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

 

[alpay1]

Sayın alpi,
Kodlarınızı denedim "Compile error in hidden module:ThisWorkBook" hatası verdi.

 

[mith]

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..

 

[alpay1]

Yine aynı hatayı verdi.

 

[alpi]

Makro Güvenlik düzeyini düşük olarak ayarladınız mı?

Araçlar/Makro/Güvenlik sekmelerini tıklatarak bunu yapabilirsiniz

 

[tevfikdemir]

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

 

[alpi]

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