Workbook.WriteReserved (Excel)

True, wenn die Arbeitsmappe ein Schreibschutz-Kennwort besitzt.

Verwenden Sie die SaveAs -Methode, um diese Eigenschaft festzulegen.

Dim booWriteReserved As Boolean
booWriteReserved = ActiveWorkbook.WriteReserved