pc format sonrası excel de hata mesajı

[pamukcu]

Daha önce çalışan makrolu excel çalışmalrımı;
Pc format atıktan sonra şöyle bi hata mesajı almaya başladım,:agla:
"Could not load on object because it is not available on this machine"

 

[fedeal]

alttaki linki inceleyin,saygılar.
http://www.excel.web.tr/showthread.php?t=31046&highlight=object+machine

 

[pamukcu]

sayın fedeal öneriniz içn teşekkür edrim ama olmadı.
sanrım hata şurada Calendar1 de
Buda vba kodu
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const WS_BORDER = &H800000
Private Const GWL_STYLE = (-16)
Private Sub UserForm_Activate()
Dim lngFormHwnd As Long, lngFormStyle As Long
Me.BorderStyle = fmBorderStyleNone
If Application.Version < 9 Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngFormStyle = GetWindowLong(lngFormHwnd, GWL_STYLE)
lngFormStyle = lngFormStyle And Not WS_BORDER
SetWindowLong lngFormHwnd, GWL_STYLE, lngFormStyle
DrawMenuBar lngFormHwnd
End Sub
Private Sub UserForm_Initialize()
Calendar1.Value = Date
End Sub
Private Sub Calendar1_Click()
Me.Hide
End Sub

 

[fedeal]

alt+f11 yapın açılan sayfada tools-references-açılan sekmede MISSING'le başlayan tüm kutulardaki onayı kaldırın.

konuyla ilgili inceleyebilirsiniz.