Write the Code

Open the workbook for which we want to sort the sheets and press Alt + F11 to open the Visual Basic Editor, and select Insert > Module to insert a module. Copy and paste the following code in module just created.

Sub SortSheets()
Dim lCount As Long, lCounted As Long
Dim lShtLast As Long
Dim lReply As Long

lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _
& "To sort Worksheets descending select 'No'", vbYesNoCancel, _
"Sheet Sort")
If lReply = vbCancel Then Exit Sub

lShtLast = Sheets.Count

If lReply = vbYes Then 'Sort ascending
    For lCount = 1 To lShtLast
        For lCount2 = lCount To lShtLast
            If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
                Sheets(lCount2).Move Before:=Sheets(lCount)
            End If
        Next lCount2
    Next lCount
Else 'Sort descending
    For lCount = 1 To lShtLast
        For lCount2 = lCount To lShtLast
            If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
                Sheets(lCount2).Move Before:=Sheets(lCount)
            End If
        Next lCount2
    Next lCount
End If

End Sub

Now close your Visual Basic Editor and return to your worksheet and save it.

Running the Code

To do this, press Alt + F8, select the macro named “SortSheets”, and press Run. You will be asked the way you sort your sheets either in ascending (A – Z) or descending order (Z – A).

This VB Code works with all version of Excel.

How to unprotect

1. First open your protected excel file
2. Launch the Visual Basic Editor
3. Copy and paste the following VB Code

'----------------------------------------------------------------
Option Explicit 

Public Sub AllInternalPasswords()
' Breaks worksheet and workbook structure passwords. Bob McCormick
' probably originator of base code algorithm modified for coverage
' of workbook structure / windows passwords and for multiple passwords
'
' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
' Modified 2003-Apr-04 by JEM: All msgs to constants, and
' eliminate one Exit Sub (Version 1.1.1)
' Reveals hashed passwords NOT original passwords 

Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"Adapted from Bob McCormick base code by" & _
"Norman Harker and JE McGimpsey"
Const HEADER As String = "AllInternalPasswords User Message"
Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
Const REPBACK As String = DBLSPACE & "Please report failure " & _
"to the microsoft.public.excel.programming newsgroup."
Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
"now be free of all password protection, so make sure you:" & _
DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
DBLSPACE & "Also, remember that the password was " & _
"put there for a reason. Don't stuff up crucial formulas " & _
"or data." & DBLSPACE & "Access and use of some data " & _
"may be an offense. If in doubt, don't."
Const MSGNOPWORDS1 As String = "There were no passwords on " & _
"sheets, or workbook structure or windows." & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = "There was no protection to " & _
"workbook structure or windows." & DBLSPACE & _
"Proceeding to unprotect sheets." & AUTHORS & VERSION
Const MSGTAKETIME As String = "After pressing OK button this " & _
"will take some time." & DBLSPACE & "Amount of time " & _
"depends on how many different passwords, the " & _
"passwords, and your computer's specification." & DBLSPACE & _
"Just be patient! Make me a coffee!" & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
"Structure or Windows Password set." & DBLSPACE & _
"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
"Note it down for potential future use in other workbooks by " & _
"the same person who set this password." & DBLSPACE & _
"Now to check and clear other passwords." & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
"password set." & DBLSPACE & "The password found was: " & _
DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
"future use in other workbooks by same person who " & _
"set this password." & DBLSPACE & "Now to check and clear " & _
"other passwords." & AUTHORS & VERSION
Const MSGONLYONE As String = "Only structure / windows " & _
"protected with the password that was just found." & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean 

Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do 'dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub
'----------------------------------------------------------------

4. Then press Run button, all internal password will be removed.

If you really don’t know how to do or lazy to copy and cut, you can download the workbook attached below. The workbook is hidden, and has an attached toolbar with a button to start the macro. Activate the workbook you want to unlock and click the button. The code is unlocked so you may examine and modify it as needed. Note: This macro cannot unlock password to open.

Download here

DISCLAIMER: Please note that breaking password protection MAY violate laws or regulations in your jurisdiction.

The SUM function in Microsoft Excel doesn’t work when you try to sum a range that contains an error value such as #N/A. This example shows you how to sum the values in a range named “Data” that contains errors:

=SUM(IF(ISERROR(Data),"",Data))

The formula creates a new array that contains the original values minus any error values. Starting from the inner functions and working outward, the ISERROR function searches the cell range (Data) for errors. The IF function returns one value if a condition you specify evaluates to TRUE, and another value if it evaluates to FALSE. In this case, it returns empty strings (“”) for all error values because they evaluate to TRUE, and the remaining values from the range (Data again) because they evaluate to FALSE, meaning that they don’t contain error values. The SUM function then calculates the total for the filtered array.

