Blattschutz aufheben bei "Suche"

In der Datei sind mehrere Arbeitsblätter. Jedes Blatt wird geschützte durch

Sub BlattStart()



    ActiveSheet.Unprotect

    ActiveSheet.Protect Password:="", UserInterfaceOnly:=True

    ActiveSheet.EnableOutlining = True

    ActiveSheet.EnableAutoFilter = True 'für Autofilter

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True

    

End Sub

Beim Öffnen eines Arbeitsblattes wird Blattstart() automatisch aufgerufen.

Im Rahmen meines Workflows markiere ich die Tabs von 2 Arbeitsblättern und führe dann eine Suche aus (Strg - f), diese starte ich auf Blatt 1. Wenn der gesuchte Begriff sich auf Blatt 2 befindet, erhalte ich regelmäßig die Fehlermeldung, dass ActiveSheet.Unprotect nicht durchgeführt werden konnte und das Makro geht in den debug-Modus.

Ich suche nach einer Lösung, dass entweder automatisch, wenn ich die Suchfunktion mit STRG-f starte oder nach manueller Eingabe z.B. eines booleanschen Schalters die Suche über die markierten Blätter ausführen kann, ohne dass es zur Fehlermeldung kommt.

Hi
mal ne Frage: wie machst du es eigentlich, dass diese Info erscheint?
ich sehe da nichts im Code, wie funktioniert das?

was du mal probieren könntest:
verlagere mal die Aktion des aktivieren des Blattschutzes in das Workbook-Open-event und setzte da den Blattschutz für jedes Blatt.
das sollte eigentlich ausreichen und dann muss das Makro nicht laufen, wenn über die Suchfunktion das Blatt gewechselt wird.
wichtig scheint ja hier das UserInterface-Only=True zu sein, damit die Makros ungestört agieren können ohne den Blattschutz aufheben zu müssen.
Das muss meines Wissens nach nur einmalig nach dem Öffnen der Datei ausgeführt werden.
also lösche die Activate-Makros für jedes Tabellenblatt und schreibe ins Workbook-Open-Event (Modul DieseArbeitsmappe)

Private Sub Workbook_Open()

dim sh as Worksheet

for each sh in thisworkbook.worksheets

    sh.Unprotect

    sh.Protect Password:="", UserInterfaceOnly:=True

    sh.EnableOutlining = True

    sh.EnableAutoFilter = True 'für Autofilter

    sh.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True

Next

End Sub

Gruß Daniel

Forumthread: Blattschutz aufheben bei "Suche"

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Blattschutz aufheben bei "Suche"

Forumthread: Blattschutz aufheben bei "Suche"

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread