Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserInterFaceOnly für ThisWorkbook.Protect?

Forumthread: UserInterFaceOnly für ThisWorkbook.Protect?

UserInterFaceOnly für ThisWorkbook.Protect?
Jonatan
Hallo,
ich sperre über ein Makro die Datei mit dem Befehl
ActiveWorkbook.Protect
Gibt es dafür auch so eine Anweisung, wie für das Sperren der einzelnen Tabellenblätter, dass trotzdem alle Makros laufen, obwohl der Schutz gesetzt ist, also sowas in der Art wie 
ActiveWorkbook.Protect  UserInterfaceOnly:=True
Vielen Dank für Eure Antworten
Gruß Jonatan
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: UserInterFaceOnly für ThisWorkbook.Protect?
28.02.2011 18:33:49
Oberschlumpf
Hi Jonatan
Wenn du "nur" erreichen möchtest, dass trotz Blattschutz die Makros funktionieren, was sie ja nicht (immer) tun, wenn Blattschutz aktiv, warum deaktivierst du nicht einfach den Blattschutz vor dem eigentlichen Ablauf eines Makros und aktivierst den Blattschutz wieder, wenn Makro zu ende?
Bsp
Sub Makro1()
sbSchutzDeAktiv False
Inhalt von Makro1
sbSchutzDeAktiv True
End Sub


Sub Makro2()
sbSchutzDeAktiv False
Inhalt von Makro2
sbSchutzDeAktiv True
End Sub


Sub sbSchutzDeAktiv(aktiv As Boolean)
Dim lishBlatt As WorkSheets
For Each lishBlatt In ThisWorkbook
If aktiv = True Then
lishBlatt.Protect
Else
lishBlatt.Unprotect
End If
Next
End Sub
Hilfts?
Ciao
Thorsten
Anzeige
Korrektur
28.02.2011 18:35:29
Oberschlumpf
Hi
Änder diese Zeilen
    Dim lishBlatt As Worksheets
For Each lishBlatt In ThisWorkbook
um in diese Zeilen 
    Dim lishBlatt As Worksheet
For Each lishBlatt In ThisWorkbook.Sheets

Jetzt läufts (bei mir).
Ciao
Anzeige
AW: Korrektur
28.02.2011 19:03:06
Jonatan
Hi,
erstmal danke für die Antwort.
Genau deine vorgeschlagene Lösung hatte ich bereits angewendet. Ich dachte nur, obs vielleicht eine einfachere Lösung gäbe.
Aber scheint wahrscheinlich nicht so.
Gruß Jonatan
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige