Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schreibschutz setzen

Schreibschutz setzen
24.03.2009 14:03:05
Markus
Hallo zusammen,
möchte gerne das folgende Makro erweitern.

Private Sub Worksheet_Activate()
ScrollArea = [BF30].Text
End Sub


Wenn Zelle BF30 leer, dann soll der Schreibschutz aufgehoben werden. Wenn befüllt, dann soll der Schreibschutz aktiv sein. Das Kennwort soll blank sein.
Kann mir jemand helfen?
Viele Grüße aus Köln
Markus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schreibschutz setzen
24.03.2009 17:30:29
marcl
Hallo Markus

Private Sub Worksheet_Activate()
If Range("BF30") = "" Then
Activesheet.Unprotect "blank"
ScrollArea = [BF30].Text
Activesheet.Protect "blank"
End If
End Sub


Gruß
marcl

AW: Schreibschutz setzen
24.03.2009 20:10:38
Markus
Hallo Marcl, hallo die anderen,
das klappt aber nicht. Der Schreibschutz dieser Tabelle soll sich ja danach richten, ob im Feld BF30 etwas steht oder das Feld leer ist.
Feld ist befüllt = Blattschutz aktiv
Feld ist leer = Blattschutz deaktiv
Mein Ausgangsmakro war folgendes:

Private Sub Worksheet_Activate()
ScrollArea = [BF30].Text
End Sub


Hast Du oder habt Ihr noch eine andere Lösung? Danke für die Hilfe!
Viele Grüße
Markus

Anzeige
AW: Schreibschutz setzen
27.03.2009 13:49:53
marcl
Hallo Markus,
oki, versuchen wir mal das:

Private Sub Worksheet_Activate()
ScrollArea = [BF30].Text
If Range("BF30")  "" Then Activesheet.Protect "blank"
End Sub


Gruß
marcl

AW: Schreibschutz setzen
27.03.2009 22:40:47
Markus
Hallo Marcl,
klappt immer noch nicht. Ich mache es einfach weiter manuell.
Danke aber für Deine Hilfe!
Schönes Wochenende
Markus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige