Afdrukken verborgen werkblad

[stefano]

Hoi, hallo,

Ik wil met behulp van onderstaande code een afdruk maken van een werkblad dat verborgen is.

Mijn code :

Sub uitleen()
'    Application.Goto Reference:="R1C1"
    Range("d1").Select
    ActiveCell.FormulaR1C1 = InputBox("Geef codenummer van het boek in ", "Afdruk uitleenformulier.")
    
    Sheets("afdruk").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("lijst - liste").Select
'    Application.Goto Reference:="R1C1"
End Sub

Mijn vraag :

Afdrukken geeft een fout : ' Methode Select van klasse Worksheet is mislukt '. Lijkt me logisch dat je niet kan afdrukken wat verborgen staat. Hoe kan ik dit omzeilen ?

 

[RoCompy87]

Sub uitleen()
'    Application.Goto Reference:="R1C1"
    Range("d1").Select
    ActiveCell.FormulaR1C1 = InputBox("Geef codenummer van het boek in ", "Afdruk uitleenformulier.")
    
[B]Sheets("afdruk").Visible=True   [/B] 
Sheets("afdruk").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
[B]Sheets("afdruk").Visible=False[/B]
    Sheets("lijst - liste").Select
'    Application.Goto Reference:="R1C1"
End Sub

 

[stefano]

Wanneer ik de makro aanklik op mijn beveiligde sheet, dan krijg ik een foutmelding. Zonder beveiliging werkt alles. Is dit logisch en hoe kan ik ( alweer ) omzeilen ?

dbv

 

[RoCompy87]

Is CEL d1 ook beveiligd op je beveiligde blad? Mogelijk zit daar de oorzaak. (Klik met de rechtermuisknop op cel D1 en haal op het laatste tabblad het vinkje voor 'Beveiligd' weg.)

 

[Wigi]

Waarom moet cel D1 eigenlijk geselecteerd worden?