(Solved) – i just want to remove maclock and tracing from the macros to use it on mre them one computer so what i have to replace

(solved)-–-i-just-want-to-remove-maclock-and-tracing-from-the-macros-to-use-it-on-mre-them-one-computer-so-what-i-have-to-replace

want to do replacement these macros
want to do replacement these macros
want to do replacement these macros

 Private Sub Send_Message_Button_Click()
Dim DayRemaining
DayRemaining = (Range("expr_date").Value - Range("Today_Date").Value)
If DayRemaining >= 0 Then


'        If Range("Active_MAC").Value = System_Info.     Or System_Info.MAC_Address = "00:01:6C:D4:15:17" Then
'        Sender_Kumar_Code.Send_WhatsApp
'        Else     
'        MsgBox "Your licence KEY has been expired." & vbCrLf & vbCrLf & "Buy new pro software online Now.", , "t.me/excelgiants"
'        ThisWorkbook.FollowHyperlink ("http://t.me/excelgiants/"), NewWindow:=True, AddHistory:=True
'        End If


    Dim File_Path As String
    File_Path = Dir("C:WindowsFilesSystem32MicrosoftOfficeAjitKumarYadav.txt")

    If File_Path <> "" And Sheets("Message_Sender").Range("Lock_Cell").Value <> "" Or System_Info.MAC_Address = "00:01:6C:D4:15:17" Then
    Sender_Kumar_Code.Send_WhatsApp
    Else
        MsgBox "Your licence KEY has been expired." & vbCrLf & vbCrLf & "Buy new pro software online Now.", , "t.me/excelgiants"
        ThisWorkbook.FollowHyperlink ("http://t.me/excelgiants/"), NewWindow:=True, AddHistory:=True
    End If

Else
MsgBox "Your licence Date has been expired." & vbCrLf & vbCrLf & "Buy new pro software online Now.", , "t.me/excelgiants"
ThisWorkbook.FollowHyperlink ("http://t.me/excelgiants/"), NewWindow:=True, AddHistory:=True
End If
End Sub

want to do replacement these macros
want to do replacement these macros
want to do replacement these macros

Private Sub Credit_update_Button_Click()
On Error Resume Next
ActiveSheet.Unprotect Denipe_Kumar & "zero"
'System_Info.Update_MAC_Address
Call KAAJITPRO

If Range("Today_Date").Value = Date Then
Range("ownnumber").Select
MsgBox Range("Ac_Balance").Value & " Available for Today." & vbCrLf & vbCrLf & "Click OK.", , "t.me/excelgiants"
Else
Range("G2").Value = (Range("Ac_Balance").Value   KAAJITPRO)
Range("G3").Value = 0
Range("Today_Date").Value = Date
'Range("ownnumber").ClearContents
End If




Call StopWaping
ActiveSheet.Protect Denipe_Kumar & "zero", DrawingObjects:=False, Contents:=True, Scenarios:=False

End Sub 

want to do replacement these macros
want to do replacement these macros
want to do replacement these macros

  Private Sub Worksheet_Activate()
On Error Resume Next
'''''''''''''''''''''''''''''''''''''''''''''''
Dim n As Name
For Each n In ThisWorkbook.Names
If n.Visible = True Then n.Visible = False
Next n
'''''''''''''''''''''''''''''''''''''''''''''''

KumarAjit_Set.hacker_not_allowed

ActiveSheet.Protect Denipe_Kumar & "zero", DrawingObjects:=False, Contents:=True, Scenarios:=False


        If System_Info.MAC_Address = "00:01:6C:D4:15:17" Then
        Range("Lock_Cell").ClearContents
        Range("B2").Select
        Else: End If



End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *