<div>
What about lower cases letters?
</div>

<div>
Hi, 
Lower case should stay lower case and upper case should stay upper case. 
Thanks, 
Ben
</div>

<div>
Ben 
 
A little rough and only lightly tested but give this a try. 

<pre><code class="code-10 nolinks" id="code-20-42755809-1">Sub ObfuscateRange()
Dim rngData As Range
Dim arrDataIn As Variant
Dim arrDataOut As Variant
Dim col As Long
Dim row As Long

 Set rngData = Application.InputBox(&quot;Please select range to obfuscate:&quot;, &quot;Select range&quot;, Type:=8)

 If rngData Is Nothing Then
 MsgBox &quot;Cancelled!&quot;
 Exit Sub
 End If

 arrDataIn = rngData.Value
 
 ReDim arrDataOut(1 To UBound(arrDataIn), 1 To UBound(arrDataIn, 2))
 
 For row = 1 To UBound(arrDataIn)
 For col = 1 To UBound(arrDataIn, 2)
 
 arrDataOut(row, col) = ObfuscateText(arrDataIn(row, col))
 
 Next col
 Next row
 
 With rngData
 .Offset(, .Columns.Count + 2).Value = arrDataOut
 End With
 
End Sub

Function ObfuscateText(strIn As Variant) As String
Dim I As Long
Dim strOut As String
Dim ch As String

 For I = 1 To Len(strIn)
 ch = Mid(strIn, I, 1)
 
 Select Case Asc(ch)
 
 Case Asc(&quot;A&quot;) To Asc(&quot;Z&quot;)
 If ch = &quot;Z&quot; Then
 strOut = strOut &amp; &quot;A&quot;
 Else
 strOut = strOut &amp; Chr(Asc(ch) + 1)
 End If
 Case Asc(&quot;a&quot;) To Asc(&quot;z&quot;)
 If ch = &quot;z&quot; Then
 strOut = strOut &amp; &quot;a&quot;
 Else
 strOut = strOut &amp; Chr(Asc(ch) + 1)
 End If
 Case Asc(&quot;0&quot;) To Asc(&quot;9&quot;)
 If ch = &quot;9&quot; Then
 strOut = strOut &amp; &quot;0&quot;
 Else
 strOut = strOut &amp; Chr(Asc(ch) + 1)
 End If
 End Select
 
 Next I
 
 ObfuscateText = strOut
 
End Function
</code></pre>
 
Note, this puts the result in a range to the right of the selected range. 
 
If you want to replace the data in the original range simpy change this, 

<pre><code class="code-1 nolinks" id="code-20-42755809-2"> With rngData
 .Offset(, .Columns.Count + 2).Value = arrDataOut
 End With
</code></pre>
to this. 

<pre><code class="code-1 nolinks" id="code-20-42755809-3">rngData.Value = arrDataOut
</code></pre>
</div>

<div>
Hi Norie, 
 
Not sure how to use it. 
If for example I need only columns 3,4 and 8 (from the left, meaning C, D and H) to get obfuscated, what do I enter/change? 
 
Thanks, 
Ben
</div>

<div>
Ben 
 
If you run the code the you'll be prompted to set the range you want to 'obfuscate'. 
 
As the code currently is it can only work with a contiguous range but that could be changed.
</div>

<div>
Hi, 
 
Looks like almost working. 
Just need the special characters to remain so (ABC - DE) should become (BCD - EF). 
and to keep the first row intact (column names). 
 
Thanks, 
Ben
</div>

<div>
Oops, forgot about special characters. 
 
Try this. 

