I need how change vba code

[TLS49]

This vba code is to protect formulas and worksheets

I want to unprotect worksheet with vba code

Sub protectFormulasAndEnableProtection()

Dim sht As Worksheet

On Error Resume Next

For Each sht In Sheets
    sht.Activate
    sht.Unprotect
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    If Err.Number = 1004 Then
        'No special cells found (no formulas in this case). Clear the error and take no action
        Err.Clear
    Else
        Selection.Locked = True
        Selection.FormulaHidden = False
    End If
    sht.Protect AllowFormattingColumns:=True, AllowFormattingRows:=True
Next sht

End Sub

Thanks you

Thomas

 

[sykes]

You're already unprotecting & re-protecting; are the sheets password protected?

Sub protectFormulasAndEnableProtection()

Dim sht As Worksheet

On Error Resume Next

For Each sht In Sheets
    sht.Activate
    sht.Unprotect "password"
    Cells.Select
    Selection.Locked = False
    Selection.FormulaHidden = False
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    If Err.Number = 1004 Then
        'No special cells found (no formulas in this case). Clear the error and take no action
        Err.Clear
    Else
        Selection.Locked = True
        Selection.FormulaHidden = False
    End If
    sht.Protect "password"  AllowFormattingColumns:=True, AllowFormattingRows:=True
Next sht

End Sub

 

[TLS49]

The code I post it protect all worksheets that have any formula. I want code that do opposite code do

thanks you

Thomas

 

[Fluff]

If you just want to unprotect all sheets try

Sub TLS()
   Dim Ws As Worksheet
   
   For Each Ws In Worksheets
      Ws.Unprotect
   Next Ws
End Sub

 

[TLS49]

If you just want to unprotect all sheets try

Sub TLS()
   Dim Ws As Worksheet
  
   For Each Ws In Worksheets
      Ws.Unprotect
   Next Ws
End Sub

Thanks you Fluff

 

[Fluff]

Glad we could help & thanks for the feedback.