Excel-TippBlattschutz mit Makro aktivieren

Mit VBA kann der Blattschutz in einer Excel-Arbeitsmappe gesteuert werden. Mit diesen Makro-Befehlen lässt sich für alle Tabellen auf einmal der Blattschutz einschalten und ausschalten.

Mit VBA lässt sich der Blattschutz von Tabellen setzen und aufheben. Die VBA-Methode in Excel zum Setzen des Blattschutzes heißt Worksheet.Protect. Die Methode zum Aufheben des Schutzes heißt Worksheet.Unprotect. Die Protect-Methode wirkt sich nur auf ungeschützte Arbeitsblätter aus. Bei bereits geschützten Arbeitsblättern bleibt die Protect-Methode wirkungslos.

Makro für Blattschutz ohne Kennwort

Mit den folgenden Makros wird der Blattschutz für Tabelle1 ohne Kennwort gesetzt und aufgehoben.

Sub Blattschutz_ein() Sheets("Tabelle1").Protect End Sub Sub Blattschutz_aus() Sheets("Tabelle1").Unprotect End Sub

Makro für Blattschutz mit Kennwort

Der Blattschutz kann auch mit Kennwort gesetzt werden. Das Kennwort lautet im folgenden Beispiel „meinPasswort“.

Sub Blattschutz_ein_mit_Passwort() Sheets("Tabelle1").Protect Password:="meinPasswort" End Sub Sub Blattschutz_aus_mit_Passwort() Sheets("Tabelle1").Unprotect Password:="meinPasswort" End Sub

Blattschutz für alle Tabellen der Arbeitsmappe

Mit einer For-Schleife wird der Blattschutz für alle Tabellen einer Arbeitsmappe eingeschaltet oder aufgehoben. Im folgenden Beispiel wird der Blattschutz ohne Kennwort verwendet.

Sub Blattschutz_ein_alle_Tabellen() For Each sheet In ActiveWorkbook.Worksheets sheet.Protect Next sheet End Sub Sub Blattschutz_aus_alle_Tabellen() For Each sheet In ActiveWorkbook.Worksheets sheet.Unprotect Next sheet End Sub

Dazu im Management-Handbuch

215

Design Thinking Der Design-Thinking-Prozess und seine Phasen

Design Thinking läuft in mehreren Phasen ab. Sie werden nicht nur einmal durchlaufen, sondern mehrfach. Deshalb wird unterschieden zwischen dem Mikro-Prozess mit den einzelnen Design-Thinking-Phasen und dem Makro-Prozess als iterativer, sich wiederholender Prozess.

149

Angebote schreiben Angebotsunterlagen zusammenstellen, abgeben und nachverfolgen

Achten Sie bei allen Ihren Angeboten nicht nur auf den Inhalt, sondern auch auf die äußere Form. Sie zeigt, wie Sie den Kunden wertschätzen und wie professionell Sie den möglichen Kundenauftrag erfüllen. Ob Sie den Kundenauftrag tatsächlich erhalten und was die Gründe sind, wenn Ihr Unternehmen nicht zum Zuge kommt, sollten Sie mit der Angebotsverfolgung ermitteln.

Excel-Tipps

Excel-Tipp Wie Sie den häufigsten Wert mit Excel ermitteln

Mit den Funktionen MODALWERT() oder MODUS.EINF() ermitteln Sie aus einer Liste den häufigsten Wert. Das ist nützlich, wenn Sie beispielsweise Fehlercodes oder Bestellungen auswerten wollen. Dabei gibt es ein paar Besonderheiten zu beachten.

Excel-Tipp Monatsende eines bestimmten Monats berechnen

Der letzte Tag in drei Monaten – welches Datum hat dieser letzte Tag? Und auf welchen Wochentag fällt dann das Monatsende? Diese Frage beantworten Sie mithilfe der Excel-Funktion MONATSENDE().

Excel-Tipp Seltensten Wert in einer Spalte ermitteln

Sie wollen herausfinden, welcher Wert in einer langen Liste am seltensten vorkommt? Mit einer Matrixformel ermitteln Sie den seltensten Wert.

Mehr Excel-Tipps