Toestemming tot afdrukken - Excel 2007

[Dixon]

Beste,

Ik heb 1 excel-tabblad dat 2 bladzijden tekst bevat.

Pagina 1: is om af te drukken en voor af te geven aan derden.

Pagina 2: is enkel voor intern gebruik.

Graag zou ik weten of er een mogelijkheid is dat bij het afdrukken Excel expliciet de toestemming vraagt om Pagina 2 ook af te drukken.

Vb: 'Wilt U pagina 2 ook afdrukken?' JA / NEE

Bij JA: eventueel wachtwoord ingeven en, beide pagina's worden afgedrukt.

Bij NEE: wordt enkel pagina 1 afgedrukt.

Is dit mogelijk?

Zo ja hoe kan ik dit bekomen?

Bedankt!

[bucky]

Dixon,

Ik ben geen VBA man, maar heb ooit eens zoiets gemaakt, ga het opzoeken.

Misschien komt wel iemand eerder met de oplossing.

bucky

[bucky]

Sub afdrukken()
If MsgBox("wil je Blad2 ook afdrukken ", vbYesNo, "2 Bladen afdrukken") = vbYes Then
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True
Else
   ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
   End If
End Sub

Test deze eerst maar eens uit, is nog zonder wachtwoord.

Plak de code in een Module, en hang er een knoppie aan.

bucky

edit:

Zie juist dat je 2 bladzijden op één werkblad hebt staan, dat moet dan aangepast worden, ga kijken of het lukt. Is het niet mogelijk om ze op twee afzonderlijken Werkbladen te zetten, ivm wachtwoord?[TABLE=width: 64]

[TR]

[TD]

[TABLE=width: 48]

[TR]

[TD=width: 64, bgcolor: transparent][/TD]

[/TR]

[/TABLE]

[/TD]

[/TR]

[TR]

[TD][/TD]

[/TR]

[TR]

[TD][/TD]

[/TR]

[TR]

[TD][/TD]

[/TR]

[TR]

[TD][/TD]

[/TR]

[TR]

[TD][/TD]

[/TR]

[TR]

[TD][/TD]

[/TR]

[TR]

[TD][/TD]

[/TR]

[TR]

[TD][/TD]

[/TR]

[/TABLE]

8 oktober 2012 aangepast door bucky
edit

[popipipo]

Ik denk (als niet vba specialist) dat je geen knopje moet gebruiken maar:

'Private Sub Workbook_BeforePrint(Cancel As Boolean)'

Anders kun je nog alles uitprinten zonder het knopje. (Ik heb het niet uitgetest)

[bucky]

Dit is een duplo bericht, dat ik niet kan verwijderen.

9 oktober 2012 aangepast door bucky
Duplo bericht

[bucky]

Ik denk dat je gelijk hebt Willem, maar zolang de topic starter zich niet meld en/of reageert op mijn edit, wachten we rustig af.

Wat niet wilt zeggen dat ik het voor mezelf niet ga uittesten, maar is niet meer voor vanavond.

Bedankt voor de tip, ook ik ben geen VBA specialist.

bucky

[Dixon]

Hey Bucky,

Bedankt voor de reactie.

Het is mogelijk om dit op een ander werkblad te zetten ja. Maar de bedoeling van ze naast elkaar te zetten op 1 blad was juist om de onmiddellijke impacte zien van de gegevens op beide blz.

Dus als ik links op blad 1 iets aanpas, wat geeft dat op blad 2. Op die manier kreeg ik de impact te zien.

Bedankt.

[bucky]

Dixon,

Omdat mijn VBA kennis zeer nihil is, zou ik het volgende proberen.

Zet een kopie van blz.2 op Werkblad2, stel het afdrukbereik op Werkblad1 af voor blz.1

En dan zou ik: Sub afdrukken() vervangen door 'Private Sub Workbook_BeforePrint (Cansel As Boolean)'

Om reden die "popipipo" aangeeft.

bucky

10 oktober 2012 aangepast door bucky

[bucky]

Zou het nog gelukt zijn met Dixon?

[Dixon]

Bedankt Bucky!

Mits wat gesukkel is het gelukt.

Bedankt!