Ultimate VBA Security Part#2 | Change All Component Name With Obfuscator Code,
This is the first video of series of VBA Protection, in this video I try to show you Change All Component Name with Obfuscator Code using VBA and you can learn how to make list of controls name from userform in sheet. If you like to know more please watch the video carefully.
Change All Component Name with Obfuscator Code, VBA Security Vid# 2
#vba
#excel
#MicrosoftExcel
Help me to make a dream of 10,000 subscribe at https://bit.ly/2O2MeMt
Some Link for You*
Inventory Management System in Excel (Ready to Use): • Excel's Fully Automatic Inventory Man...
Menu system in excel userform (Step by Step): • Menu system in excel userform (Step b...
Minimize and maximize in excel userform (Advance): • Minimize and maximize in excel userfo...
Unbreakable VBA Protection, Unviewable VBA Project: • Unbreakable VBA Protection, Unviewabl...
VBA Security Vid#1: • Ultimate VBA Security Part # 1 | VBA ...
VBA Security Vid#3: • Ultimate VBA Security Part # 3 | Prog...
**Here is the supporting code
Sub GetUserformNameAndObfuscator()
Dim vbc As VBIDE.VBComponent
Dim r, c, u, x
Dim obCode As String
Dim UserformName As Object
Dim CTRL
c = 1
r = 2
u = 2
x = 2
For Each vbc In ThisWorkbook.VBProject.VBComponents
If vbc.Type = vbext_ct_MSForm Then
obCode = "i" & LCase(Obfuscator_Code)
Sheets("UCName").Cells(1, c) = vbc.Name
Sheets("UCName").Cells(1, c + 1) = obCode
Sheets("UCList").Cells(u, 1) = vbc.Name
Sheets("UCList").Cells(u, 2) = obCode
Sheets("UserformName").Cells(x, 1) = vbc.Name
Sheets("UserformName").Cells(x, 2) = obCode
u = u + 1
Set UserformName = UserForms.Add(vbc.Name)
For Each CTRL In UserformName.Controls
If CTRL.Name Like "txt" & "*" Then
Sheets("UCName").Cells(r, c) = CTRL.Name
Sheets("UCName").Cells(r, c + 1) = StrReverse(LCase(CTRL.Name))
Sheets("UCList").Cells(u, 1) = CTRL.Name
Sheets("UCList").Cells(u, 2) = StrReverse(LCase(CTRL.Name))
u = u + 1
r = r + 1
End If
Next CTRL
x = x + 1
r = 2
c = c + 2
End If
Next vbc
End Sub
Sub changeControlsNames()
On Error Resume Next
Dim UName As String
Dim OName As String
Dim NName As String
Dim r, c, u
r = 2
u = 1
Do While Cells(1, u) “Youtube not allow less than and greater than sign” ""
UName = Cells(1, u).Value
Do While Cells(r, u) “Youtube not allow less than and greater than sign” ""
OName = Cells(r, u).Value
NName = Cells(r, u + 1).Value
Application.VBE.ActiveVBProject.VBComponents(UName).Designer.Controls(OName).Name = NName
r = r + 1
Loop
r = 2
u = u + 2
Loop
MsgBox "Done"
End Sub
**
Please click the “SUBSCRIBE” button and ring the “Bell” icon also. You must find something different in every tutorial video on every day. Do not forget to like this video
Disclaimer:
This channel dose not promotes or encourages any illegal activities. All contents provided by this channel are meant for educational purpose only. I am not responsible for anything happens to your system or device while following my procedure. Thank you so much…. #ExcelTutorial #SupportPlus #Excel #Computer