Unprotect sheet when printing

[bbc1]

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

[Norman Jones]

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" <[email protected]> wrote in message
news:[email protected]...
> 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

[bbc1]

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" <[email protected]> wrote in message
> news:[email protected]...
> > 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
>
>
>