Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.10.2025 18:39:44
Hilfe beim VBA-Code
08.10.2025 12:36:22
Hinweis für Word auf dem MAC
08.10.2025 12:35:32
Datumsabhängige Einträge in Zellen. Bedingter Formatierung.
08.10.2025 11:44:01
Faktor Uhrzeit hinzu fügen
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
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

copy sheet after sheet mit Blattschutz

Forumthread: copy sheet after sheet mit Blattschutz

copy sheet after sheet mit Blattschutz
25.07.2022 10:12:07
Micha
Hallo Experten,
ich habe aktuell einen Code hinter einem XActive Button laufen, der mir das aktuelle Blatt dupliziert und nach dem aktuellen Blatt einfügt. 

Private Sub CommandButton1_Click()
ActiveSheet.Copy after:=ActiveSheet
End Sub
Ist es möglich den Code um einen Blattschutz mit Passwort zu erweitern? Das Ausgangsblatt ist mit Passwort geschützt und nach dem Duplizieren fliegt der Blattschutz immer raus.
Vielen Dank für eure Hilfe!
Grüße Micha
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur eins von zig tausenden Beispielen:
25.07.2022 10:40:08
zig
Hallo Pierre,
danke für deinen Einsatz, aber das ist nicht wonach ich suche.
Ich möchte kein Button mit einem Passwort versehen, sondern das "neue" Blatt das mit dem Code kopiert wurde.
Grüße
Anzeige
wer lesen kann, sorry... (owT)
25.07.2022 10:43:21
Pierre
AW: wer lesen kann, sorry... (owT)
25.07.2022 10:48:43
Pierre
Dann sollte 

ActiveSheet.Protect ("XXX")
vor End Sub reichen.
Gruß Pierre
Problem gelöst!
25.07.2022 11:04:00
Micha
Danke Pierre und danke Herbert!
Beide Versionen funktionieren wie gewünscht =)
Grüße Micha
Anzeige
bitteschön (owT)
25.07.2022 11:09:31
Pierre
AW: copy sheet after sheet mit Blattschutz
25.07.2022 10:54:09
Herbert_Grom
Hallo Micha,
probiers mal damit:

Private Sub CommandButton1_Click()
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Protect "pw"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Servus
;

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