ExcelBanter - protect unprotect sheet vba

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - protect unprotect sheet vba (https://www.excelbanter.com/excel-programming/391229-protect-unprotect-sheet-vba.html)

protect unprotect sheet vba

I'm hoping someone could help with this
'Sub sort()
''
'' sort Macro
'' Macro recorded 6/11/2007 by Ibartlett
'Const csPWORD As String = "CRU"
'ActiveWorkbook.Worksheets("Sorted_BedBoard_List") .Unprotect
Password:=csPWORD
'
'
' Sheets("Sorted_BedBoard_List").Select
' Columns("A:G").Select
' Selection.sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
' OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
' DataOption1:=xlSortNormal
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' Sheets("Sheet1").Select
' Range("D5").Select
' ActiveWorkbook.Worksheets("Sorted_BedBoard_List"). Protect
Password:=csPWORD
'
'End Sub

this doesn't work

this works but doesn't incorporate the sheet protection of course
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 6/12/2007 by Ibartlett
'

Application.ScreenUpdating = False

Sheets("Sorted_BedBoard_List").Select
Columns("A:G").Select
Selection.sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Select
Range("D5").Select
Application.ScreenUpdating = True

End Sub
Thanks for any help
Bart

protect unprotect sheet vba

Ian,

try this:-

Sub standard()
Application.ScreenUpdating = False

With Sheets("Sorted_BedBoard_List")
.Select
.Unprotect Password:="CRU"
End With
Columns("A:G").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet2").Select
Range("D5").Select
With Sheets("Sorted_BedBoard_List")
.Select
.Protect Password:="CRU"
End With
Application.ScreenUpdating = True

End Sub

Mike

"ian bartlett" wrote:

I'm hoping someone could help with this
'Sub sort()
''
'' sort Macro
'' Macro recorded 6/11/2007 by Ibartlett
'Const csPWORD As String = "CRU"
'ActiveWorkbook.Worksheets("Sorted_BedBoard_List") .Unprotect
Password:=csPWORD
'
'
' Sheets("Sorted_BedBoard_List").Select
' Columns("A:G").Select
' Selection.sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
' OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
' DataOption1:=xlSortNormal
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' Sheets("Sheet1").Select
' Range("D5").Select
' ActiveWorkbook.Worksheets("Sorted_BedBoard_List"). Protect
Password:=csPWORD
'
'End Sub

this doesn't work

this works but doesn't incorporate the sheet protection of course
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 6/12/2007 by Ibartlett
'

Application.ScreenUpdating = False

Sheets("Sorted_BedBoard_List").Select
Columns("A:G").Select
Selection.sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Select
Range("D5").Select
Application.ScreenUpdating = True

End Sub
Thanks for any help
Bart

protect unprotect sheet vba

Mike H

Thank you very much that did the trick.

Ian

"ian bartlett" wrote in message
news:CFUbi.19823$NV3.7570@pd7urf2no...
I'm hoping someone could help with this
'Sub sort()
''
'' sort Macro
'' Macro recorded 6/11/2007 by Ibartlett
'Const csPWORD As String = "CRU"
'ActiveWorkbook.Worksheets("Sorted_BedBoard_List") .Unprotect
Password:=csPWORD
'
'
' Sheets("Sorted_BedBoard_List").Select
' Columns("A:G").Select
' Selection.sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes,
_
' OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
' DataOption1:=xlSortNormal
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' Sheets("Sheet1").Select
' Range("D5").Select
' ActiveWorkbook.Worksheets("Sorted_BedBoard_List"). Protect
Password:=csPWORD
'
'End Sub

this doesn't work

this works but doesn't incorporate the sheet protection of course
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 6/12/2007 by Ibartlett
'

Application.ScreenUpdating = False

Sheets("Sorted_BedBoard_List").Select
Columns("A:G").Select
Selection.sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Select
Range("D5").Select
Application.ScreenUpdating = True

End Sub
Thanks for any help
Bart

protect unprotect sheet vba

no need to select as far as i know

Sub Protect_All_Sheets()
Dim i As Long
For i = 1 To Worksheets.Count
With Worksheets(i)
.Protect
End With
Next

End Sub

--

Gary

"Mike H" wrote in message
...
Ian,

try this:-

Sub standard()
Application.ScreenUpdating = False

With Sheets("Sorted_BedBoard_List")
.Select
.Unprotect Password:="CRU"
End With
Columns("A:G").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet2").Select
Range("D5").Select
With Sheets("Sorted_BedBoard_List")
.Select
.Protect Password:="CRU"
End With
Application.ScreenUpdating = True

End Sub

Mike

"ian bartlett" wrote:

I'm hoping someone could help with this
'Sub sort()
''
'' sort Macro
'' Macro recorded 6/11/2007 by Ibartlett
'Const csPWORD As String = "CRU"
'ActiveWorkbook.Worksheets("Sorted_BedBoard_List") .Unprotect
Password:=csPWORD
'
'
' Sheets("Sorted_BedBoard_List").Select
' Columns("A:G").Select
' Selection.sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
' OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
' DataOption1:=xlSortNormal
' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
' Sheets("Sheet1").Select
' Range("D5").Select
' ActiveWorkbook.Worksheets("Sorted_BedBoard_List"). Protect
Password:=csPWORD
'
'End Sub

this doesn't work

this works but doesn't incorporate the sheet protection of course
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 6/12/2007 by Ibartlett
'

Application.ScreenUpdating = False

Sheets("Sorted_BedBoard_List").Select
Columns("A:G").Select
Selection.sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sheet1").Select
Range("D5").Select
Application.ScreenUpdating = True

End Sub
Thanks for any help
Bart