Mit untenstehendem Code ATabellenschutz_aktivieren_alle werden jeweils alle Tabellen einer Arbeitsmappe geschützt.
Wenn ich jetzt einen anderen Code in der Arbeitsmappe laufen lasse, wird dieser bei der Zeile
WS.Range("C2:C" & WS.Cells(Rows.Count, 3).End(xlUp).Row).Copy Destination:=.Cells(lngLetzte, 1)
gestoppt, mit dem Fehlerhinweis, dass die Tabelle geschützt sei. Ich bin jedoch davon ausgegangen, dass aufgrund des übergebenen Parameters userinterfaceOnly:=True beim Schützen aller Tabellen der Schutz für einen anderen Code nicht aufgehoben werden muss.
Wie kann ich das Problem lösen?
Gruss, Peter
Sub ATabellenschutz_aktivieren_alle()
Application.ScreenUpdating = False
' mit userinterfaceOnly:=True wird bewirkt, dass Markros auch in geschützten Tabellen laufen,
' d.h. sie müssen nicht bei jeder Routine entschützt werden
Dim tabz As Integer
Dim i As Integer
Passwort_Abfragen
tabz = ActiveWorkbook.Worksheets.Count
For i = 1 To tabz
''Debug.Print Sheets(i).Name
Sheets(i).Protect DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=strpasswort & "!!"
Sheets(i).EnableSelection = xlNoRestrictions
Next i
Application.ScreenUpdating = True
End Sub