68023
Nov 07, 2008
2776
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
Please also mark the comments that contributed to the solution of the article
Content-Key: 101293
Url: https://administrator.de/contentid/101293
Printed on: April 18, 2024 at 01:04 o'clock