Private Sub btnExportarFiltros_Click() vbSimNao = 0 vbSimNao = MsgBox("Deseja exportar o 'Relatório de Acompanhamento'?", vbYesNo, "Exportar Relatório") 'se resposta for sim, ele exclui, sai e desmarca If vbSimNao = 6 Then Call MyDesbloqueio Sheets("Acompanhamento").Visible = True ultAcompanhamento = ultAdministrador = Application.WorksheetFunction.CountA(Sheets("Acompanhamento").Range("A:A")) myMesExp = Format(Month(Date), "0") 'STRING myAnoExp = Format(Year(Date), "0000") 'STRING myDataExp = myMesExp & "_" & myAnoExp 'STRING acompanhamentoPDF = ThisWorkbook.Path & "\" & myDataExp & " - Relatório de Acompanhamento" & ".pdf" Sheets("Acompanhamento").Range("a1:i" & ultAcompanhamento).ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=acompanhamentoPDF Sheets("Acompanhamento").Visible = xlSheetVeryHidden ActiveWorkbook.Save MsgBox ("O 'Relatório de Acompanhamento' foi exportado para a pasta (" & ThisWorkbook.Path & ")."), _ vbInformation, "Status da Exportação" Call MyBloqueio Else Exit Sub End If End Sub
Ignore "Call MyDesbloqueio" e "Call MyBloqueio" Isso exibe a aba oculta: Sheets("Acompanhamento").Visible = True E isso oculta e não permite exibição sem senha: Sheets("Acompanhamento").Visible = xlSheetVeryHidden
