Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

nachfragen ob zelle a1 gesperrt ist

Forumthread: nachfragen ob zelle a1 gesperrt ist

nachfragen ob zelle a1 gesperrt ist
04.11.2006 19: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: nachfragen ob zelle a1 gesperrt ist
04.11.2006 19:29:47
Ali
Hi,
kein Fehler, was klappt den nicht?
mfg Ali
AW: nachfragen ob zelle a1 gesperrt ist
04.11.2006 19:31:16
Reinhard
Hi Frank,
Klappt doch mit XL2000 !?
Gruß
Reinhard
Es sei den das Arbeitsblatt ist nicht gesschützt
04.11.2006 20:07:32
Gast
Hallo,
es sei den das Arbeitsblatt ist nicht geschützt :-)))?
Gruß Gast
Anzeige
AW: Es sei den das Arbeitsblatt ist nicht gesschützt
04.11.2006 20: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 20: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 09: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
Anzeige
AW: Es sei den das Arbeitsblatt ist nicht gesschüt
05.11.2006 16: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 18: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 20: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 21:07:38
Frank
Gruss Frank
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum