Makro
23.03.2005 17:49:38
winne
ich habe von "Smart Tools" folgendes Makro instaliert:
Voll automatischer Tabellenschutz per Mausklick
Versionen: Excel 97, 2000, 2002/XP und 2003
Wenn Sie eine Tabelle so einrichten möchten, dass andere Anwender möglicht komfortabel damit arbeiten können, nutzen Sie den Tabellenschutz von Excel. Dabei schützen Sie gezielt die Zellen mit Formeln, so dass das versehentliche Ändern oder Löschen verhindert wird. Für Änderungen freigegeben sind ausschließlich Zellen mit Zahlen.
Leider ist das Schutzkonzept von Excel etwas umständlich, denn nach dem Anwählen des Menüs Extras-Schutz-Blatt schützen werden alle Zellen geschützt, für die der Status "Gesperrt" aktiviert wurde (Dialogfeld Format-Zellen, Register "Schutz"). Standardmäßig ist das aber bei allen Zellen der Fall, so dass Sie zunächst einmal gezielt die Zellen auswählen müssen, die nicht geschützt werden sollen. Dann wählen Sie das Menü Format-Zellen an, wechseln auf das Register "Schutz" und schalten das Kontrollkästchen Gesperrt aus.
Damit Sie sich diesen Aufwand in Zukunft ersparen können, möchten wir Ihnen in diesem Tipp der Woche ein interessantes Makro vorstellen:
Sub procFormelzellenSchuetzen()
Dim rngAktiveZelle As Range
If MsgBox("Möchten Sie alle Formelzellen in diesem " & _
"Blatt schützen? Der Schutz für Zellen mit Zahlen " & _
"wird aufgehoben.", vbQuestion + vbYesNo, _
"Excel Weekly: Formeln schützen") = vbNo Then Exit Sub
On Error GoTo errorHandling
ActiveSheet.Unprotect
For Each rngAktiveZelle In ActiveSheet.UsedRange
If Not rngAktiveZelle.HasFormula And _
Not TypeName(rngAktiveZelle.Value) = "Date" And _
Application.IsNumber(rngAktiveZelle) Then
rngAktiveZelle.Locked = False
rngAktiveZelle.Font.ColorIndex = 5
Else
rngAktiveZelle.Locked = True
rngAktiveZelle.Font.ColorIndex = _
xlColorIndexAutomatic
End If
Next
ActiveSheet.Protect
Exit Sub
errorHandling:
MsgBox "Der folgende Fehler ist aufgetreten: " & _
Err.Number & " - " & Err.Description, vbCritical + _
vbOKOnly, "Excel Weekly: Formelzellen schützen"
End Sub
Nachdem Sie das Makro eingegeben haben, können Sie ein neues Kalkulationsmodell jederzeit per Mausklick so vorbereiten, dass es an andere Anwender weitergegeben werden kann: Der ausgefüllte Bereich der Tabelle wird Zelle für Zelle geprüft. Bei Zellen mit Formeln oder Datumsangaben wird der Schutz aktiviert und bei Zellen mit Zahlen ausgeschaltet. Zusätzlich werden die ungeschützten Zellen in blau formatiert, so dass auf den ersten Blick zu sehen ist, an welchen Stellen Daten verändert werden können.
Sollten Sie bisher keine Erfahrung mit dem Einsatz von Makros in VBA haben, empfehlen wir diese beiden kostenlosen Techinfos:
Excel-Makros Schritt für Schritt erfassen:
http://www.add-in-world.com/katalog/techinfo-makro/
Excel-Makros optimal verwalten:
http://www.add-in-world.com/katalog/xlmakro/
Optimale Makro-Verfügbarkeit mit Add-Ins
Im folgenden zeigen wir Schritt für Schritt, wie Sie zum Erstellen eines Add-Ins mit Ihren eigenen Makros vorgehen müssen. Sie werden sehen, dass es viel einfacher ist, als Sie bisher dachten.
1. Erstellen Sie eine neue Arbeitsmappe und wechseln Sie mit Alt+F11 in den VBA-Editor.
2. Wenn Sie bereits eine PERSONL.XLS mit Makros angelegt haben, verwenden Sie jetzt den Project-Explorer, um diese Module in die neue Arbeitsmappe zu übernehmen. Ziehen Sie die Module einfach bei gedrückter Strg-Taste in das neue VBA-Projekt.
3. Geben Sie die VBA-Makros und benutzerdefinierten Funktionen in ein oder mehrere Module der neuen Arbeitsmappe ein, die Ihnen in Zukunft immer zur Verfügung stehen sollen.
4. Verlassen Sie den VBA-Editor mit Datei-Schließen und zurück zu Microsoft Excel.
5. Wählen Sie in Excel das Menü Datei-Eigenschaften an. Geben Sie dann in das Feld Titel die Zeichenkette ein, die im Add-In-Manager für Ihr neues Add-In erscheinen soll. Zum Beispiel: "VBA-Bibliothek". Unter Kommentare können Sie noch weitere Anmerkungen eingeben, die beim Markieren des entsprechenden Eintrags ebenfalls im Add-In-Manager erscheinen. Bestätigen Sie Ihre Eingaben mit Ok.
6. Klicken Sie nun das Diskettensymbol an und markieren Sie in der Liste Dateityp den Eintrag "Microsoft Excel-Add-In". In den Versionen 2000 und 2002 wechselt Excel daraufhin automatisch in das "Add-Ins"-Verzeichnis, das bei der Installation angelegt wurde. Es empfiehlt sich, diesen Vorschlag anzunehmen, weil es sich dabei auch um das Verzeichnis handelt, das der Add-In-Manager beim Hinzufügen neuer Add-Ins als erstes anzeigt. In Excel 97 wird zur Speicherung das aktuelle Verzeichnis angeboten. Wechseln Sie auf Wunsch in ein anderes Verzeichnis, das Sie speziell für Add-Ins verwenden möchten.
7. Geben Sie den gewünschten Dateinamen für das Add-In ein und bestätigen Sie mit Speichern.
8. Excel erstellt daraufhin das Add-In aus der aktuellen Arbeitsmappe. Die im ersten Schritt angelegte Datei bleibt erhalten, kann an dieser Stelle aber ohne Speicherung geschlossen werden, weil Sie sie nicht mehr benötigen.
9. Wählen Sie das Menü Extras-Add-Ins-Manager an.
10. Klicken Sie auf Durchsuchen und wählen Sie das soeben erstellte Add-In aus. Excel zeigt es daraufhin in der Liste der verfügbaren Add-Ins im Add-In-Manager mit einem aktivierten Kontrollkästchen an. Beenden Sie den Vorgang mit Ok.
11. Sollten Sie bisher eine persönliche Makro-Arbeitsmappe eingesetzt haben, deren Module nun in das Add-In übernommen wurden, löschen oder verschieben Sie die Datei PERSONL.XLS aus dem XLSTART-Verzeichnis, damit sie nicht mehr automatisch geladen wird.
Alle Makros aus dem Add-In stehen Ihnen in Zukunft automatisch direkt nach dem Start von Excel in allen Arbeitsmappen zur Verfügung. Das gleiche gilt für die benutzerdefinierten Funktionen, bei denen Sie außerdem auf den vorangestellten Dateinamen verzichten können. Weitere nützliche Tipps und Hinweise zu Add-Ins:
· Wenn Sie das Add-In um weitere Makros erweitern oder vorhandene Makros bearbeiten möchten, wechseln Sie einfach in den VBA-Editor und greifen über den Project-Explorer auf die Module zu. Verwenden Sie dann das Disketten-Symbol im Editor, um die Änderungen zu sichern.
· Sie können das Add-In jederzeit aus dem Speicher entfernen, indem Sie den Add-In-Manager aufrufen und das Kontrollkästchen vor dem entsprechenden Eintrag entfernen. Bitte beachten Sie dabei, dass in diesem Fall das Add-In auch beim nächsten Start von Excel nicht mehr geladen wird. Dazu müssen Sie das Kontrollkästchen im Add-In-Manager erst wieder einschalten.
· Für Funktionen und Makros, die Sie nur selten benötigen, können Sie weitere Add-Ins erstellen, die Sie standardmäßig im Add-In-Manager nicht aktivieren und nur bei Bedarf hinzuschalten.
Nun erhalte ich folgende Fehlermeldung: " 1004 - Die Locked-Eigenschaft des
Rande - Objektes kann nicht festgelegt werden ".
Kann ich das Makro benutzen ?
wenn nicht ,was muß ich änder.
Für eure Hinweise
Vielen Dank
und
Frohe Ostern
winne