Snasui Excel Forum

Code: Select all

    ActiveWorkbook.Worksheets("Return_status").ListObjects("Table9").Sort. _
        SortFields.Clear

Code: Select all

Sheet1.Activate.ListObjects("Table9").Sort. _
        SortFields.Clear

Code: Select all

    Range("C6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    'ActiveWorkbook.Worksheets("Return_status").ListObjects("Table9").Sort.SortFields.Clear
    Sheet3.Activate.ListObjects("Table9").Sort.SortFields.Clear 'แทนบรรทัดบนความหมายเหมือนกัน
    ActiveWorkbook.Worksheets("Return_status").ListObjects("Table9").Sort. _
        SortFields.Add Key:=Range("C6"), SortOn:=xlSortOnValues, Order:= _
        xlDescending, DataOption:=xlSortNormal

Code: Select all

    Range("C6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
'    ActiveWorkbook.Worksheets("Return_status").ListObjects("Table9").Sort.SortFields.Clear
    Sheet3.ListObjects("Table9").Sort.SortFields.Clear  'á·¹ºÃ÷Ѵº¹¤ÇÒÁËÁÒÂàËÁ×͹¡Ñ¹
'    ActiveWorkbook.Worksheets("Return_status").ListObjects("Table9").Sort.SortFields.Add Key:=Range("C6"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    Sheet3.ListObjects("Table9").Sort.SortFields.Add Key:=Range("C6"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal   'á·¹ºÃ÷Ѵº¹¤ÇÒÁËÁÒÂàËÁ×͹¡Ñ¹
'    With ActiveWorkbook.Worksheets("Return_status").ListObjects("Table9").Sort
    With Sheet3.ListObjects("Table9").Sort    'á·¹ºÃ÷Ѵº¹¤ÇÒÁËÁÒÂàËÁ×͹¡Ñ¹
        .Header = xlYes

Code: Select all

Sub ProtectAllsheets0()
    Dim sht As Worksheet
    For Each sht In Worksheets
          Select Case sht.Name
          
                Case "Form_ของบ", "Form_ตัดงบ"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True
                        
                Case "table_ของบ", "table_ตัดงบ", "PV_1", "PV_2", "Chart_1", "cal_1"   ', "FormTable_โอนเงิน", "FormTable_ยืมเงิน", "Formtable_ชดใช้เงินยืม"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
                         
                Case "conclude1", "conclude2", "conclude3", "conclude4", "conclude5", "conclude11", "conclude12", "conclude13", "conclude14"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True
                        
                Case "Return_status"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
                        
        End Select
    Next sht
End Sub

Code: Select all

[code]Sub ProtectAllsheets011()
    Dim sht As Worksheet
    For Each sht In Worksheets
          Select Case sht.Name
          
                Case "sheet1", "sheet2"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True
                        
                Case "sheet3", "sheet4", "sheet5", "sheet6", "sheet7"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
                         
                Case "sheet8", "sheet9", "sheet10", "sheet11", "sheet12"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True
                                                
        End Select
    Next sht
End Sub

Code: Select all

[code]Sub ProtectAllsheets011()
    Dim sht As Worksheet
    For Each sht In Worksheets
          Select Case sht.Name
          
                Case "sheet1", "sheet2"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True
                        
                Case "sheet3", "sheet4", "sheet5", "sheet6", "sheet7"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowFiltering:=True, AllowUsingPivotTables:=True
                         
                Case "sheet8", "sheet9", "sheet10", "sheet11", "sheet12"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True
                                                
        End Select
    Next sht
End Sub

Code: Select all

[code]Sub ProtectAllsheets011()
    Dim sht As Worksheet
    For Each sht In Worksheets
          'Select Case sht.Name
          Select Case sht.CodeName
          
                Case "sheet1", "sheet2"
                        sht.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                        , AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True
                        
        End Select
    Next sht
End Sub

Code: Select all

Case "sheet1", "sheet2"

Code: Select all

Case "Sheet1", "Sheet2"