Schlagwort: aktivieren

Hallo René,

ich komme heute mit einer Frage auf Dich zu.

In einem „unserer“ Excel-Stammtische hast Du uns ein Besispiel gezeigt, wie Du durch ein Klick auf ein Bild „Inhalte aktivieren“ bestätigen kannst (d.h. der Benutzer muss nicht oben auf den orangefarbende Balken klicken , um die Makros der Arbeitsmappe zu aktivieren…).

Leider musste ich feststellen, dass meine Kollegen gerne die Aufforderung „Inhalte aktivieren“ übersehen und so meine Arbeitsmappen mit Makros nicht aktiviert werden. Um das ersichtlich zu machen bzw. zu erzwingen, würde ich gerne Deine Lösung einbauen.

Kannst Du mir dazu bitte Dein Beispiel zukommen lassen?

Das wäre großartig!

Vielen Dank & Grüße

Sebastian

so!

Ich habe ein Bild auf das Blatt gelegt, das ich beim Öffnen per Makro unsichtbar mache.

Werden die Makros nicht aktiviert, bleibt das Bild sichtbar.

Die Erklärung: Manchmal beschweren sich Anwender, dass bestimmte Befehle deaktiviert sind. Es wäre praktisch ein Makro zu haben, das meldet, dass die Makros nicht aktiviert wurden. Dies geht natürlich nicht. Um sicherzustellen, dass die Makros aktiviert wurden, kann in ein Projekt ein Bild eingefügt werden.

Werden die Makros nun aktiviert, wird das Bild gelöscht.

Man kann Shapes einen Namen geben oder mit einer Schleife alle Shapes / Bilder durchlaufen und entweder löschen oder Unsichtbar machen (Visible = False)

Das Bild wird beim Schließen der Arbeitsmappe wieder eingeblendet:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next

ThisWorkbook.Worksheets(„BCM“).Shapes(„Hinweis“).Visible = _

   msoTrue

Hallo René,

super! Klasse! 

Ich danke Dir!

Ich war von Deiner Lösung damals so begeistert, dass die hängen geblieben ist.

Da ich allerdings nicht mit (externen) Kunden arbeite, hatte ich keinen Anwendungsfall – bis ich letzte Woche erfahren durfte, dass meine Kollegen gerne den Balken übersehen und so nicht meine Datei funktioniert.

Ich werde Deine Lösung am Montag einbauen- das Bild wird selbstverständlich geändert.

Tausend Dank nochmal und bis bald.

Liebe Grüße  Sebastian