Macro to set user permissions

[#1]

I am trying to write a macro to uncheck all user permissions. The code below works when I select "test" in Edit Module but it doesn't work when I press the button itself. Can anybody tell me why?

set mysheet=ActiveDocument.ActiveSheet

set sp=mysheet.GetProperties

sp.UserPermissions.MoveSizeSheetObject = false

mysheet.SetProperties sp

Thanks!