Auto open la off.2003'ü yüklediðimde çalýþmýyor

[acd]

Merhaba

Bir evvelki sürümde kullandýðým auto open la ana menüye menü ekleme kodum off.2003'ü yüklediðimde çalýþmýyor..




Sub Auto_Open()

Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarControl

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowInsertingColumns:=True, AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:=True




'Ana menüye menü ekler
Set cbMenu = Application.CommandBars(1).Controls.Add(msoControl Popup, , , , True)
With cbMenu
.Caption = "O T E K S"
.Width = 50
.Tag = "MyTag"
.BeginGroup = False
End With


'................................................. ...........
If cbMenu Is Nothing Then Exit Sub

'Cari Hesap Kartý
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
.Caption = "Cari Hesap AÇ"
End With


With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kart AÇ ALICI..."
.OnAction = "firmaekle_al"
End With


With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "Kart AÇ SATICI..."
.OnAction = "firmaekle_sat"
End With


With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "SONUÇ..."
.OnAction = "sonuç_aç"
End With


With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "BANKALAR..."
.OnAction = "BANKALAR_AÇ"
End With


With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "ÇEKLER.."
.OnAction = "cekler"
End With


With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "ENVANTER... "
.OnAction = "envanter"
End With


With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "LÝSTELER... "
.OnAction = "listeler"
End With


With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "FÝYAT LÝSTESÝ... "
.OnAction = "fiyat_list"
End With



With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "AÇ ENVANTER... "
.OnAction = "AÇ_ENVANTER"
End With


With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "KASA..."
.OnAction = "AÇ_KASA"
End With


End Sub



Hata mesajý:
compile error.cant find prject or library..
Eksik bilgi verdiðim için özür dilerim..

Teþekkürler

[Hüseyin]

2002 de sorunsuz çalýþtý.
2003 kullanan arkadaþlar, bilgi?

[Serpily]

office xp türkçe kullanýyorum. Bende de çalýþtý.

[donhuan]

Merhabalar.Excel 2003 Ýng. kullanýyorum sorunsuz çalýþtý.Hiç bir hata vermeden Ýstediðiniz menüleri ekledi.Menülerdeki komutlar çalýþmýyor ama onun dýþýnda protection kodu ve menü ekleme kodlarý çalþýtý.
Kolay gelsin :arkadas:

[INSMUH]

Merhaba arkadaþlar;
Excel 2002 de hazýrladýðým kitap Excel 2003'de hata veriyor, Hata mesajý "Compile error in hidden modüle: This Workbook"
Workbook daki kodlar aþaðýda..
Private Sub Workbook_Open()
'açýlýþta çalýþma kitabýnýn kaç defa açýldýðýný gösterir'
Application.Visible = False 'excel i gizler'
Dim Counter As Long, LastOpen As String, Msg As String

Counter = GetSetting("XYZ Corp", "Budget", "Count", 0)
LastOpen = GetSetting("XYZ Corp", "Budget", "Opened", "")

Msg = "Çalýþma kitabý " & Counter & " kere açýldý."
Msg = Msg & vbCrLf & "En son açýlýþ: " & LastOpen
MsgBox Msg, vbInformation, ThisWorkbook.Name

Counter = Counter + 1
LastOpen = Date & " " & Time
SaveSetting "XYZ Corp", "Budget", "Count", Counter
SaveSetting "XYZ Corp", "Budget", "Opened", LastOpen
Application.Visible = True
End Sub
Kapanýþtada "Compile error: Can't find project or library" mesajýndan sonra module2 açýlýyor. module2 kodlarýda aþaðýdaki gibi..
Sub FormAc()
Peta.Show
End Sub
Sub Auto_Open()
Application.Visible = False
ÞÝFRE.Show
End Sub

Sub auto_close()
kullanici = Application.UserName
saat = Format(Now, "hh:mm:ss")
tarih = Format(Date, "d mmmm yyyy dddd")
sor = MsgBox(" GÃ?RÜÞMEK ÜZERE " & kullanici & Chr(10) & Chr(10) & _
"WWW.petamuhendislik.COM / +90 312 418 75 60" & Chr(10) & Chr(10) & _
"Tarih : " & tarih & Chr(10) & Chr(10) _
& "Saat : " & saat & Chr(10) & Chr(10) _
& "Peta A.Þ. Ýyi Çalýþmalar Diler." & Chr(10) & Chr(10) & _
"Dosyanýzýn kaydedilmesini istiyor musunuz?", 4, "")
If sor = vbYes Then
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
End If
End Sub

[INSMUH]

Calendar Control 8.0 yükledikten sonra sorunum çözüldü..
Teþekkürler.