atpvbaen.xls ve solver.xlan hakkında

[anemis]

Merhabalar;

Tesadüfi olarak fark ettim. Markro ile alakam, forumdan üstadların yardımcı olduğu kodları alıp sayfalara eklemekten ibaret. Bu nedenle ne oldukları ile ilgili hiçbir fikrim yok.

Geliştirici sekmesindeki Visual Basic simgesine tıkladığımda açılan uygulamada atpvbaen.xls (ATPVBAEN.XLAM) ve Solver (SOLVER.XLAM) isminde iki şey görünmekte. Bazı işlerim için excel in çözücü eklentisini kullanıyorum (bu solver oluyor galiba) ancak diğerinin ne olduğunu hiç bilmiyorum.
Her iki makro da şifrelenmiş durumda ve ben şifrelerini bilmiyorum tabii ki.

Şifresiz olan FUNCRES.XLAM ın da ne olduğunu bilmiyorum açıkçası. Belki sizlerde yoktur diye bu VBAProject in içindeki modülllerden RivvonX_Code adlı kodu buraya da paylaşayım.

Option Explicit

'Get Culture
Private Function GetUICultureTag() As String
    Dim shTemp As Worksheet
    Dim sCulture As String
    Dim sSheetName As String
    
    sCulture = Application.International(xlUICultureTag)
    sSheetName = "RES_" + sCulture
    
    On Error Resume Next
    Set shTemp = ThisWorkbook.Worksheets(sSheetName)
    On Error GoTo 0
    If shTemp Is Nothing Then sSheetName = GetFallbackTag(sCulture)
    
    GetUICultureTag = sSheetName
End Function

'Entry point for RibbonX button click
Sub ShowATPDialog(control As IRibbonControl)
    Application.Run ("fDialog")
End Sub

'Callback for RibbonX button label
Sub GetATPLabel(control As IRibbonControl, ByRef label)
    label = ThisWorkbook.Sheets(GetUICultureTag()).Range("RibbonCommand").Value
End Sub

'Callback for screentip
Public Sub GetATPScreenTip(control As IRibbonControl, ByRef label)
    label = ThisWorkbook.Sheets(GetUICultureTag()).Range("ScreenTip").Value
End Sub

'Callback for Super Tip
Public Sub GetATPSuperTip(control As IRibbonControl, ByRef label)
    label = ThisWorkbook.Sheets(GetUICultureTag()).Range("SuperTip").Value
End Sub

Public Sub GetGroupName(control As IRibbonControl, ByRef label)
    label = ThisWorkbook.Sheets(GetUICultureTag()).Range("GroupName").Value
End Sub

'Check for Fallback Languages
Public Function GetFallbackTag(szCulture As String) As String
    If szCulture = "ca-ES" Or szCulture = "eu-ES" Or szCulture = "gl-ES" Then
        GetFallbackTag = "RES_es-ES"
    ElseIf szCulture = "nn-NO" Then
        GetFallbackTag = "RES_nb-NO"
    Else
        GetFallbackTag = "RES_en-US"
    End If
End Function

Bu kod yada diğerleri ne işlevdedir? Virüs falan değildir değil mi?

Birde resim kayıt ettim onu da ekleyeyim;

Bilgi verecek arkadaşlara şimdiden çok teşekkür ederim.

 

[cems]

Bunlar bir excelin doğal yapısında bulunan dosyalar ve excelin kendi çalışması ile çalışmasında fonksiyon oluşturucu yardımcılar.

Virüs ile alakası yok , onlarsız dosya dosya olmaktan çıkacak donacaktr. İlgilenmeyin

 

[anemis]

Sayın Cems, çok teşekkür ederim. Bilgisizlik zor

Şifreli falan olunca biraz işkillendim açıkçası. İnternetten yüzlerce excel dosyası indirip inceliyorum sonuçta. Birisinde belki kötü amaçlı bir kod vardır diye korkmuştum. İçimi rahatlattınız teşekkürler.

 

[Merhum İdris SERDAR]

.

Bir de buraya bakın.

http://www.excelgurusu.com/atpvbaen-xls-atpvbaen-xlam-solver-solver-xlam-ve-funcres-xlam-nedir/


.

 

[anemis]

Çok teşekkür ederim İdris Bey; faydalı oldu. Emeklerinize sağlık.

 

[bkk]

Merhabalar konuyu araştırırken denk geldim. Bende çözücü kullanıyorum ancak bulamadık hatası almaktayım nasıl çözebilirim

 

[blizzard]

Merhabalar konuyu araştırırken denk geldim. Bende çözücü kullanıyorum ancak bulamadık hatası almaktayım nasıl çözebilirim

Çözücü den kastın VBA şifre çözmek mi? Eğer oysa daha şimdi o işlem için bir yol denedim ve çalıştı.

 

[Korhan Ayhan]

ÇÖZÜCÜ'den kasıt şifre çözmek değildir.

Excelin DATA (VERİ) menüsünden SOLVER (ÇÖZÜCÜ) seçeneği ifade edilmektedir.

 

[bkk]

SOLVER (ÇÖZÜCÜ) seçeneklerini tekrar uyguladım ve sorunum çözüldü, teşekkür ederim