<pre><code class="code-10 nolinks" id="code-20-42755859-1">Sub ObfuscateRange()
Dim rngData As Range
Dim arrDataIn As Variant
Dim arrDataOut As Variant
Dim col As Long
Dim row As Long

 Set rngData = Application.InputBox(&quot;Please select range to obfuscate:&quot;, &quot;Select range&quot;, Type:=8)

 If rngData Is Nothing Then
 MsgBox &quot;Cancelled!&quot;
 Exit Sub
 End If

 arrDataIn = rngData.Value
 
 ReDim arrDataOut(1 To UBound(arrDataIn), 1 To UBound(arrDataIn, 2))
 
 For row = 2 To UBound(arrDataIn)
 For col = 1 To UBound(arrDataIn, 2)
 
 arrDataOut(row, col) = ObfuscateText(arrDataIn(row, col))
 
 Next col
 Next row
 
 With rngData
 .Offset(, .Columns.Count + 2).Value = arrDataOut
 End With
 
End Sub

Function ObfuscateText(strIn As Variant) As String
Dim I As Long
Dim strOut As String
Dim ch As String

 For I = 1 To Len(strIn)
 ch = Mid(strIn, I, 1)
 
 Select Case Asc(ch)
 
 Case Asc(&quot;A&quot;) To Asc(&quot;Z&quot;)
 If ch = &quot;Z&quot; Then
 strOut = strOut &amp; &quot;A&quot;
 Else
 strOut = strOut &amp; Chr(Asc(ch) + 1)
 End If
 Case Asc(&quot;a&quot;) To Asc(&quot;z&quot;)
 If ch = &quot;z&quot; Then
 strOut = strOut &amp; &quot;a&quot;
 Else
 strOut = strOut &amp; Chr(Asc(ch) + 1)
 End If
 Case Asc(&quot;0&quot;) To Asc(&quot;9&quot;)
 If ch = &quot;9&quot; Then
 strOut = strOut &amp; &quot;0&quot;
 Else
 strOut = strOut &amp; Chr(Asc(ch) + 1)
 End If
 Case Else
 strOut = strOut &amp; ch
 End Select
 
 Next I
 
 ObfuscateText = strOut
 
End Function
</code></pre>
</div>

<div>
Hi, 
This is fine now. 
However it deletes my other columns after the selected range. 
Thanks, 
Ben
</div>

bfuchs

Managing Director

Skylar

<div>
<div class="content wysiwyg-content">
Hi Experts, 
 
I have this question after resolving the following 
 
<a href="https://www.experts-exchange.com/questions/29127578/script-to-convert-all-characters-in-excel-sheet-to-A.html?headerLink=workspace_answered_questions" rel="ugc">https://www.experts-exchange.com/questions/29127578/script-to-convert-all-characters-in-excel-sheet-to-A.html?headerLink=workspace_answered_questions</a> 
 
How to modify the script in order to accomplish 
 
1- Select which columns to get obfuscated. 
2- letters should be changed with a logic, A should become B, B should become C and so on...Z should become A. 
3- Same to numbers, 1 should become 2, 2 should become 3 and so on, then 9 should become 0. 
 
Thanks
</div>
</div>

Hi Experts,

I have this question after resolving the following

https://www.experts-exchange.com/questions/29127578/script-to-convert-all-characters-in-excel-sheet-to-A.html?headerLink=workspace_answered_questions

How to modify the script in order to accomplish

1- Select which columns to get obfuscated.
2- letters should be changed with a logic, A should become B, B should become C and so on...Z should become A.
3- Same to numbers, 1 should become 2, 2 should become 3 and so on, then 9 should become 0.

Thanks

Modify script Excel obfuscation

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.

VB Script

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

A scripting language is a programming language that supports scripts, programs written for a special run-time environment that automate the execution of tasks that could alternatively be executed one-by-one by a human operator. Scripting languages are often interpreted (rather than compiled). Primitives are usually the elementary tasks or API calls, and the language allows them to be combined into more complex programs. Environments that can be automated through scripting include software applications, web pages within a web browser, the shells of operating systems (OS), embedded systems, as well as numerous games. A scripting language can be viewed as a domain-specific language for a particular environment; in the case of scripting an application, this is also known as an extension language.