Macro to unlock all cells on all sheets

[waterbottle2]

Hey there. I'm trying to create a macro that unlocks all cells on all worksheets in the active workbook. I've gotten it to work on the active worksheet, but I can't figure out how to make the macro apply to all worksheets. This is what I have so far:

Sub UnlockCells()
'
' UnlockCells Macro
'
' Keyboard Shortcut: Ctrl+Shift+O
'
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Cells.Select
        Selection.Locked = False
        Selection.FormulaHidden = False
    Next ws
End Sub

 

[JoeMo]

Hey there. I'm trying to create a macro that unlocks all cells on all worksheets in the active workbook. I've gotten it to work on the active worksheet, but I can't figure out how to make the macro apply to all worksheets. This is what I have so far:

Sub UnlockCells()
'
' UnlockCells Macro
'
' Keyboard Shortcut: Ctrl+Shift+O
'
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        Cells.Select
        Selection.Locked = False
        Selection.FormulaHidden = False
    Next ws
End Sub

You can omly select cells on the activeworksheet, but selecting them is not necessary. Try:

For Each ws In ActiveWorkbook.Worksheets
        ws.Cells.Locked = False
        ws.Cells.FormulaHidden = False
Next ws

 

[timfritsch]

Try:

Sub UnlockCells()
'
' UnlockCells Macro
'
' Keyboard Shortcut: Ctrl+Shift+O
'
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        with ws
            .Cells.Locked = False
            .cells.FormulaHidden = False
        end with
    Next ws
End Sub

Tim

 

[waterbottle2]

The code worked! Thank you both so much.