Hallo Stefan,

goed, dat kan werken. Vraag is meervoudig:

- Is het nodig dat werkblad "Fotos" naar achteren verhuisd wordt?
- Welke werkbladen wil je samenvoegen in het PDF en in welke volgorde?
- Waarom wil je werkblad "Belijningsvlakken - inspectie" onzichtbaar maken als je het niet wilt meenemen naar de PDF?
- Wat is er mis met de heel eenvoudige code van JEC ?

Ik heb even alle "bagger" uit je code gehaald, en de naam van het gebruikte (oorspronkelijke) .xlsm bestand gebruikt als naam voor het PDF (je krijgt hier dan bvb Map1.xlsm.PDF als naam.

SoftAid,
Ben superblij met de opgeschoonde code! Was zelf te bang om teveel weg te halen zodat het niet meer zou werken......

Hieronder de antwoorden op je vragen:

- Het tabblad "Fotos" had ik naar achteren verhuisd ivm de printvolgorde
- De volgorde in de PDF is "Gegevens Import" - "Fotos"
- Het tabblad ("Belijningsvlakken - inspectie") in dit geval. (Kan ook een andere naam hebben) is een bronblad voor gegevens waar verders niets mee gedaan mag worden. Deze verberg ik zodat er niet per ongeluk wijzigingen in worden aangebracht.

Is het mogelijk en hopelijk niet teveel gevraagd om de .xslm bestandstoevoeging voor .pdf weg te laten?

Gr. Stefan

Goedemorgen,

Ik wil graag een Excel document beveiligen, maar als ik dat nu doe werken de macro's niet meer.
Ik lees op internet al erg veel over VBA, maar ik ben er niet in thuis.
In de bijlage heb ik het document gezet. Hierin wil ik dat op het tabblad 'voorblad' niks gewijzigd kan worden. In tabblad 2 vul ik echter wel de naam in wat wel weer op tabblad 'voorblad' moet mee-springen door  de = functie.
Om nu makkelijk te bewerken heb ik de tabbladen zichtbaar, maar normaliter hou ik deze verborgen en switch ik tussen de tabbladen door hyperlinks. Ik wil ook dat deze hyperlinks niet te verwijderen zijn.
Zou het iemand lukken hiervoor een code te schrijven?

Hallo Della,

in mijn laatste bericht meld ik al dat je code wel werkt als je de namen van de tabbladen juist vermeld.
Als jij de tabbladen veranderd van naam, en ook in je macro, zonder dit door te geven, dan testen wij (ik) dat met de gekende namen, en dat had ik dus pas gemerkt na mijn voorlaatste post. Maar ik heb het gecorrigeerd naar jou toe.

Wat de array betreft heb je gelijk, er stonden 3 tabbladnamen in.
Wat veroorzaakte mijn vergissing?
Je gebruikt
"Gegevens", "Import" en "Fotos"waar origineel
"Gegevens Import", "Fotos" en "Belijningsvlakken - inspectie"stonden. Je hebt daarvan
"Gegevens","Import","Foto's"
gemaakt, wat voor de verwarring zorgde.

Daarmee heb je je punt, maar niet wat betreft het gebruik van With en End With in plaats van Select.
Als je er nul,nul mee wint, dan laat ik liever het duidelijkere Select staan.

En er zijn oudere versies van Office dan 2007. Veel bedrijven werken nog steeds met '98 (en daar moet je wel declareren).

SoftAid              

... je code werkt niet?

Oh, je had een van de namen van de tabbladen niet juist overgenomen..... Als je "Gegevens Import" vervangt door "Gegevens" werkt het niet.
en je had in de array slechts 2 tabbladen opgenomen, geen drie.

Variabelen declareren doe ik steeds omdat er ook mensen meekijken die met oude versies van Excel werken.
Die mensen wil je niet in de problemen brengen door die declaraties weg te laten, toch?

Voor de rest is je code gelijk aan die van mij.

Groeten,

SoftAid              

De beste mentor die ik ooit heb gekend heeft tijdens mijn opleiding eens gezegd dat select of activate in 99% overbodig is
Deze zou moeten voldoende zijn:
Sub SavePDF_SA()
With Sheets(Array("Gegevens", "Import", "Fotos"))
Set wbA = ThisWorkbook
Set wsA = ActiveSheet
strPath = wbA.Path
If strPath = "" Then
  strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"
strFile = strName & ".pdf"
strPathFile = strPath & strFile
myFile = wbA.Name
wsA.ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFile
End With
End Sub
En al de variabelen declareren zijn ook niet meer nodig in 2024.
Dit is maar een kladje, het zou veel beter kunnen.
,