Unprotect in Schleife - 2007 vs. 2016

Sub Unprotect()
Dim objWorksheet As Worksheet
Dim strPassword As String
'strPassword = InputBox("Enter password:", "Password")
strPassword = Password.GetPassword
Application.ScreenUpdating = False
If StrPtr(strPassword) = 0 Then Exit Sub
On Error GoTo Abbruch:
For Each objWorksheet In ThisWorkbook.Worksheets
With objWorksheet
.Unprotect Password:=strPassword
.Protect Password:=strPassword, userInterfaceOnly:=False
.Unprotect Password:=strPassword
End With
Next objWorksheet
ThisWorkbook.Unprotect Password:=strPassword
Exit Sub
Abbruch:
MsgBox "Wrong Password", vbExclamation, "Message"
Application.ScreenUpdating = True
End Sub