Makro aneh

  1. 2 bulan yang lalu

    Dear all.

    Mohon bantuannya script di bawah
    Kenapa script aneh

    Function declar(Optional silent As Boolean = False)

    Dim v1 As Object

    If Not silent = kenclenk_dablex("E10E9A6B051128A9", 2, False) Then

    Set v1 = ThisWorkbook.Worksheets(kenclenk_dablex("4917659124B4B90BF27C08EB55D25600", 2, False))

    v1.ComboBox1.clear

    v1.ComboBox1.AddItem kenclenk_dablex("B1D83FAA85F059C25B65C2240A6EC8B3", 2, False)

    v1.ComboBox1.AddItem kenclenk_dablex("86190D0C244EB4A31855ABCE0190CF91", 2, False)

    End If

    End Function

    Private Sub Auto_Open()

    Dim v1 As Object

    Set v1 = ThisWorkbook.Worksheets(kenclenk_dablex("4917659124B4B90BF27C08EB55D25600", 2, False))

    v1.Activate

    declar (proses(authorize))

    End Sub

    Function se1()

    Dim v1 As Object

    Set v1 = ThisWorkbook.Worksheets(kenclenk_dablex("4917659124B4B90BF27C08EB55D25600", 2, False))

    If Not v1.ComboBox1 = vbNullString Then

    Form2.ComboBox1.clear

    Form2.ComboBox1.AddItem kenclenk_dablex("066F020FD9654847", 2, False)

    Form2.ComboBox1.AddItem kenclenk_dablex("17E2A517C6A2DBA3", 2, False)

    Form2.Caption = kenclenk_dablex("5E74AB7829458DD4A2AB3DCBE6132EDC", 2, False)

    Form2.Show

    End If

    End Function

    Function cream1()

    Dim v1 As Object, v2 As Object

    Set v1 = ThisWorkbook.Worksheets(kenclenk_dablex("4917659124B4B90BF27C08EB55D25600", 2, False))

    Set v2 = ThisWorkbook.Worksheets(kenclenk_dablex("463B5725D69DBB16", 2, False))

    If proses(authorize) >= kenclenk_dablex("56B506E16CFF3C43", 2, False) Then

    v2.Visible = kenclenk_dablex("56B506E16CFF3C43", 2, False)

    v1.Visible = kenclenk_dablex("5DF256C84594C9C2", 2, False)

    v2.Activate

    MsgBox kenclenk_dablex("6C9C13449AF02A89C91D12B709C68282", 2, False) & nama, vbCritical, kenclenk_dablex("5E74AB7829458DD4BB26A4B44A7820D188A79515BD72950840CC986391511109C39E450FC41A99E0", 2, False)

    End If

    End Function

  2. Masdad

    Apr 22 Terverifikasi Demak + 1.803 Poin

    Mau buat fungsi apa?

  3. Mas @Masdad

    Mau liat proses makronya mas
    Tetapi filenya kyknya d enkrip
    Bisa d ubah lagi gak ya

  4. Masdad

    Apr 30 Terverifikasi Demak + 1.803 Poin

    Saya belum pernah lihat kode VBA yang encrypt, jadi gak punya gambarannya.

 

atau Mendaftar untuk ikut berdiskusi!