68023
07.11.2008
2773
0
0
Paste klappt bei geschütztem Sheet nicht
Hallo,
ein bisher reibungslos arbeitendes Skript soll nun auch geschützte Tabellen zunächst entsperren und dann seine Arbeit tun.
Die fragwürdigen Tabellen waren bisher nicht geschützt, sind es nun jedoch.
Zunächst gebe ich das Sheet wieder frei:
Und möchte dann - wie bisher auch immer erfolgreich umgesetzt - etwas aus einer anderen Tabelle kopieren:
Obwohl das unprotecten wunderbar funktioniert, kann nicht eingefügt werden.
Woran kann das liegen?
Danke vorab.
Nico
ein bisher reibungslos arbeitendes Skript soll nun auch geschützte Tabellen zunächst entsperren und dann seine Arbeit tun.
Die fragwürdigen Tabellen waren bisher nicht geschützt, sind es nun jedoch.
Zunächst gebe ich das Sheet wieder frei:
If Workbooks(wb_name).Sheets(lookup).ProtectContents = True Then
Workbooks(wb_name).Sheets(lookup).Unprotect ("****")
End If
Und möchte dann - wie bisher auch immer erfolgreich umgesetzt - etwas aus einer anderen Tabelle kopieren:
Workbooks(here_wb).Sheets("template").Activate
Range("C3", "R3").Copy 'Überschriften 1 kopieren
Workbooks(wb_name).Sheets(lookup).Activate 'Blatt mit Suchübereinstimmung aktivieren
Range("C3").PasteSpecial xlPasteValues
Obwohl das unprotecten wunderbar funktioniert, kann nicht eingefügt werden.
Woran kann das liegen?
Danke vorab.
Nico
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-Key: 101293
Url: https://administrator.de/contentid/101293
Ausgedruckt am: 29.03.2024 um 00:03 Uhr