Есть код
как его приспособить для сохранения выбранной (так же числом) вкладки в Excel...исходная книга защищена, листы тоже защищены.
Код |
---|
Sub ПечатьPDF_выборочно() s = InputBox("Выбрать порядковый номер вкладки", "Печать листов", "1,2,4") If StrPtr(s) = 0 Or s = "" Then Exit Sub a = Split(s, ",") Filename = Application.GetSaveAsFilename(fileFilter:="Файлы PDF (*.pdf), *.pdf") sc = Sheets.Count Dim b() As String n = 0 For i = 0 To UBound(a) If CInt(a(i)) <= sc Then ReDim Preserve b(0 To n) b(n) = Sheets(CInt(a(i))).Name n = n + 1 End If Next Sheets(b).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub |