Reset de plan1 para plan2

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

6 Posts

2 Usuários

0 Reactions

1,488 Visualizações

RSS

dimorais

(@dimorais)

Posts: 431

Reputable Member

Topic starter

Botão reset da plan Dados para agir no intervalo B31:AF45, da plan Estoque protegida. Sem a proteção, 100% de aproveitamento, com a proteção "erro em tempo de execução 1004". :evil: Se o botão reset tá na Plan Estoque, 100% aproveitamento. Onde estou errando? :roll: :roll:

Sub Reset_Bloco_1()
ActiveSheet.Unprotect "1"
Sheets("Estoque").Select
Range("B31:AF45").ClearContents
Sheets("Dados").Select
ActiveSheet.Protect "1"
End Sub

Postado : 03/10/2014 11:38 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Poste o arquivo!!
Considerando que você precise fazer referencia...

Sub MinhaSub

Sheets("Monthly NomedaGuia").Protect Password:="senha"
'Código aqui....
Sheets("NomedaGuia").Unprotect Password:="senha"

End sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 03/10/2014 11:39 am

dimorais

(@dimorais)

Posts: 431

Reputable Member

Topic starter

Opa

Estoque.rar

Postado : 03/10/2014 11:49 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Veja se é isso...

Sub Reset_Bloco_1()
Worksheets("Estoque").Activate
ActiveSheet.Unprotect "1"
    Worksheets("Estoque").Range("C4:G7").ClearContents
ActiveSheet.Protect "1"
Worksheets("Dados").Select

End Sub

Vai bloquear após limpar os dados!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 03/10/2014 11:55 am