Office: Spalten passwortbezogen ein und ausblenden!?

Liebe Forumkollegen,

nach 1 Stunde rumexperimentieren und zahlreichen Googlesuchen, bitte ich um Eure Hilfe.

Problem ist folgendes:

Spalte B bis E sollen mit einem Makro ausgeblendet werden und anschließend mit einem anderen Makro nur per Passworteingabe wieder einblendbar sein!

Zu beachten ist dabei:
Das Blatt soll nicht gesperrt werden.
Die Spalten sollen nicht ohne Passwort einzublenden sein!

Vielen Dank im Voraus für Eure Hilfe,
bin allerdings mit meinem Latein am Ende

Grüße,Filimanix

 

Uih... Auf den ersten Blick schließt sich das gegenseitig aus. Wenn das Blatt nicht gesperrt ist, kann jeder die Spalten wieder einblenden bzw. in ihrer Breite anpassen.

Wenn das Ausblenden per Makro passiert, also schon ein bißchen was mit VBA gemacht werden soll, könnte es vielleicht einen Ansatz über die Ereignisse geben. Dann könnte man beim Ändern der Spaltenbreiten (der betroffenen Spalten) *schwupps* die Spaltenbreiten einfach fix wieder auf 0 setzen.

Ich weiß jetzt bloß nicht, ob es ein passendes Ereignis dafür gibt, in das man sich einklinken könnte. worksheet.change wird auf alle Fälle nicht durch das Verändern der Spaltenbreiten aktiviert. worksheet.calculate würde noch vor .change aufgerufen werden, aber auch das wird hier nicht aktiviert.

Hmmm... gibt's eine Funktion, die die Spaltenbreite einer Zelle als Rückgabewert hat? Dann könnte ich mir folgende "Krücke" vorstellen: Wenn Spalte C ausgeblendet bleiben soll: In C65536 dann die Funktion wie "=SPALTENBREITE()" einsetzen. Ändert sich die Spaltenbreite, wird wegen dieser Funktion das .calculate ausgelöst, in dem wiederum... Hmmm... Solange das nicht in einer Endlos-Schleife endet...

Ah, ja, ich glaub, ich hab da was: Funktion "ZELLE" gibt einiges zurück. Mit =ZELLE("Breite";C65536) vielleicht... Ah, Mist... Das Ding löst anscheinend nicht das .calculate aus. Von daher ist's auch Essig.

Und Versuche in der Richtung haben eh einen Haken: Wenn jemand in den Optionen das Neuberechnen auf manuell umgestellt hat, funktioniert das alles sowieso nicht.

Ich denke, über einen Blattschutz, ggf. per VBA aktiviert und wieder aufgehoben, wirst Du kaum herumkommen. Mir fällt so auf Anhieb zumindest nichts anderes ein.

Gruß, Michael