Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Unprotect sheet when printing
Have the below code to print a sheet, increment a invoice number and remove
protection from sheet, at the moment the passowrd is nothing I nee to change this to qwert and edit the formula to up protect sheet on print and re protect it after the incrementing of the invoice number. Any help would be appreaciated. Sub dayprint() ' ' dayprint Macro ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheet13.Unprotect 'Increment the invoice number [e3] = [e3] + 1 Sheet13.Protect ' Save Macro ' Macro recorded 19/08/2005 ' ' ActiveWorkbook.Save End Sub |
#2
|
|||
|
|||
Hi BBC1,
Try something like: Sub dayprint() Const PWORD As String = "qwert" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True With ThisWorkbook.Sheets("Sheet13") .Unprotect Password:=PWORD 'Increment the invoice number With .Range("E3") .Value = .Value + 1 End With .Protect Password:=PWORD End With ActiveWorkbook.Save End Sub --- Regards, Norman "bbc1" wrote in message ... Have the below code to print a sheet, increment a invoice number and remove protection from sheet, at the moment the passowrd is nothing I nee to change this to qwert and edit the formula to up protect sheet on print and re protect it after the incrementing of the invoice number. Any help would be appreaciated. Sub dayprint() ' ' dayprint Macro ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheet13.Unprotect 'Increment the invoice number [e3] = [e3] + 1 Sheet13.Protect ' Save Macro ' Macro recorded 19/08/2005 ' ' ActiveWorkbook.Save End Sub |
#3
|
|||
|
|||
Thankyou works great.
"Norman Jones" wrote: Hi BBC1, Try something like: Sub dayprint() Const PWORD As String = "qwert" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True With ThisWorkbook.Sheets("Sheet13") .Unprotect Password:=PWORD 'Increment the invoice number With .Range("E3") .Value = .Value + 1 End With .Protect Password:=PWORD End With ActiveWorkbook.Save End Sub --- Regards, Norman "bbc1" wrote in message ... Have the below code to print a sheet, increment a invoice number and remove protection from sheet, at the moment the passowrd is nothing I nee to change this to qwert and edit the formula to up protect sheet on print and re protect it after the incrementing of the invoice number. Any help would be appreaciated. Sub dayprint() ' ' dayprint Macro ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheet13.Unprotect 'Increment the invoice number [e3] = [e3] + 1 Sheet13.Protect ' Save Macro ' Macro recorded 19/08/2005 ' ' ActiveWorkbook.Save End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Enlarging spread sheet for printing? | Excel Discussion (Misc queries) | |||
Block an area of sheet from Printing? | Excel Discussion (Misc queries) | |||
Copy 1 Sheet to Another | Excel Worksheet Functions | |||
Simple question - one xls sheet keeps printing 6 copies as default | Excel Discussion (Misc queries) | |||
Subset of one sheet on another sheet | Excel Discussion (Misc queries) |