Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schreibschutz - schreiben Ja, löschen Nein

Schreibschutz - schreiben Ja, löschen Nein
22.08.2006 15:57:36
thema
Hallo liebe EXCEL-Experts!
gibt es eine Möglichkeit, ein Tabellenblatt/Zellen oder eine ganze Datei
für's SCHREIBEN frei zu geben
für's LÖSCHEN zu sperren?
Falls dies nicht möglich ist(wovon ich ausgehe), könnte ich mir folgendes vorstellen:
jede gefüllte Zeile wird gesperrt (z.B. beim Speichern)
jede freie Zeile bleibt erst mal zum Schreiben frei
d.h. der Benuzter soll beim Öffnen immer nur in die nächste leere Zeile schreiben dürfen.
So stelle ich es mir vor - aber wie das geht, davon habe ich leider keine Ahnung und danke deshalb allen, die hier ihre Ideen/Vorschläge beisteuern könnten.
Grüße
TheMa

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schreibschutz - schreiben Ja, löschen Nein
22.08.2006 17:19:48
Matthias
Hallo Thema,
das ist schon machmar, es muss allerdings definiert werden, welche "die nächste leere Zeile" ist:

  • Durch Eintrag in welche Spalte wird die Zelle als "belegt" definiert?
  • Wenn oberhalb Zeilen frei sind, dürfen diese dann beschrieben werden?
  • Ist gewährleistet, dass die Datei mit aktivierten Makros geöffnet wird? (Sonst hat das nämlich keinen Sinn)

Gruß Matthias
AW: Schreibschutz - schreiben Ja, löschen Nein
22.08.2006 17:35:51
thema
Hallo Matthias,
d.h. nur mit VBA kann's funktionieren?
Zu deinen Fragen:
- Die Bedingung für "belegt" muss/kann ich selbst festlegen
Z.B. Einträge von A bis G müssen in Spalte H mit einem Eintrag abgeschlossen werden,
so könnte man z.B. die Zellen in H auf gefüllt/leer abfragen
- Somit wären auch leere Zeilen "oberhalb" frei gegeben,
aber ich kann das selbst bestimmen, d.h. ich würde bevorzugen, dass nur
Zellen "unterhalb" zum Schreiben frei gegeben sind
- Ich gehe davon aus, dass VBA möglich ist
Also, wenn's unter diesen Bedingungen eine Lösung gibt: Vielen Dank. (Auch wenn ich leider in VBA nicht fit bin, es könnte mir vielleicht dann der Kollege weiter helfen).
Danke im voraus
und Grüße
TheMa
Anzeige
AW: Schreibschutz - schreiben Ja, löschen Nein
22.08.2006 18:14:01
Matthias
Hallo Thema,
VB-Editor öffnen mit Alt+F11, dann links Doppelklick auf "DieseArbeitsmappe", dann rechts diesen Code einfügen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ZeilenSchützen
End Sub

dann Menü Einfügen, Modul, ins erscheinende Codefenster dann diesen Code kopieren:

Sub ZeilenSchützen()
Const pw = "123" 'Blattschutz-Kennwort (bitte anpassen)
Const Tabelle = "Tabelle1" 'Tabellenname (bitte anpassen)
Dim lz As Long, z As Long
With Sheets(Tabelle)
'letzte gefüllte Zeile ermitteln:
lz = .Cells(Rows.Count, 8).End(xlUp).Row
.Unprotect Password:=pw
Range("1:" & lz).Locked = True
Range(lz + 1 & ":" & Rows.Count).Locked = False
.Protect Password:=pw
End With

Da das Blattschutzkennwort im Code steht musst du diesen noch vor fremden Blicken schützen:
Menü Extras, Eigenschaften von VBProject, Reiter "Schutz", Haken bei "Projekt für die Anzeige sperren", unten noch ein Kennwort vergeben und nicht vergessen.
Dann kannst du den VB-Editor wieder schließen und die Datei speichern. Bei jedem Speichern werden die benutzten Zeilen gesperrt.
Viel Erfolg,
Matthias
Anzeige
AW: Schreibschutz - schreiben Ja, löschen Nein
22.08.2006 18:35:49
Thema
Hallo Matthias,
erst mal vielen Dank für die schnelle Rückmeldung.
Nach deiner Beschreibung sollte das Skript genaut das tun, was von meiner Datei gefordert wird.
Aber leider funktioniert es nicht:
Nach dem erneuten Laden der Datei kann ich munter auch beschriebene Zellen überschreiben?
Hm, mache ich etwas falsch? Ich denke, das Einbinden des Makros habe ich richtig gemacht.
(Das mit dem Passwort vor fremden Blicken schützen, habe ich zunächst mal weg gelassen).
Darf ich dir die Test-Datei schicken...
https://www.herber.de/bbs/user/36047.xls
Vielleicht kannst du dann sehen, wo's bei mir hakt.
Danke!
Gruss Thema
Anzeige
AW: Schreibschutz - schreiben Ja, löschen Nein
22.08.2006 18:56:33
Matthias
Hallo Thema,
es geht um diese Zeile hier:

