Ich habe eine riesige Arbeitsmappe mit verschiedenen Arbeitsblättern. Diese enthalten Text, Zahlen und Diagramme und Formeln und alle Blätter haben einen Blattschutz.
Ich bin auf der Suche nach einer Alternative (die Mappe wird vorher neu abgespeichert) um eine Wertkopie der Blätter zu erstellen. Dabei soll kein Blattschutz mehr bestehen. Mein bisher genutztes Makro verursacht (in anderen Dateien geht es) immer Fehler.
Sub Wertkopie()
Dim I As Integer
For I = 1 To Worksheets.Count
If Worksheets(I).Visible = True Then
With Worksheets(I)
.Activate
.Unprotect ("PW")
.Cells.Copy
.Cells.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'.Protect ("PW")in Kopie kein Passwortschutz
End With
End If
Next I
End Sub
Der erzeugte Fehler ist ein Laufzeitfehler (1004) - die PasteSpecial Methode des Range-Objektes konnte nicht ausgeführt werden.Da zu diesem Fehler noch keine weiterführenden Hilfen gefunden werden konnten der Versuch ein alternatives Makro zu bauen, das die gleichen Bedingungen erfüllt. Vielen Dank für eure Hilfe.
Sören