Workbook.WriteReserved (Excel)

True se a pasta de trabalho exigir permissão para gravação. Boolean somente leitura.

Use o método SaveAs para definir essa propriedade.

Dim booWriteReserved As Boolean
booWriteReserved = ActiveWorkbook.WriteReserved