Easy script but then again I'm a newb....
CMD button should be +20 to cell B6 only when worksheet is unprotected.


Private Sub Restock6_Click()
With ActiveSheet.Range("B6")
.Value = .Value + 20
End With
frmTest.cmdRun.Enabled = Not ActiveSheet.ProtectContents
End Sub