Archiv nach Kategorien: Office

Excel Arbeitsmappenschutz entfernenMA

Hier ein kleines Stückchen VBA-Code, mit dessen Hilfe man eine Kennwort geschütze Arbeitsmappe “entsperren” kann.

Einfach mit Alt+F11 in den VBA-Editor wechseln, Code einfügen und ausführen.

Sub PasswordBreaker()
  'Author unknown but submitted by brettdj of www.experts-exchange.com
  'http://www.theofficeexperts.com/VBASamples/Excel02.htm

  Dim i As Integer, j As Integer, k As Integer
  Dim l As Integer, m As Integer, n As Integer
  Dim i1 As Integer, i2 As Integer, i3 As Integer
  Dim i4 As Integer, i5 As Integer, 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 "One usable password is " & Chr(i) & Chr(j) & _
          Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
          Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
   ActiveWorkbook.Sheets(1).Select
   Range("a1").FormulaR1C1 = 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

Freies Ribbon Control für .Net

Auf der Suche nach einer Office2007 ähnlichen Ribbon-Bar, bin ich auf viele kommerzielle Anbieter gestoßen, und zum Teil auch auf OpenSource Projekte, welche jedoch nicht ganz ausgereift waren.
Die bisher beste Lösung ist die Implementierung von Jose Manuel Menéndez Poó, der seine Ribbon-Bar auf der CodeProject Webseite zur freien Verfügung stellt. Sie hat zwar zur Design-Time noch einige Problemchen, ist aber für meine (und ich denke auch von den meisten) Zwecken völlig ausreichend und leicht einzusetzen.

Outlook Items Exportieren

Ich hatte die Aufgabe, eine Datenbank mit Outlook Daten zu füttern, welche eine menge Custom Field enthalten haben. Leider beherscht der normale OL Import/Export Wizard lediglich die Standardfelder von Outlook, ebenso der Zugriff per MAPI etc. gibt nur diese Felder zurück.

Auf der Suche nach einer Lösung bin ich über das Outlook Export Tool von CodeTwo gestolpert. Welches alle Datenfelder, auch die selbst erstellten, exportieren kann. Das Tool ist kostenlos und auf der Herstellerseite verfügbar.

Herstellerseite: http://www.codetwo.com/