Forhindre kryptering af dokument

I projektmappens VBA kodeark kan du skrive flg.:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveWorkbook.Password = ""

End Sub

Men den er ikke skudsikker, da brugeren kan gå ind og ændre makroen. Om det kan laves i et passwordbeskyttet AddOn, ved jeg ikke.

Hej
Har lagt din kode under ThisWorkbook, det virker.
Jeg har password beskyttet VBA, så bruger kan ikke ændre koden.
Smid et svar for point
Tak for hjælpen
Lars

Velbekom :-)