In diesem Beispiel wird für die aktive Arbeitsmappe ein Schreibschutz festgelegt.
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly