Wy get a and error
Error 424 - Object requires - on "Workbook.Sheets(Sheet1).Select"

Sub ProtectScan()
Sheet1 = ActiveSheet.Name
MyNote = ""
For Each Sht In ActiveWorkbook.Sheets
Sht.Select
IsProtected = Application.ExecuteExcel4Macro("get.document(7)")
MyNote = MyNote & Sht.Name & ": " & IsProtected & vbCrLf
Next Sht
Workbook.Sheets(Sheet1).Select
MsgBox Prompt:=MyNote, Title:="Sheet Protection On"
End Sub

JP