Não entendi quando diz que não consegue acessar nenhuma macro. Não consegue ve-las no editor do VBA ou não estão funcionando ? Que erro está dando ?

A única coisa que ocorreu é devido ao erro no evento da aba Menu, falta dar o espaço :
Na aba está assim :
PrivateSub Worksheet_Change(ByVal Target As Range)
e o correto é :
Private Sub Worksheet_Change(ByVal Target As Range) - é só dar um espaço entre Private e Sub.

Se não for isto, detalhe melhor.

[]s

Cara , sinceramente preciso estudar muito, uma simples besteira que não ví, a outra coisa que esta pendente é a criação da macro PDF novamente.

Poderia me mandar um passo a passo ensinando?

Cara , sinceramente preciso estudar muito, uma simples besteira que não ví, a outra coisa que esta pendente é a criação da macro PDF novamente.

Poderia me mandar um passo a passo ensinando?

Poderia explicar melhor, no modelo "Controle de Ponto" tem esta rotina que cria PDF:

Private Sub BTPDF_Click()

Dim Nome As String

Application.ScreenUpdating = False

For x = 1 To Sheets.Count

    If Sheets(x).Name <> "MENU" _
    And Sheets(x).Name <> "ATIVOS" Then
        Sheets(x).Select
        Nome = ActiveSheet.Range("G8").Value
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                   Filename:="C:Ponto" & Nome & ".pdf"
    End If

Next

        Sheets("MENU").Select

        MsgBox "Arquivos Gerados Com Sucesso!!!", vbOKOnly, "Criando PDFs..."
        
    Application.ScreenUpdating = True

End Sub

O que precisa ?

[]s

Um tutorial de como adicionar esse codigo na macro.

Um tutorial de como adicionar esse codigo na macro.

Que código ?

a "Private Sub BTPDF_Click()" é uma macro e está associada a um botão de nome "BTPDF_Click".

[]s

Amigo, desculpe mas ja estou ficando envergonhado com minha ignorância de não saber do assunto, o que preciso é que o botao "GERAR RELATORIO [ ESPELHO DE PONTO ] , de fato gere todos os arquivos em pfd incluindo a " PLANILHA DE PRODUÇÃO " :/

Este seu modelo tem 54 abas sendo 50 de nomes associados a 50 botões na aba menu, você quer que ao clicar em um Botão gere o PDF referente ao botão clicado ou que o botao "GERAR RELATORIO [ ESPELHO DE PONTO ] , gere todos os arquivos em pfd de uma vez incluindo a " PLANILHA DE PRODUÇÃO ?

todos os arquivos , incluindo PLANILHA DE PRODUÇÃO

todos os arquivos , incluindo PLANILHA DE PRODUÇÃO

ok, será somente uma rotina que ao ser acionada criara todos os arquivos (54) de uma só vez, então tem de ser mais especifico, a rotina cria o pdf e nomeia de acordo com o nome na celula G8, e as demais onde estarão os nomes que devem ser criados ?

O que vc fez de diferente da planilha que esta neste link??

viewtopic.php?t=20032

Aparentemente apenas o botao da macro que vc mudou o tipo e o local, basicamente foi isso que vi.

Se foi so isso ja copiei o codigo da planilha original para a final

https://www.sendspace.com/file/jhfvn6

Houve mudança nas formulas com relação ao ponto, consegui gerar o arquivo porem a lista de ativos a planilha de produção não geraram.

na planilha de produção será a cédula que esta mesclada (ABCDEFGHIJK no cabeçalho 1 )

na planilha de produção será a cédula que esta mesclada (ABCDEFGHIJK no cabeçalho 1 )

Como não citou o range para o nome da aba "ATIVO", deixei como "ATIVO" mesmo, e quanto a aba "NOVO" desconsiderei e não será criado pdf para ela e tambem da "MENU".

Troque a rotina anterior pela a abaixo e faça os testes.

Private Sub BTPDF_Click()

Dim Nome As String
Dim sNome2 As String

Application.ScreenUpdating = False

    For x = 1 To Sheets.Count
    
        If Sheets(x).Name <> "MENU" And Sheets(x).Name <> "NOVO" Then
            
            'ATIVOS - PLANILHA DE PRODUÇÃO
            If Sheets(x).Name = "ATIVOS" Or Sheets(x).Name = "PLANILHA DE PRODUÇÃO" Then
                
                sNome2 = Sheets(x).Name
            
                Select Case sNome2
                    Case "ATIVOS"
                        Sheets(sNome2).Select
                        
                        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                           Filename:="C:Ponto" & sNome2 & ".pdf"
                           
                    Case "PLANILHA DE PRODUÇÃO"
                        Sheets(sNome2).Select
                        
                        Nome = ActiveSheet.Range("A1").Value
                        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                               Filename:="C:Ponto" & Nome & ".pdf"
                
                End Select
            
            Else
                Sheets(x).Select
                Nome = ActiveSheet.Range("G8").Value
                ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                       Filename:="C:Ponto" & Nome & ".pdf"
        
            End If
        End If
    Next

        Sheets("MENU").Select

        MsgBox "Arquivos Gerados Com Sucesso!!!", vbOKOnly, "Criando PDFs..."
        
    Application.ScreenUpdating = True

End Sub

[]s

continua dando erro

https://www.sendspace.com/file/nkqzkj