Einfügen mit Arbeitsmappenschutz

Hallo liebe Excel-Gemeinde,
ich hatte diesbezüglich schonmal ein Beitrag geschrieben, jedoch ist dieser untergegangen und es haben sich neue Erkenntnisse aufgetan. Es geht darum meine Zwischenablage in ein anderes Tabellenblatt einzufügen.
Die Mappe soll jedoch von Grund auf geschützt sein, sodass das Makro zusätzlich zunächst die _
Mappe freigeben soll und anschließend wieder schützen. Code sieht folgendermaßen aus und funktioniert ohne Probleme.


Sub Einfügen()
Tabelle4.Visible = True
Tabelle4.Select
Range("A1").Select
ActiveSheet.Paste
Tabelle10.Select
Tabelle4.Visible = False
End Sub

mit dem einfügen der Befehle für das schützen gibt es allerdings Probleme.


Sub Einfügen()
ThisWorkbook.Unprotect Password:="Passwort"
Tabelle4.Visible = True
Tabelle4.Select
Range("A1").Select
ActiveSheet.Paste
Tabelle10.Select
Tabelle4.Visible = False
ThisWorkbook.protect Password:="Passwort"
End Sub

Der Code bricht an der Stelle "ActiveSheet.Paste" ab. Dies liegt daran, dass er durch den Unprotect Befehl meine markierten Zellen in einer anderen Mappe, welche kopiert werden sollen, nicht mehr markiert und somit nichts kopieren kann. Hat jemand von euch eine Lösung.
Vielen Dank!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

okay ich versuche das ganze nochmal zu erklären.
Ich habe meine Excel-Datei Mappe1, welche geschützt ist, da andere Leute damit arbeiten sollen. Das einzige, was für andere möglich sein soll, ist über einen Button Werte in eine Tabelle1 einzufügen.
Diese Werte kommen aus einer Datenbank, welche eine Excel Mappe2 generieren und ausleiten kann. Diese enthält die Werte, welche über den Button (Makro) in der Mappe1 Tabelle1 eingefügt werden soll.
Problem: Mappe2 wird zufällig generiert, kann also auch Mappe580 heißen, somit kann ich auf diese nicht per VBA zugreifen. Außerdem wird diese nur temporär gespeichert.
Also wird händisch in der geöffneten Mappe2 der Bereich a1:c20 makiert (mit STRG-C) und soll in die ebenfalls geöffnete Mappe1 Tabelle1 A1:C20 eingefügt werden (über Button in Mappe1).

sub CommandButton_Click() Dim sPfad as String sPfad= "'" & ThisWorkbook.Path & "\[" & TextBox1.Text & ".xlsx]Tabelle1'!A1:C20" Worksheets("Tabelle1").Range("A1:C20") = ExecuteExcel4Macro(sPfad) end sub

Beliebteste Forumthreads (12 Monate)

Einfügen mit Arbeitsmappenschutz

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einfügen mit Arbeitsmappenschutz

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread