I would like to unhide the row after printing

[itsgrady]

I’m not able to add the code to unhide all rows after printing. It keeps saying broken code. I would like unhide all rows after printing. Thanks for the help.

Sub Hide_Unhide_Rows()

Dim sPass As String

sPass = InputBox("Hello Grady, I hope you enjoy the print job!", "Password")

If sPass = "again" Then ' Your password is "again"

Else

MsgBox " Incorrect Password, Try Again. "

Exit Sub



End If

ActiveSheet.Unprotect

For Each cell In Range("B23:B67")

If cell.Value = "14" Then cell.EntireRow.Hidden = True

If cell.Value = "<14" Then cell.EntireRow.Hidden = False

Next cell

ActiveWindow.SmallScroll Down:=-16

Application.Goto Reference:="Print_Area"

ActiveWindow.SmallScroll Down:=-62

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _

IgnorePrintAreas:=False

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False, AllowSorting:=True, AllowFiltering:=True

End Sub

 

[DanteAmor]

Try:

Sub Hide_Unhide_Rows()
  Dim sPass As String
  Dim cell As Range

  sPass = InputBox("Hello Grady, I hope you enjoy the print job!", "Password")
  If sPass = "again" Then ' Your password is "again"
  Else
    MsgBox " Incorrect Password, Try Again. "
    Exit Sub
  End If
 
  ActiveSheet.Unprotect
  For Each cell In Range("B23:B67")
    If cell.Value = "14" Then cell.EntireRow.Hidden = True
    If cell.Value < "14" Then cell.EntireRow.Hidden = False    'I'm assuming it must be less than 14, so the < operator goes outside the quotes.
  Next cell
  Application.Goto Reference:="Print_Area"
  ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
 
  Range("23:67").EntireRow.Hidden = False           'To make the range of rows visible
  ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, _
    AllowSorting:=True, AllowFiltering:=True
 
End Sub

 

[itsgrady]

Try:

Sub Hide_Unhide_Rows()
  Dim sPass As String
  Dim cell As Range

  sPass = InputBox("Hello Grady, I hope you enjoy the print job!", "Password")
  If sPass = "again" Then ' Your password is "again"
  Else
    MsgBox " Incorrect Password, Try Again. "
    Exit Sub
  End If
 
  ActiveSheet.Unprotect
  For Each cell In Range("B23:B67")
    If cell.Value = "14" Then cell.EntireRow.Hidden = True
    If cell.Value < "14" Then cell.EntireRow.Hidden = False    'I'm assuming it must be less than 14, so the < operator goes outside the quotes.
  Next cell
  Application.Goto Reference:="Print_Area"
  ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
 
  Range("23:67").EntireRow.Hidden = False           'To make the range of rows visible
  ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, _
    AllowSorting:=True, AllowFiltering:=True
 
End Sub

Thank you very much your help. I appreciate the other tweaks to code as well. The code worked perfectly.

I am surprise that only row at a time is hidden and you can watch the process. Seems like it would do it a lot faster.

Thanks again for your time and for your expertise.

 

[DanteAmor]

I am surprise that only row at a time is hidden and you can watch the process. Seems like it would do it a lot faster.

I don't know exactly what you mean, but try with turn off screen updating:

Sub Hide_Unhide_Rows()
  Dim sPass As String
  Dim cell As Range

  sPass = InputBox("Hello Grady, I hope you enjoy the print job!", "Password")
  If sPass = "again" Then ' Your password is "again"
  Else
    MsgBox " Incorrect Password, Try Again. "
    Exit Sub
  End If
 
Application.ScreenUpdating = False

  ActiveSheet.Unprotect
  For Each cell In Range("B23:B67")
    If cell.Value = "14" Then cell.EntireRow.Hidden = True
    If cell.Value < "14" Then cell.EntireRow.Hidden = False    'I'm assuming it must be less than 14, so the < operator goes outside the quotes.
  Next cell
  Application.Goto Reference:="Print_Area"
  ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
 
  Range("23:67").EntireRow.Hidden = False           'To make the range of rows visible
  ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, _
    AllowSorting:=True, AllowFiltering:=True
 
Application.ScreenUpdating = True

End Sub

 

[itsgrady]

I don't know exactly what you mean, but try with turn off screen updating:

Sub Hide_Unhide_Rows()
  Dim sPass As String
  Dim cell As Range

  sPass = InputBox("Hello Grady, I hope you enjoy the print job!", "Password")
  If sPass = "again" Then ' Your password is "again"
  Else
    MsgBox " Incorrect Password, Try Again. "
    Exit Sub
  End If
 
Application.ScreenUpdating = False

  ActiveSheet.Unprotect
  For Each cell In Range("B23:B67")
    If cell.Value = "14" Then cell.EntireRow.Hidden = True
    If cell.Value < "14" Then cell.EntireRow.Hidden = False    'I'm assuming it must be less than 14, so the < operator goes outside the quotes.
  Next cell
  Application.Goto Reference:="Print_Area"
  ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
 
  Range("23:67").EntireRow.Hidden = False           'To make the range of rows visible
  ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:=False, _
    AllowSorting:=True, AllowFiltering:=True
 
Application.ScreenUpdating = True

End Sub

Thanks for the screen updating code. It made the process a lot better.