If sheetname = "VerificationData" Then
rem 解保护
Sheets(sheetname).Protect PassWord:="20200410"
End If
If sheetname = "VerificationData" Then
rem 保护
Sheets(sheetname).Unprotect ("20200410")
End If
If sheetname = "VerificationData" Then
rem 解保护
Sheets(sheetname).Protect PassWord:="20200410"
End If
If sheetname = "VerificationData" Then
rem 保护
Sheets(sheetname).Unprotect ("20200410")
End If