Hay veces en que necesitamos contar las palabras que contiene un texto. Esto por ejemplo en Word es muy simple pues la función viene incluida en el software. Pero en Excel esta función de contar palabras no existe.  La macro a continuación permite contar el número de palabras en una determinada hoja de Excel. Espero les sirva:

******************************************************************** 

Sub CountarPalabras()
    Dim Cuenta As Long
    Dim Rng As Range
    Dim S As String
    Dim N As Long
    For Each Rng In ActiveSheet.UsedRange.Cells
        S = Application.WorksheetFunction.Trim(Rng.Text)
        N = 0
        If S <> vbNullString Then
            N = Len(S) - Len(Replace(S, " ", "")) + 1
        End If
        Cuenta = Cuenta + N
    Next Rng
    MsgBox "Número de Palabras: " & Format(Cuenta, "#,##0")
End Sub 

******************************************************************** 

Para más información sobre servicios de optimización mediante el uso de macros en Excel (VBA), por favor contáctenos

Tiempo atrás necesitaba desbloquear una hoja en Excel, ya que era un archivo al cual el dueño había olvidado el password de protección. Por lo tanto cada vez que deseaba modificar algo en esa hoja en particular me aparecía este mensaje:

En general el bloquear hojas es muy útil para evitar que alguien accidentalmente cambié fórmulas u otro tipo de datos.
Pero en este caso en particular era absolutamente necesario descifrar la clave para poder modificar fórmulas.

Fue así como Googleando encontré la siguiente macro que descifra cualquier clave en una hoja de una planilla Excel. Este algoritmo utiliza “fuerza bruta” para descifrar la clave (es decir intenta con todas la combinaciones de letras/números posible).

******************************************************************* 

Sub QuiebraPassword()

Dim i, j, k As Integer
Dim l, m, n As Integer
Dim i1, i2, i3 As Integer
Dim i4, i5, i6 As Integer
On Error Resume Next
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
ActiveSheet.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 ActiveSheet.ProtectContents = False Then
MsgBox "Una possible password es " & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

********************************************************************

Esta macro la deben colocar en el editor de VBA del Excel. Luego se puede ejecutar directamente sobre la hoja protegida. La idea es que luego que obtengan la clave la cambien por una que no se les olvide.

Para más información sobre servicios de optimización mediante el uso de macros en Excel (VBA), por favor contáctenos