Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellschutz für bestimmte zellen

Forumthread: zellschutz für bestimmte zellen

zellschutz für bestimmte zellen
09.02.2005 10:20:50
jürg
Hallo Forum
habe ein anliegen .... möchte in einer Datei die von verschiedenen Benutzern verqwendet wird für bestimmte zellen einen zellschutz haben.
gibt es dazu ein vba-lösung?
vielen dank for helps
gruss
jürg
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: zellschutz für bestimmte zellen
andreas
Hallo Jörg,
warum bei "Kaum Excel/VBA-Kenntnisse" eine VBA Lösung?
Markiere die Zellen die für den User frei sein sollen.
Menüleiste Format Zellen und das Häkchen bei Schutz raus -
Nun das Tabellenblatt mit nem Blattschutz versehen.
gruß
andreas e
AW: zellschutz für bestimmte zellen
Jürg
Hallo Andreas
ich schreib weil ich wirklich keine Ahnung in VBa und schreibe das so rein...
habe das zusammen gestellt

Sub Daten_eintragTest()
Dim Zeile
'nur wenn in ** etwas drinsteht dann eintragen
If [a6] <> "" And [b6] <> "" And [c6] <> "" And [d6] <> "" And [e6] <> "" And [c5] <> "1" And [f6] >= "1" Then
'If [f6] <> "" Then
'Blattschutz aufheben
ActiveSheet.Unprotect
'letzte benutzte Zeile ermitteln + 1
Zeile = Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row + 1
'Daten eintragen
Cells(Zeile, 1) = [a6]
Cells(Zeile, 2) = [b4]
Cells(Zeile, 3) = [c9]
Cells(Zeile, 4) = [d9]
'Eingaben löschen
[a6:g6] = ""
'[i4:k4] = ""
'letzte Zeile in sichtbaren Bereich holen
Cells(Zeile, 1).Select
Else
MsgBox "Bitte Eingabefelder anpassen!"
End If
'Blattschutz aktivieren
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect userinterfaceonly:=True
' Art_Nr.Protect userinterfaceonly:=True
'ActiveSheet.Protect
End Sub

nun möchte ich im sheet mit der funktion autofilter sortieren und das funzt nicht
gruss
jürg
Anzeige
AW: zellschutz für bestimmte zellen
Ulf
'Blattschutz aktivieren
With ActiveSheet
.enableAutofilter = True
.Protect userinterfaceonly:=True
end with
Ulf
AW: zellschutz für bestimmte zellen
jürg
Haloo Ulf
weis nicht was ich falsch mache aber wenn ich duie datei neu öffne funkioniert es nicht!!!
gruss
jürg
;

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