In diesem Beispiel wird die aktive Arbeitsmappe geschützt.
ActiveWorkbook.Protect Password := "drowssap"