Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
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
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilen einfügen geht. Löschen nicht

VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 12:39:41
Bernd_hat
Hallo Zusammen,
habe ein Problem.
Aus besonderen Gründen ist ein Blatt per Passort geschützt.
Erlaubt soll sein:
Gruppierung auf und zu machen das funktioniert.
Zeilen einfügen das funktioniert
Zeilen löschen das funktioniert nicht da kommt eine Meldung das das Blatt geschützt ist.
Wo ist der Fehler im Code ?
Würde mich sehr über Hilfe freuen.
Gruß Bernd_

Sub Workbook_Open()
Sheets("Tabelle1").Protect UserInterfaceOnly:=True, Password:="passwort", AllowInsertingRows:=True, AllowDeletingRows:=True
Sheets("Tabelle1").EnableOutlining = True ' Für Gliederung
End Sub

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 12:43:38
onur
"Zeilen löschen das funktioniert nicht" - ZEILEN oder ZELLEN? WAS genau hast du versucht zu löschen?
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 12:50:56
Bernd_hat
Hallo,
ja das stimmt ,mein Fehler.
Ich gehe mit der rechten Maus Taste auf eine Zeilennummer und wähle Zellen einfügen.
Dann wird eine neue Zeile eingefügt.
Wenn ich dann auf die neue Zeilennummer mit der rechten Maus Taste klicke und Zellen lösche wähle kommt die Meldung wegen dem Passwort.
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 12:52:42
onur
Um eine komplette Zeile zu löschen, müssen alle Zellen dieser Zeile "nicht gesperrt" sein.
Nimm besser VBA.
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 12:55:02
Bernd_hat
Ich benutze doch VBA
Das löschen funktioniert ja nicht.

Sub Workbook_Open()
Sheets("Tabelle1").Protect UserInterfaceOnly:=True, Password:="passwort", AllowInsertingRows:=True, AllowDeletingRows:=True
Sheets("Tabelle1").EnableOutlining = True ' Für Gliederung
End Sub

Anzeige
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 12:56:21
onur
Du benutzt VBA, um den Schutz zu SETZEN. Ich meinte VBA, um die Zeile zu LÖSCHEN.
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 12:58:10
Bernd_hat
Und wie würde das gehen ?
Kannst Du mir da bitte helfen ?
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 13:00:17
onur
Einfach: Button auf Blatt mit Text "Aktive Zeile löschen" mit dem Makro:
Activecell.entirerow.delete
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 13:06:28
Bernd_hat
Super funktioniert .
Herzlichen danke .
Gruß Bernd_
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 13:06:33
onur
Du solltest aber eine Passwortabfrage vor diese Zeile setzen, sonst hätte das Sperren des Blattes keinen Sinn:

If InputBox("Passwort eingeben")  "MeinPasswort" Then Exit Sub

AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 13:38:06
Bernd_hat
Diejenigen sollen aber kein Passwort eingeben.
Kann man das Passwort des Blattes nicht in den Code mit einbauen ?

Sub zeileweg()
ActiveCell.EntireRow.Delete
End Sub

Anzeige
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 13:56:01
Piet
Hallo

Sub zeileweg()
ActiveSheet.Unprotect "Passwort"   'Passwort angeben!!
ActiveCell.EntireRow.Delete
ActiveSheet.Protect "Passwort"
End Sub
mfg Piet
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 14:04:10
Bernd_hat
Hallo Piet,
danke für die Hilfe.
Jetzt muss noch in den Code das die Gliederung (Gruppierung) und das einfügen von Zellen erlaubt ist.
Kannst Du das bitte noch hinzu fügen .
Gruß Bernd_
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 14:10:32
Piet
Hallo Bernd
bei dem Code musst du einfach nur die Codezeilen "Unprotect und Protect" am Anfang und Ende des Codes setzen. Unprotect immer direkt nach Sub xxxx, und Protect vor End Sub. Das bei jedem Code. Ich denke das schaffst du selbst, oder?
mfg Piet
Anzeige
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 14:24:59
Bernd_hat
Kann sein das ich mich falsch ausdrücke.
Wenn ich die Zeile durch Deinen Code lösche.
Wird das Blatt ja wieder gesperrt.
Wenn das Blatt gesperrt ist kann ich aber die Gliederung von Spalte C:G nicht aufheben weil das aufheben nicht funktioniert wenn das Blatt gesperrt ist.
Ich bekomme das EnableOutlining = True nicht in den Code eingebaut. Bekomme immer Fehlermeldungen.
Ich meine das hier :

EnableOutlining = True

Selber hin bekommen
07.01.2023 14:49:42
Bernd_hat
Hallo nochmal und danke für Eure Hilfe,
habe etwas rum gebastelt und es nun doch hin bekommen.

Sub zeileweg()
ActiveSheet.Unprotect "XXXXXXXXX"
ActiveCell.EntireRow.Delete
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect Password:="XXXXXXXXX", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub

Anzeige
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 15:32:55
onur
In seinem Code steht doch schon "UserInterfaceOnly:=True" - wozu also protect und unprotect?
AW: VBA Zeilen einfügen geht. Löschen nicht
07.01.2023 15:48:25
onur
Wilsst du ernsthaft, dass Jeder, der den Button drückt, ohne Passwortabfrage jede beliebige Zeile löschen darf?
Wenn ja, lass einfach meine Passwortabfrage weg.

369 Forumthreads zu ähnlichen Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 Beiträge
Anzeige
Zellen Format ändern geht nicht
TommiH

Hallöchen,
ich habe ein riesen Problem. Ich habe eine Excel-Datei bekommen mit der ich etwas tun soll und ich kann die Zellenformate nicht ändern/anpassen. Irgendwie erscheint das Menü nicht.
Weder STRG-1 noch Format/Zellen noch rechte Maustaste und Zelle formatieren bringt das normal ü...
18.12.2008 13:13:59
Thread-ID: 1033841
11 Beiträge
Wieviele Zellen im Range sind NICHT leer
Mandy

Hi.
wie kann ich denn ein Range C3:C13 auf meinem Sheet "Daten" so abfragen, damit ich in einem Label stehen habe, wieviel von diesen Zellen noch leer sind, sprich noch keinen Inhalt haben ?
Danke Mandy
12.02.2009 14:48:00
Thread-ID: 1050080
6 Beiträge
Anzeige
Leere und Nichtleere Zellen einer Spalte rechnen
Urmila

Hallo,
habe ien Problem, ich habe eine Liste, in Spalte A stehen Werte (Zahlen), in der Spalte B stehen Namen.
Nun will ich, dass er mir in der Zelle D1 alle Werte aus spalte A ausrechnet, wo die Zellen in Spalte B Inhalte haben, und in Zelle E1 wo kein Inhalt steht.
Ich hoffe ich k...
30.06.2009 12:41:41
Thread-ID: 1085323
4 Beiträge
zellen einfügen per makro nicht gesperrt
Markus

Hallo Excel-Helfer,
ich bräuchte ein Makro, das kopierte und gesperrte Zellen beim Einfügen in meine Tabelle ungesperrt einfügt.
Beispiel:
ich öffne in excel eine neue Mappe. Alle Zellen sind standardmäßig gesperrt. Wenn ich nun beliebige Zellen kopiere und in meine Excel-Datei ein...
13.09.2009 13:36:33
Thread-ID: 1102399
29 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Zeile einfügen - Formel wird nicht übernommen
Alex

Hallo,
ich habe folgendes Problem:
Beipiel
A2 A3 A3
1 1 2 =A2+A3
2 1 2 =A2+A3
3 1 2 =A2+A3
Wenn ich eine Zeile zwischen Zeile 2 und 3 einfüge, dann wir meine Formel in A3 nicht in die eingefügte Zeile übernommen....
10.06.2010 13:27:50
Thread-ID: 1161234
2 Beiträge
Zellen formatieren geht nicht mehr
Pepi

Hallo Zusammen
Ich habe eine Tabelle mit VBA erstellt, jetzt kann ich die Tabelle innerhalb des Bereiches, wo die Tabelle Daten aufweisst nicht mehr formatieren.
Kontextmenu (Maus Rechtsklick) - Zellen formatieren
oder
Start - Schriftart, Ausrichtung, Zahl
bei all diesen Me...
19.07.2010 15:58:15
Thread-ID: 1167741
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
3
9
10
5
7
3
28
1
1
3
5
1
2
5
2
2
13
5
1
1
3
14
8
1
2