Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Blattschutz aus Zelle
08.11.2006 11:39:20
Andre´
Hallo alle zusammen,
ich möchte gern den Blattschutz und den Arbeitsmappenschutz in einer Zelle z.B. im Blatt Tabelle1 in einer Zelle (A1=3)hinterlegen.
Wie kann ich folgendes Makro umschreiben, dass der Zellwert aus der Tabelle1 ausgelesen wird.
MFG
Andre

Sub schutz()
ActiveWorkbook.Protect ("3")
Worksheets("Tabelle1").Protect ("3")
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz aus Zelle
08.11.2006 11:43:15
ChrisL
Hallo Andre

Sub schutz()
dim PW As String
PW = Worksheets("Tabelle1").Range("A1")
ActiveWorkbook.Protect (PW)
Worksheets("Tabelle1").Protect (PW)
End Sub

Gruss
Chris
AW: Blattschutz aus Zelle
08.11.2006 12:24:21
Andre´
Hallo Chris,
danke für die Antwort, funktioniert prima!!
MFG
Andre
Anzeige

241 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige