Hallo,
habe mit folgendem Makro ein Problem. Ich müßte den Schutz vor dem Kopieren bei allen Blättern entfernen und nach dem Kopiervorgang wieder setzen.
Kann mir bitte jemand helfen.
Danke Gruß Markus
Dim sh As Worksheet
UF_Dateiauswahl2.Show
'ActiveSheets.Unprotect Password:="x" ' Schutz aus ?
If bolKopieren2 = True Then
For Each sh In ActiveWindow.SelectedSheets
If sh.Name "Tabelle1" Then
With Workbooks(strDateiName2).Sheets(sh.Name)
sh.Range("D8:D37").Copy .Range("D8:D37")
.Range("H44") = sh.Range("H44")
End With
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="x"
End If ' Schutz ein ?
Next
Sheets("Tabelle1").Select
End If
End Sub