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

Se ha detectado un ataque que consiste en explotar una vulnerabilidad de Excel con el fin que un usuario desconocido pueda tomar control de un computador de forma remota y por lo tanto causar daños al correr código malicioso en el.

Para que el computador se infecte con el código malicioso, se requiere que un usuario abra un archivo adjunto que ha sido enviado via email. Este archivo adjunto consiste en un archivo Excel aparentemente normal.
Por lo tanto la recomendación es no abrir ningún archivo adjunto si es que el remitente del email es un desconocido o si es que reciben un archivo Excel de alguien que normalmente no les envía este tipo de documentos vía email.

Microsoft informó que está trabajando en un parche de seguridad para corregir esta vulnerabilidad. Mientras tanto ellos obviamente sugieren que se evite abrir archivos Excel de fuentes que no sean confiables.

Los softwares afectados incluyen: Microsoft Office 2000, 2002, 2003 y 2007 junto con Microsoft Office 2004 y 2008 para Mac. La vulnerabilidad, afecta los ficheros con el formato .xls; los nuevos .xlsx no sufren del problema.

Link: Microsoft Security Advisory (968272)

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