Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
18.04.2024 16:33:24
Worksheets variable
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nachfragen ob zelle a1 gesperrt ist

nachfragen ob zelle a1 gesperrt ist
04.11.2006 18:27:00
Frank
halli,
ich möchte per code abfragen ob zelle a1 gesperrt ist.
mein code macht das aber nicht:

Sub gesperrt()
If Range("A1").Locked = True Then
MsgBox "gesperrt"
Else
MsgBox "frei"
End If
End Sub

kann mir bitte jemand den fehler zeigen.
vielen dank
Gruss Frank

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nachfragen ob zelle a1 gesperrt ist
04.11.2006 18:29:47
Ali
Hi,
kein Fehler, was klappt den nicht?
mfg Ali
AW: nachfragen ob zelle a1 gesperrt ist
04.11.2006 18:31:16
Reinhard
Hi Frank,
Klappt doch mit XL2000 !?
Gruß
Reinhard
Es sei den das Arbeitsblatt ist nicht gesschützt
04.11.2006 19:07:32
Sonnenpeter
Hallo,
es sei den das Arbeitsblatt ist nicht geschützt :-)))?
Gruß Sonnenpeter
AW: Es sei den das Arbeitsblatt ist nicht gesschützt
04.11.2006 19:12:40
Ali
Hi,
unwichtig, weil ohnehin nur abgefragt wird, ob der Haken "gesperrt"
gesetzt ist.
mfg Ali
AW: Es sei den das Arbeitsblatt ist nicht gesschüt
04.11.2006 19:15:24
Reinhard
Hallo Peter,
dadran liegt es nicht.
Sub gesperrt()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
If Range("A1").Locked = True Then
MsgBox "gesperrt"
Else
MsgBox "frei"
End If
ActiveSheet.Unprotect password:="xyz"
If Range("A1").Locked = True Then
MsgBox "gesperrt"
Else
MsgBox "frei"
End If
End Sub

Gruß
Reinhard
Anzeige
AW: Es sei den das Arbeitsblatt ist nicht gesschüt
05.11.2006 08:24:46
Frank
guten morgen,
vielen dank für eure hilfe.
aber ich glaube ich habe mich falsch ausgedrückt.
ich möchte geprüfthaben, ob der schreibschutz in zelle A1 aktiv ist oder nicht.
da war der ausdruck "gesperrt" wohl falsch, sorry.
nochmals danke für eure hilfe im voraus.
Gruss Frank
AW: Es sei den das Arbeitsblatt ist nicht gesschüt
05.11.2006 15:19:38
Kurt
Hi,
der Schutz ist wirksam, wenn die Zelle Locked = True und das Blatt
ProtectContents = True ist.
mfg Kurt
AW: Es sei den das Arbeitsblatt ist nicht gesschüt
05.11.2006 17:13:49
Frank
hi kurt,
die abfrage nach locked=true brauche ich nicht, da das häcken immer gesetzt ist.
ich brauche die abfrage nach den blattschutz.
ist blattschutz = ja dann
dadada
witerer code
vielen dank im voraus
Gruss Frank
Anzeige
AW: Es sei den das Arbeitsblatt ist nicht gesschüt
05.11.2006 19:58:14
Kurt
Hi,

Sub Schutz_oder_nicht()
If ActiveSheet.ProtectContents Then
MsgBox "Schutz!"
Else
MsgBox "Kein Schutz!"
End If
End Sub

mfg Kurt
jepp, genau so. danke :) o.t.
05.11.2006 20:07:38
Frank
Gruss Frank

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige