Posts by adriankavanagh

Hello everyone.

I have individual hyperlinks in individual cells on a worksheet and I want to be able to protect the worksheet so users can only select/use the hyperlink without selecting the cell.

Is there a VBA code I need to do this please?

thanks in advance

Thanks very much for all your help jolivanes. I've decided to use your first code and just use the advanced options to hide all sheet tabs. Next project...protect a worksheet but only enable hyperlinks on the sheet. Seems to be tricky

Quote from jolivanes

Have a read here.
https://www.ozgrid.com/forum/f…/37596-print-double-sided

Thanks for helping me. I'll have to persevere

Hi that has worked great.....apart from now the selected sheets will not print out double sided. Any ideas please?

thankyou so much. I will try this asap and let you know. this coding is amazing as to what it lets you do.

No but I will .thank you. However I do not know the code for printing the selective hidden sheets. Do you know what it is please?

I have a command button, awaiting a code, which I want to use to print specific hidden sheets in my workbook. I don't want it to show the hidden sheet before printing. I want the sheet with the command button to remain in view the whole time. Ideally I would also prefer not see the print dialogue box either. Can someone help me please? I've tried but to no avail.

Hello Ive tried to follow the above help but cant seem to get the command button to print the hidden sheets without showing the sheets.
this is the code ive used:

Sub printout()
'
'
Dim rngtoprint
With Application
.ScreenUpdating = False
.EnableEvents = False
End With


Set rngtoprint = Sheet5
rngtoprint.printout Preview:=False
Set rngtoprint = Sheet6
rngtoprint.printout Preview:=False
Set rngtoprint = Sheet7
rngtoprint.printout Preview:=False
Set rngtoprint = Sheet8
rngtoprint.printout Preview:=False
Set rngtoprint = Sheet9
rngtoprint.printout Preview:=False
Set rngtoprint = Sheet10
rngtoprint.printout Preview:=False
Set rngtoprint = Sheet11
rngtoprint.printout Preview:=False
Set rngtoprint = Sheet12
rngtoprint.printout Preview:=False
Set rngtoprint = Sheet13
rngtoprint.printout Preview:=False


With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

My hidden sheets are sheet 5 to sheet 13 and named on the TAB as HO1 to HO9
I get a run-time error '1004', saying 'PrintOut method of Worksheet class failed'

can anyone help please?