'letzte gefüllte Zeile ermitteln:
lz = .Cells(Rows.Count, 8).End(xlUp).Row

die 8 bedeutet "H", d.h. es wird nach der letzten gefüllten Zelle in Spalte H gesucht. In deinem Besispiel müsstest du die 8 in 3 ändern (Spalte C).
Gruß Matthias
AW: Schreibschutz - schreiben Ja, löschen Nein
22.08.2006 19:03:27
thema
Hallo Matthias,
ja richtig, ich hatte ja diese Vorgabe gemacht mit der Abfrage auf Spalte H.
Auf jeden Fall ist deine Lösung super und ich sage ganz vielen Dank!
Grüße TheMa

30 Forumthreads zu ähnlichen Themen

Zeilen löschen, wenn in Spalte A nicht fett?
Selma

Hallo Leute,
ich möchte ab Zeile 1 bis Zeile 5000 folgende Zeilen löschen:
Wenn in Spalte A die Zelle leer ist, dann Zeile löschen
Wenn in Spalte A die Zelle gefüllt ist, aber nicht fett ist, dann die Zeile löschen.
Wie mache das per VBA ?
Besten Dank im Voraus !
VG,
...
28.07.2009 22:58:24
Thread-ID: 1092081
7 Beiträge
Anzeige
Spalte lässt sich nicht formatieren
Joachim

Hi,
habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
Wenn ich das Format anschaue, steht es auf Standard.
Diese Spalte wollte ich i...
23.11.2009 10:46:38
Thread-ID: 1119390
3 Beiträge
Zwischenablage lässt sich nicht löschen
Hugo

Hallo
Wie kann ich im folgenden Code beim schliessen der Datei verhindern, dass die Abfrage .. Zwischenablage erscheint
Mit Application.CutCopyMode = False passiert nichts.
Besten Dank und Gruss
Hugo
Sub Test() Dim objExcel As New Excel.Application Dim objSheet As Object Di...
25.10.2010 21:40:04
Thread-ID: 1183827
4 Beiträge
Anzeige
Mehr als 3 Spalten sortieren NICHT MÖGLICH ?
Mandy

Hallo,
ich will per Makro meine Daten sortieren. Habe mir das mal mit dem Makrorecorder aufgezeichnet und habe die vierte Option manuell dazugefügt. Das funktioniert wohl nicht mit 4 Spalten:
Rows("10:5000").Select
Selection.Sort _
Key1:=Range("A10"), Order1:=xlAscending, _
...
03.05.2011 11:20:15
Thread-ID: 1212814
3 Beiträge
Datei vor Änderung schützen
dave

Hallo zusammen,
ich möchte, dass eine Datei von allen außer mir nur zum Lesen geöffnet werden kann. Das heißt, jeder kann zwar ändern, was immer er will, kann es aber nicht (jedenfalls nicht unter dem Originalnamen der Datei) abspeichern.
Ich wollte es erst per Blattschutz machen, aber...
05.10.2011 18:13:07
Thread-ID: 1232650
6 Beiträge
Zeilen löschen wenn bestimmte Inhalte NICHT vorhan
Peter

Hallo,
ich möchte in einer Tabelle alle Zeilen löschen, in denen bestimmte Inhalte nicht vorhanden sind.
In angefügter Tabelle wird es etwas deutlicher.
https://www.herber.de/bbs/user/82938.xlsx
In Spalte B taucht die Bezeichnung COM auf. In der Spalte C folgt eine Zahl. Ich mu...
08.12.2012 10:54:07
Thread-ID: 1289845
4 Beiträge
Bild in Excel Cache lässt sich nicht löschen
Markus

Hallo liebes Forum,
ich habe eine Tabelle, in der ich zuvor per VBA Bilder angezeigt habe.
Die Bilder wurden dabei per Mausklick in eine bestimmte Spalte angezeigt und verschwanden wieder, wenn man in eine andere Spalte geklickt hat.
Nun habe ich einen Teil des Codes gelöscht, um...
04.03.2013 00:02:44
Thread-ID: 1302085
3 Beiträge
ComboBox :Auswahl lässt sich nicht löschen
max

Hallo.
Ich habe ein kleines Problem mit dem Löschen der Auswahl einer ComboBox in einer UserForm.
In der ComboBox wird bei Initialisierung der Userform bereits ein Wert eingeschrieben(dieser Befehl ist im Beispielcode nicht enthalten).
Die ComboBox soll wie unten im Code aufgeführt...
12.08.2013 17:28:34
Thread-ID: 1326576
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
1
2
3
3
2
5
3
2
11
4
4
7
8
4
2
5
4
6
7
6
8
5
7
5