Coloca em um servidor qualquer e poe o link aqui

Cole em um Modulo Sub CordaGuia() Dim WS As Worksheet For Each WS In Worksheets If WS.Range("B5").Value = "Sabado&qu...

Se disponibilizar o arquivo fica mais facil

Vc testou? O Excel so vai proteger o que estiver bloqueado.

juro que nao entendi... Qual o objetivo?

Faltou fechar as aspas nesta linha WbConsolided.Worksheets("Sheet2").Range("B2").Value Nos dois ifs

Pessoalmente e falando da minha experiencia, aprender VBA é muito mais treino do que qualquer outra coisa, não sei muita coisa, mas hoje posso dizer q...

75000 linhas e bastante dependendo de memoria, processador entre outros componentes do computador.

Sem esta senha vc nao ABRE O ARQUIVO, e esta senha é bem complexa de se conseguir remover.

Nao entendi bem o objetivo mas acho que uma tabela dinamica bem organizada pode resolver.

Tenta asism: Lin = range("A1048576").end(xlup).offset(1,0).row

Disponibilize uma planilha com alguns dados

Selecione as celulas Formatar > Celulas > Proteção > Desmarque bloqueadas.

As 300 planilhas estao na mesma pasta? Ou sao 300 pastas? Se forem todas em uma mesma pasta e forem todas iguais Basta o seguinte Clique sobre a ...

Pra isso nao precisa de macros amigo. Configurar Pagina > Pagina Selecione Ajustar para 1 de largura Deixe o outro campo em branco Confirme ...