Desbloqueio e bloqueio de planilha automatico no vba

[Leo P Costa]

Bom dia. Sou novo na área da programação VBA no excel e estou com uma dificuldade na hora de clicar no botão que fiz para deixar uma coluna na ordem alfabética, é uma formula simples, criada pelo gravador do vba, mas sempre que clico no botão da um erro dizendo que minha planilha é protegida por SENHA, então gostaria de configurar para que na própria macro fosse inserida o desbloqueio e o bloqueio automático com SENHA. Segue a macro e o que poderia ser feito.
 

Sub OrdemAlfabeticaData()Sheets("JANEIRO").SelectRange("B5").SelectActiveWorkbook.Worksheets("JANEIRO").ListObjects(" Tabela3568").Sort.SortFields. _ClearActiveWorkbook.Worksheets("JANEIRO").ListObjects(" Tabela3568").Sort.SortFields. _Add Key:=Range("B5"), SortOn:=xlSortOnValues, Order:=xlAscending, _DataOption:=xlSortNormalWith ActiveWorkbook.Worksheets("JANEIRO").ListObjects(" Tabela3568").Sort.Header = xlYes.MatchCase = False.Orientation = xlTopToBottom.SortMethod = xlPinYin.ApplyEnd WithEnd Sub

Desde já agradeço.

[Patropi]

Bom dia Leo

 

Experimente:

 

No inicio da Macro, logo após o nome, insira esta linha de código:

'comando que desprotege a planilhaActiveSheet.Unprotect "TESTE"

No final antes do End Sub, insira este:

'comando que protege novamente a planilhaActiveSheet.Protect "TESTE"

Não se esqueça de substituir a palavra 'TESTE" pela senha da tua planilha.

 

Dê retorno.

 

[]s

[Leo P Costa]

Boa tarde Patropi,

é exatamente isso que precisava, agradeço muito a ajuda, acabei postando aqui por não achar o tópico sobre excel, ou eu que não procurei direito. Vou dar uma olhada no topico de excel. valeu ae.