Count the number of error values in a range

This example is similar to the previous formula, but it returns the number of error values in a range named “Data” instead of filtering them out:

=SUM(IF(ISERROR(Data),1,0))

This formula creates an array of 1s for the cells that contain errors, and 0s for the cells that don’t. You can simplify the formula and achieve the same result by removing the third argument for the IF function, like so:

=SUM(IF(ISERROR(Data),1))

If you don’t specify the argument, the function returns FALSE if a cell does not contain an error value. You can simplify the formula even more:

=SUM(IF(ISERROR(Data)*1))

This version works because TRUE*1=1 and FALSE*1=0.

Sum values based on conditions

You often need to sum values based on conditions. For example, this array formula sums just the positive integers in a range named “Sales”:

=SUM(IF(Sales>0,Sales))

The IF function creates an array of positive values and false values. The SUM function essentially ignores the false values because 0+0=0. The cell range that you use in this formula can consist of any number of rows and columns.

You can also sum values that meet more than one condition. For example, this array formula calculates values greater than zero and less than or equal to five:

=SUM((Sales>0)*(Sales< =5)*(Sales))

Keep in mind that this formula returns an error if the range contains one or more non-numeric cells.

You can also create array formulas that use a type of OR condition. For example, you can sum values that are less than 5 and greater than 15:

=SUM(IF((Sales<5)+(Sales>15),Sales))

The IF function finds all values smaller than 5 and greater than 15 and then passes those values to the SUM function.

Important You can’t use the AND and OR functions in array formulas directly. Why not? Those functions return a single result, either TRUE or FALSE, and array functions require arrays of results. You can work around the problem by using the logic shown in the previous formula. In other words, you perform math operations such as addition or multiplication on values that meet the OR or AND condition.

Compute an average that excludes zeros

This example shows you how to remove zeros from a range when you need to average the values in that range. The formula uses a data range named “Sales”:

=AVERAGE(IF(Sales<>0,Sales))

The IF function creates an array of values that do not equal zero and then passes those values to the AVERAGE function.

Count the number of differences between two ranges of cells

This array formula compares the values in two ranges of cells named “MyData” and “YourData” and returns the number of differences between the two. If the contents of the two ranges are identical, the formula returns 0. To use this formula, the cell ranges must be the same size and of the same dimension:

=SUM(IF(MyData=YourData,0,1))

The formula creates a new array of the same size as the ranges that you’re comparing. The IF function fills the array with 0s and 1s (0s for mismatches and 1s for identical cells). The SUM function then returns the sum of the values in the array.

You can simplify the formula like this:

=SUM(1*(MyData<>YourData))

Like the formula that counts error values in a range, this formula works because TRUE*1=1, and FALSE*1=0.

Find the location of the maximum value in a range

This array formula returns the row number of the maximum value in a single-column range named “Data”:

=MIN(IF(Data=MAX(Data),ROW(Data),""))

The IF function creates a new array that corresponds to the “Data” range. If a corresponding cell contains the maximum value in the range, the array contains the row number. Otherwise, the array contains an empty string (“”). The MIN function uses the new array as its second argument and returns the smallest value, which corresponds to the row number of the maximum value in “Data.” If the “Data” range contains identical maximum values, the formula returns the row of the first value.

If you want to return the actual cell address of a maximum value, use this formula:

=ADDRESS(MIN(IF(Data=MAX(Data),ROW(Data),"")),COLUMN(Data))

Source: http://office.microsoft.com/en-us/excel/HA010872271033.aspx

In the following article I explain a formula that extracts numbers from strings in the following types of situations:

• When alphabetic and number characters are clustered together, such as abc123 or 678sfr.
• When alphabetic and number characters are not clustered together, such as abc15tni.

Problem

How to extract the numeric portion of an alphanumeric string. For example: If cell A1 contains the string “abc123″, return the value 123 in cell B1.

Solution

The underlying logic here is to search for and return the first number in the alphanumeric string, and then return only the numbers that follow.

Algorithm

The solution involves creating formulas to accomplish the following tasks:

1. Break the alphanumeric string into separate characters.
2. Determine whether there is a number in the decomposed string.
3. Determine the position of the number in the alphanumeric string.
4. Count the numbers in the alphanumeric string.

We will consider each of these tasks separately, and then integrate the formulas to achieve the final result.

Break the alphanumeric string into separate characters

