Desbloqueie a planilha e lance isso no VBA e execute-a. Ele fará o que você está procurando para a planilha ativa. Substitua "Senha" pela sua senha.
sub baxter()
ActiveSheet.Protect "Password", AllowFormattingRows:=True, AllowFormattingColumns:=True
end sub