Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autom. Blattschutzaktivierung

Forumthread: Autom. Blattschutzaktivierung

Autom. Blattschutzaktivierung
12.01.2007 15:53:31
André
Hallo zusammen,
ich benötige mal wieder Unterstützung.
Ich kann in meiner Tabelle über einen Button den Blattschutz deaktivieren (ActiveSheet.Unprotect Password:="x"). Jetzt soll der Blattschutz aber nach 5 Zellwechseln wieder aktiviert werden!?
Danke für eure hilfe
Tschüß André
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autom. Blattschutzaktivierung
12.01.2007 18:19:06
Stefan
Hallo André,
1. Hinterlege ein Makro bei diesem Tabellenblatt mit dem Bereich, der für den Zellwechsel vorgesehen ist, hier wäre auch das ganze Tabellenblatt möglich.
Weiter must du mit mit einer Variablen mitzuzählen, wie oft ein Zellwechsel stattfindet.
Probiers mal mit folgendem Code, must diesen vielleicht noch ein wenig anpassen.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Dim bereich As Range
dim i as integer
Set bereich = Range("a1:iv65356")
If Intersect(bereich, Target) Is Nothing Then
i=i+1
end if
End Sub

3. In Abhängigkeit des Wertes der Varibalen könntest du dann das Blatt wieder schützen.
z. B.
If i => 5then
ActiveSheet.Unprotect Password:="x").
end if
Bevor du aber die Datei beendest, solltes du mit einem Makro dafür sorgen, das i=0 ist, sonst kannst du beim nächsten öffnen nicht mehr reinklicken, da evt. schon mehr als 5 klicks stattgefunden haben.
Hoffe, ich konnte dir helfen.
Rückinfo wäre nett.
Gruß
Stefan
Anzeige
;

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