Use the MID function here. MID returns a specific number of characters from a text string, starting at the position you specify, based on the number of characters you specify. The syntax of the function is:

MID(text,start_num,num_chars)

• Text The text string containing the characters you want to extract.
• Start_num The position of the first character you want to extract in text. The first character in text has start_num 1, and so on.
• Num_chars Specifies the number of characters you want MID to return from text.

For our example, the formula is:

=MID(A1,ROW($1:$9),1)

This formula decomposes the alphanumeric string and puts the characters — virtually — into different rows of the worksheet. For example, for alphanumeric string abc123, all the 6 characters would be segregated.

Note The number 9 may be suitably increased to any higher number to accommodate larger strings. In this example, the maximum string length is 9.

It is worthwhile to note that when the string is decomposed, “1″, “2″ and “3″ are treated as text — not as numbers. To convert the numbers stored as text into numbers, multiply the formula by 1. For example:

=1*MID(A1,ROW($1:$9),1)

Determine whether there is a number in the decomposed string

Here we employ the ISNUMBER function, which determines whether there is a number in the alphanumeric string. The formula now becomes:

=ISNUMBER(1*MID(A1,ROW($1:$9),1))

If there is a number in the string, the result is TRUE, otherwise it is FALSE.

Determine the position of the number in the alphanumeric string

Now we determine the position of the number by locating a TRUE value in the result of the decomposed string mentioned in the paragraph above. We employ the MATCH function here. The revised formula now becomes:

=MATCH(TRUE,ISNUMBER(1*MID(A1,ROW($1:$9),1)),0)

Important You must enter this formula as an array by pressing CTRL+SHIFT+ENTER.

If the string is abc123, this formula will yield 4 — that being the position of the first numeric character in the alphanumeric string.

Count the numbers in the alphanumeric string

The task now is to count the numbers in the string, to determine the characters to be returned after the first number in the alphanumeric string.

As mentioned above, the numbers stored as text in the alphanumeric string can be converted into numbers by multiplying them by 1. For example, =1*MID(A1,ROW($1:$9),1)

After the numbers stored as text are converted to numbers, it is possible to count them by using the COUNT function. The numbers can be counted by entering the following formula:

=COUNT(1*MID(A1,ROW($1:$9),1))

Integrate the formulas

We now employ the MID function to integrate the various parts of the formula, as shown in the following example.

=MID(A1,MATCH(TRUE,ISNUMBER(1*MID(A1,ROW($1:$9),1)),0),COUNT(1*MID(A1,ROW($1:$9),1)))

In basic terms, the problem can now be stated as: Determine the position of the first number in the alphanumeric string (in cell A1). Return that number and the numbers that follow.

To convert the resulting characters to numbers, multiply the formula by 1. While this is not strictly required, it should be done if you are going to perform mathematical operations on the result. This is the final formula to be entered in cell B1:

=1*MID(A1,MATCH(TRUE,ISNUMBER(1*MID(A1,ROW($1:$9),1)),0),COUNT(1*MID(A1,ROW($1:$9),1)))

Important You must enter these formulas as arrays by pressing CTRL+SHIFT+ENTER.

More examples

To test the formula further, enter the data in the following picture into cells A1:A7 of a blank worksheet.

Enter the formula in cell B1, and then use AutoFill copy the formula into cells B2:B7. (Remember to press CTRL+SHIFT+ENTER.)

It is worth mentioning here that if the string is yur09875reew and if you use the formula that is multiplied by 1, the result in column B will be 9875 and not 09875. Since 0*1=0, the 0 is ignored and the result returned is 9875. If you want the result to be 09875, do not multiply the complete formula by 1.

Conditional formatting in Excel allows for three conditions. However, by setting up conditions correctly — from least to most restrictive — you can really allow for four conditions, when the default formatting of the cell is considered. For example, say you want to add color to your data like so:

This can be achieved by doing the following:

1. Select your range of cells.
2. Click Conditional Formatting on the Format menu.
3. Under Condition 1, in the first two boxes, choose Cell Value Is and less than or equal to. Then type the value -25 in the third box.
4. Now click the Format button, choose a red fill color from the Patterns tab, and then click OK.
5. Click Add. Under Condition 2, choose between in the second box, type the values to 0 and -25 in the third and fourth boxes, and then choose a yellow fill format.
6. Click Add again. Under Condition 3, choose between in the second box, type the values to 0 and 25 in the third and fourth boxes, and then choose a green fill format.
7. Click OK to close the Conditional Formatting dialog box.
8. Finally, while your range is still highlighted, choose a black fill from the color palette.

Your range is now pseudo-conditionally formatted to cover all four cases.