ne olduğunu anlamadım

[m.gur]

Arkadaşlar;
Yeni bir excel çalışma sayfası açtım VBA girdim ve şaşırdım. Aşağıya eklediğim uygulama ile karşılaştım. Bu uygulama nerden ve nasıl oraya geldi ve ne işe yarıyor bilmiyorum. Çalışmalarımda bir yararı veya zararı varmıdır. Bu konuda beni aydınlatırsanız memnun olurum. Bunu nasıl kaybedebilirim. ünkü yerlemiş bir yelere ki exceli her açtığımda bu kodlar kod sayfasında mevcut. Saygılar.



Sub Auto_Close()
On Error Resume Next

Dim CheckRegistry As String
CheckRegistry = GetSetting(appname:="SigmaPlot", section:="Excel", _
key:="Addin", Default:="0")

If Dir(ThisWorkbook.Path + "\Sigmaplot.xla") = "" And CheckRegistry = 1 Then
SPRemoveMenu
ResetRegistry
End If

End Sub
Sub SPRemoveMenu()
On Error Resume Next

Dim spButtonCheck As CommandBarControl
Dim spCommandbar As CommandBarControl

Set spCommandbar = CommandBars("Worksheet Menu Bar").Controls("Insert")
Set spCommandbar = CommandBars(1).Controls(4) 'add for foreign OS

For Each spButtonCheck In spCommandbar.Controls
If spButtonCheck.Caption = "SigmaPlot Graph" Then
spButtonCheck.Delete
Application.CommandBars("Standard").Controls(20).Delete
Application.CommandBars(3).Controls(20).Delete 'add for foreign OS
Exit Sub
End If
Next

End Sub
Sub ResetRegistry()

Dim CheckRegistry As String

' Check the registry for an entry
CheckRegistry = GetSetting(appname:="SigmaPlot", section:="Excel", _
key:="Addin", Default:="0")

If CheckRegistry = 1 Then
'Set the registry setting for sigmaplot addin
SaveSetting appname:="SigmaPlot", section:="Excel", _
key:="Addin", setting:=0
End If

End Sub

 

[Recep İpek]

Aşağıdaki adımları kontrol edebilirsiniz.

1-Araçlar>>Eklentiler bölümünde işaretli bununla ilgili bir eklenti dosyası var mı?Var ise kaldırın.

2-C:\Documents and Settings\Kendi Kullanıcı Adınız\Application Data\Microsoft\AddIns klasöründe Sigmaplot.xla adlı bir dosya var ise bunu silin.

 

[AS3434]

Sigma plot bildiğim kadarıyla bir grafik çizim programı. Böyle bir dosya açmışsınız ve registry kayıtlarınıza işlenmiş.

If Dir(ThisWorkbook.Path + "\Sigmaplot.xla") = "" And CheckRegistry = 1 Then

Sigmaplot.xla diye bir eklentiniz varmı? Varsa silin ... demeyeyim yine de kodlardan anlayan arkadaşlar bir baksın.

Ama zararsız bir kayıta benziyor.


NOT: sn. ripek cevap yazmış bile.

 

[m.gur]

Sayın ripek;
Dediğiniz yerlere baktım öyle bir uzantı yok. Eklentilerde şunlar işaretli
1.koşullu toplam sihirbazı
2.tollpak VBA çözümleyicisi
3.toolpak çözümleyicisi
Ayrıca C:\Documents and Settings\Kendi Kullanıcı Adınız\Application Data\Microsoft\AddIns klasöründe herhangi bir dosya yok tamamen boş.

 

[AS3434]

Şöyle bir yöntem deneyin

Başlat/Ara/Dosya Yada Klasör/ Tüm Dosya Yada Klasörleri/Dosyadaki Sözcük Yada Deyim
Kutusuna
Sigmaplot
yazın aratın.

 

[m.gur]

Tüm aratmalarıma rağmen öyle bir dosya veya isim bulunamadı. Peki ben ofisi kaldırıp yeniden yüklesem düzelirmi. Diğer dosyalarımada yerleşmişmidir acaba.

 

[m.gur]

Arkadaşlar bu konuda herhangi bir fikri olan yokmu. Kafayı taktım o formüllere.

 

[TAŞELİ70]

Emin değilim ama XLSTART dosyasına tüm excell de kullanılabilir bir makro olarak kaydedilmişi bir kod olabilir. XLSTART yazıp aratırsan sanırım içinde bulabilirsin.kolay gelsin...

 

[m.gur]

Sayın TAŞELİ70;
Ben bu yolu denemiştim daha önce aşağıdaki yerde var olan dosyanın içini silip çıkıyordum ama yine exceli açtığımda o makro orda duruyordu. Şimdi o dosyayı yeniden açtım makroyu sildim ve kaydedip çıktım oldu uyarınız için teşekkürler. Belki başkalarınında başına gelebilir diye açıklamada bulundum. Hepinize teşekkür ederim iyi günler.

C:\Documents and Settings\Kendi Kullanıcı Adınız\Application Data\Microsoft\excel