oder im Makro
Dirk
If Tabelle1.ProtectContents oder Tabelle2.ProtectContents = False Then
MsgBox "Tabellenschutz wurde nicht ordnungsgemäß durchgeführt", vbInformation
end if