Nathanael Lacerda

Obrigado, deu certo

Pessoal tenho uma tabela dinâmica em uma sheet. Eu quero um VBA para atualizar o gráfico automaticamente após modificação dos dados. Estava usando esse código: Private Sub Worksheet_Change(ByVal Target As Range) ActiveWorkbook.RefreshAll End Sub Porém ele atualiza todas as tabelas da pasta de trabalho, e eu quero que atualize somente a planilha atual. Tem como?

Fiz assim e deu erro Sub lsProtegerTodasAsPlanilhas() 'Declara as variáveis necessárias Dim lPass As String Dim lQtdePlan As Integer Dim lPlanAtual As Integer If Worksheets(lPlanAtual).Name <> "Planilha1" Then 'Solicita a senha 'O método InputBox é utilizado para solicitar um valor através de um formulário lPass = InputBox("Proteger todas as planilhas:", "titan") 'Inicia as variáveis 'O método Worksheets.Count passa a quantidade de planilhas existentes no arquivo lQtdePlan = Worksheets.Count lPlanAtual = 1 'Loop pelas planilhas 'A função While realiza um loop de código enquanto não passar por todas as planilhas contadas While lPlanAtual <= lQtdePlan 'O método Worksheets(lPlanAtual).Activate ativa a planilha conforme o índice atual 1, 2, 3... Worksheets(lPlanAtual).Activate 'O método .Protect proteje a planilha passando os parâmetros para proteger 'objetos de desenho, conteúdo, cenários e passando o password digitado ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=lPass 'Muda o índice para passar para a próxima planilha lPlanAtual = lPlanAtual + 1 Wend Sheets("Concurso").Select Range("A1").Select 'O método MsgBox exibe um formulário de aviso ao usuário. MsgBox "Planilhas protegidas!" End If End Sub 'Função que desprotege todas as planilhas de um arquivo Sub lsDesprotegerTodasAsPlanilhas() 'Declara as variáveis necessárias Dim lPass As String Dim lQtdePlan As Integer Dim lPlanAtual As Integer 'Solicita a senha 'O método InputBox é utilizado para solicitar um valor através de um formulário lPass = InputBox("Desproteger todas as planilhas:", "titan") 'Inicia as variáveis 'O método Worksheets.Count passa a quantidade de planilhas existentes no arquivo lQtdePlan = Worksheets.Count lPlanAtual = 1 'Loop pelas planilhas 'A função While realiza um loop de código enquanto não passar por todas as planilhas contadas While lPlanAtual <= lQtdePlan 'O método Worksheets(lPlanAtual).Activate ativa a planilha conforme o índice atual 1, 2, 3... Worksheets(lPlanAtual).Activate 'O método .UnProtect desprotege a planilha ActiveSheet.Unprotect Password:=lPass 'Muda o índice para passar para a próxima planilha lPlanAtual = lPlanAtual + 1 Wend Sheets("Concurso").Select Range("A1").Select 'O método MsgBox exibe um formulário de aviso ao usuário. MsgBox "Planilhas desprotegidas!" End Sub Sub lsLigarTelaCheia() 'Oculta todas as guias de menu Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'Ocultar barra de fórmulas Application.DisplayFormulaBar = False 'Ocultar barra de status, disposta ao final da planilha Application.DisplayStatusBar = False 'Alterar o nome do Excel Application.Caption = "Edital Dedicado" With ActiveWindow 'Ocultar barra horizontal .DisplayHorizontalScrollBar = False 'Ocultar barra vertical .DisplayVerticalScrollBar = False 'Ocultar guias das planilhas .DisplayWorkbookTabs = False 'Oculta os títulos de linha e coluna .DisplayHeadings = False 'Oculta valores zero na planilha .DisplayZeros = False 'Oculta as linhas de grade da planilha .DisplayGridlines = False End With End Sub Sub lsDesligarTelaCheia() 'Reexibe os menus Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 'Reexibir a barra de fórmulas Application.DisplayFormulaBar = True 'Reexibir a barra de status, disposta ao final da planilha Application.DisplayStatusBar = True 'Reexibir o cabeçalho da Pasta de trabalho ActiveWindow.DisplayHeadings = True 'Retornar o nome do Excel Application.Caption = "" With ActiveWindow 'Reexibir barra horizontal .DisplayHorizontalScrollBar = True 'Reexibir barra vertical .DisplayVerticalScrollBar = True 'Reexibir guias das planilhas .DisplayWorkbookTabs = True 'Reexibir os títulos de linha e coluna .DisplayHeadings = True 'Reexibir valores zero na planilha .DisplayZeros = True 'Reexibir as linhas de grade da planilha .DisplayGridlines = True End With End Sub adicionado 44 minutos depois modifiquei e deu certo, obrigado

@Eder Neumann Óbvio, mas eu queria automaticamente.

Pessoal, eu uso o vba abaixo para bloquear todas as planilhas que tenho em uma pasta de trabalho. Porém, tem uma que eu não quero bloquear (Planilha DADOS). Como faço?

Deu certo, você poderia explicar o funcionamento do código?

Estou tentado fazer o preenchimento da tabela 2 com os dados da tabela 1 automaticamente e em loop. Tem como? adicionado 37 minutos depois Vou tentar ser mais claro. Na tabela 1 na coluna 2 tem os nomes de algumas disciplinas. Eu quero preencher a tabela 2 com os nomes das disciplina de forma cíclica e na ordem que está na coluna 1. Só que como na tabela 2 cada coluna só tem 6 linhas e os dados da tabela 1 tem 10 linhas, quero que os restantes dos dados da tabela 1 comecem na segunda coluna da tabela 2 e assim em diante. Eu só preenchi a tabela 2 como exemplo, não soube como fazer automaticamente projeto.xlsx

Eu tenho um projeto no excel de controle de notas de uma escola. Fiz uma macro para salvar o PDF na mesma pasta do arquivo, e o nome que está na célula E280 + Relatório 2º Bimestre. Porém quando gera o PDF ele é salvo nos meus documentos e não na pasta do arquivo. O código que usei foi esse: Dim seuPdfCaminho As String Dim seuPdfNome As String seuPdfCaminho = VBA.Environ(Application.DefaultFilePath) seuPdfNome = Range("E280") & " " & "- Relatório 2º Bimestre.pdf" ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ seuPdfCaminho & seuPdfNome, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub Alguém pode ajudar?