DISREGARD
EDIT: found an answer.
--------------------------------------------------------------------------------------------
Trying to unprotect a protected worksheet, write to a cell and protect it again. The following code works ok if the workbook is not shared:
ActiveSheet.Unprotect
Range("D18").Value = 1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
However, when the workbook is shared for network use this results in the error:
Run-time error '1004':
Unprotect method of Worksheet class failed
Um.....help?