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 Autpen()

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(msoControlPopup, , , , 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]

Excel 2002 autoopen Excel 2003 de açılmıyor..

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.