Allow sorting on a protected sheet (Is it possible)

[drom]

Hi and thanks in advance !

I hace the following macro created recording a macro and adjusting a few things, eg

Sub Macro2()

Dim wPass As String:        wPass = ""

    ActiveSheet.Unprotect
      Debug.Print Err, Err.Description
      'The inmediate window Shows 0
    
    ActiveSheet.Unprotect Password:=wPass
      Debug.Print Err, Err.Description
      'The inmediate window Shows 0
    
    ActiveSheet.Protect _
      UserInterfaceOnly:=True, _
        Password:=wPass, _
      DrawingObjects:=True, _
      Contents:=True, _
      Scenarios:=True, _
      AllowFormattingCells:=True, _
      AllowFormattingColumns:=True, _
      AllowFormattingRows:=True, _
      AllowInsertingColumns:=True, _
      AllowInsertingRows:=True, _
      AllowInsertingHyperlinks:=True, _
      AllowDeletingColumns:=True, _
      AllowDeletingRows:=True, _
      AllowSorting:=True, _
      AllowFiltering:=True, _
      AllowUsingPivotTables:=True
      
      Debug.Print Err, Err.Description
      'The inmediate window Shows 0
    
End Sub

My problem:

• Sorting does not work

If I use :

Sub Macro3()
    ActiveSheet.Unprotect
      Debug.Print Err, Err.Description
      'The inmediate window Shows 0    
    ActiveSheet.Unprotect Password:=wPass
      Debug.Print Err, Err.Description
      'The inmediate window Shows 0
    ActiveSheet.Protect _
      AllowSorting:=True
    
      Debug.Print Err, Err.Description
      'The inmediate window Shows 0
End Sub

This shorter macro, easyer to check stil not working

What am I missing

Itm it possible to sort in a protected tab/sheet ?

 

[MikeVol]

Hmmm...

Option Explicit

Sub Macro1()
    Dim wPass As String: wPass = ""
   
    With ActiveSheet
        .Unprotect Password:=wPass
   
        With .Range("A1:D100")
            .Locked = False
            .FormulaHidden = False
        End With
   
        .Protect Password:=wPass, UserInterfaceOnly:=True, _
            DrawingObjects:=True, Contents:=True, Scenarios:=True, _
            AllowSorting:=True, AllowFiltering:=True
    End With
   
End Sub

Protection.AllowSorting property (Excel)

 

[drom]

Hmmm...

Option Explicit

Sub Macro1()
    Dim wPass As String: wPass = ""
  
    With ActiveSheet
        .Unprotect Password:=wPass
  
        With .Range("A1:D100")
            .Locked = False
            .FormulaHidden = False
        End With
  
        .Protect Password:=wPass, UserInterfaceOnly:=True, _
            DrawingObjects:=True, Contents:=True, Scenarios:=True, _
            AllowSorting:=True, AllowFiltering:=True
    End With
  
End Sub

Protection.AllowSorting property (Excel)

Is it possible to do this without putting .Locked = False ?
I am using tables and I cant unlock the columns with formulas

Thanks

 

[Fluff]

No, you can only sort cells that are unlocked.

 

[MikeVol]

You read the Help on the link provided?

Sorting can only be performed on unlocked or unprotected cells in a protected worksheet.