Schaltflächen trotz Blattschutz aktivieren

Guten Tag, zusammen!
Ich habe ein Formular in einem Registerblatt entworfen. Es ist ohne eine so genannte UserForm angelegt, also nur mit Blattschutz: Die Zellen, in die der Benutzer etwas eingeben kann, haben nicht mehr die Eigenschaft "Gesperrt", so dass nach Aktivieren des Blattschutzes Eingaben nur in diese wenigen Zellen möglich sind.
Auf einem weiteren Registerblatt erfolgt die Auswertung der von dem Benutzer gemachten Angaben in einer Tabelle, für die ich vorsichtshalber 2000 Zeilen vorgesehen habe. Damit eine Druckausgabe nur des Relevanten möglich wird, habe ich zur Druckvorbereitung eine Schaltfläche angelegt und dieser Schaltfläche (mit Hilfe des Makrorekorders - für mehr reichen meine Kenntnisse nicht) das Setzen eines Autofilters zugewiesen. Darüber, dass es so weit funktioniert, freute ich mich schon, aber offenbar zu früh: Wenn ich jetzt den Blattschutz aktiviere, kann ich die Schaltfläche nicht mehr benutzen. Ich erhalte die Fehlermeldung "Dieser Befehl kann in einer geschützten Tabelle nicht verwendet werden." Es folgt ein Hinweis, wie der Blattschutz aufzuheben sei.
Ich würde gern mit Hilfe des Blattschutzes vermeiden, dass die Benutzer des Formulars ungewollt "kostbare" Formeln zerstören und ihnen andererseits die Vorbereitung zum Drucken per Schaltfläche ermöglichen.
Weiß jemand Rat?
Schon im voraus vielen Dank für Eure Mühe.
Viele Grüße
Frank

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Druckvorbereitung() ' Druckvorbereitung Makro ' Makro am 19.04.2004 aufgezeichnet ' modifiziert am 21.04.2004 ' Tastenkombination: Strg+d ActiveSheet.Unprotect Range("A10").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd Columns("A:A").Hidden = True ActiveWindow.SelectedSheets.PrintPreview Columns("A:A").Hidden = False Range("A10").AutoFilter ActiveSheet.Protect End Sub

Hallo, Matthias G!
Ich habe mich einfach mal getraut (als Anfänger hat man ja immer Angst, wesentliche Dinge zu zerstören) und die in Deiner ersten Antwort enthaltenen Hinweise
ActiveSheet.Unprotect
...
ActiveSheet.Protect
vor und hinter den Code gesetzt. Offensichtlich funktioniert es. Ich bin äußerst positiv überrascht!
Du hast es übrigens richtig verstanden: Zunächst sollte der Autofilter gesetzt werden, damit die überflüssigen Zeilen, die keine Daten enthalten (im Zweifel der weitaus größte Teil der Tabelle, weil sie "auf Vorrat" angelegt ist), für die Druckausgabe verschwinden. Anschließend sollte die Spalte A, die das "Maß aller Dinge" für die Unterscheidung von "relevant" und "überflüssig" ist (denn sie enthält nur dort Ziffern, wo etwas in den Spalten B bis ... steht) ausgeblendet werden. Dann führt das Makro in die Seitenansicht, damit der Benutzer vor dem Drucken sieht, was dabei rauskommt. Hier ließ ich die Aufzeichnung enden, damit vor dem Drucken evtl. noch Änderungen der Einstellungen vorgenommen werden können.
Die Idee war, dass der Benutzer dann das Drucken des Registerblatts selbst veranlasst.
Anschließend stellte ich eine weitere Schaltfläche mit dem Makro "Druckvorbereitung rückgängig" zur Verfügung. Der Code lautet wie folgt:


Sub DruckvorbereitungRückgängig()
' DruckvorbereitungRückgängig Makro
' Makro am 19.04.2004 aufgezeichnet
' Tastenkombination: Strg+r
Cells.Select
Selection.EntireColumn.Hidden = False
Selection.AutoFilter
Range("B10").Select
End Sub

So bleibt es dem Benutzer überlassen, ob er drucken will oder nicht oder ob er die Datei sofort wieder löscht (bzw. gar nicht erst speichert), denn der Inhalt der Datei ist äußerst kurzlebig: Es handelt sich um eine Datei zur Berechnung von Zinsrückständen mit gleitenden Zinssätzen auf der Grundlage des Basiszinssatzes nach § 247 BGB.
Vermute ich richtig, dass ich auch den zweiten Code mit "ActiveSheet.Unprotect" und "ActiveSheet.Protect" ergänzen muss?
Nochmals vielen Dank!
Viele Grüße
Frank

Sub Druckvorbereitung() ' Druckvorbereitung Makro ' Makro am 19.04.2004 aufgezeichnet ' Tastenkombination: Strg+d Range("A10").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd Columns("A:A").Select Selection.EntireColumn.Hidden = True ActiveWindow.SelectedSheets.PrintPreview End Sub

Beliebteste Forumthreads (12 Monate)

Schaltflächen trotz Blattschutz aktivieren

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schaltflächen trotz Blattschutz aktivieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread