Makrofehler PasteSpecial-Methode
Sören
ich benötige eure Hilfe; mittels Makro kann für den Anwender aus einer mit Blattschutz versehenen Arbeitsmappe eine Wertkopie dieser gesamten Mappe erstellt werden - diese soll keinen Passwortschutz mehr haben.
Das Problem ist, dass das Makro brav anfängt diverse Kopien zu machen und dann erfolgt ein Fehler:
Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.
Folgendes Makro liegt zugrunde:
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")
End With
End If
Next I
End Sub
Woran kann es liegen bzw. Was ist falsch? Danke für eure Hilfe.