Paste Values only when Workbook Protected

[rach_oh]

Not sure if I'm on the right track here. Wanting to allow Paste Values only when the workbook is protected. Latest failed code below


Sub PasteasValueWhenProtected()
With Workbooks("Workbook1")
If .ProtectWindows Or .ProtectStructure Then
Selection.PasteSpecial Paste:=xlPasteValues
Else
Selection.PasteSpecial Paste:=xlPasteAll
End If
End With
End Sub

 

[GlennUK]

Is the sheet protected? Can you paste by hand into the sheet?