Snasui Excel Forum

Code: Select all

Sub ตั้งค่าเนื้อหา()
Application.ScreenUpdating = False
    Dim rng As Range
            Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1", "C1T2", "C2T2", "C3T2", "C4T2", _
        "C5T2")).Select
        Range("E7:X57,AB8:AC57,AG8:AG57,AJ8:AK57").Select
        Set rng = Selection
        rng.Borders.LineStyle = xlContinuous
        rng.Font.Name = "Angsana New"
        rng.Font.Size = 14
        rng.HorizontalAlignment = xlCenter
        rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
            Range("A1").Select
        Application.ScreenUpdating = True
    End Sub

Code: Select all

Sub ตั้งค่าเนื้อหา()
    Call UnProtectAll2
    Application.ScreenUpdating = False
    Dim rng As Range
            Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1", "C1T2", "C2T2", "C3T2", "C4T2", _
        "C5T2")).Select
        Range("E7:X57,AB8:AC57,AG8:AG57,AJ8:AK57").Select
        Set rng = Selection
        rng.Borders.LineStyle = xlContinuous
        rng.Font.Name = "Angsana New"
        rng.Font.Size = 14
        rng.HorizontalAlignment = xlCenter
        'rng.Borders(xlInsideHorizontal).LineStyle = xlContinuous
            Range("A1").Select
        Application.ScreenUpdating = True
        Call ProtectAll
    End Sub

Code: Select all

Sub UnProtectAll2()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect Password:="2500"
Next ws
End Sub

Code: Select all

Sub ProtectAll()
    ActiveWorkbook.Protect Password:="2500", Structure:=True
    For Each ws In Worksheets
        ws.Protect Password:="2500"
    Next
        Range("M32:P32").Select
    ActiveCell.FormulaR1C1 = "สถานะ : ป้องกันการแก้ไข"
    Range("I5").Select
End Sub

Code: Select all

Sub ตั้งค่าเนื้อหา()
            Call UnProtectAll2
            Application.ScreenUpdating = False
            Dim rng As Range
            Sheets(Array("C1T1", "C2T1", "C3T1", "C4T1", "C5T1", "C1T2", "C2T2", "C3T2", "C4T2", _
            "C5T2")).Select
            Range("E7:X57,AB8:AC57,AG8:AG57,AJ8:AK57").Select
            Cells.Select
            Selection.Borders(xlInsideVertical).LineStyle = xlNone
            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
            Range("A4:AR57").Select
            Set rng = Selection
            rng.Borders.LineStyle = xlContinuous
            rng.Font.Name = "Angsana New"
            rng.Font.Size = 14
            rng.HorizontalAlignment = xlCenter
            Range("B8:C57").Select
            Selection.Borders(xlInsideVertical).LineStyle = xlNone
            Range("B8:C57,AR8:AR57").Select
            Selection.HorizontalAlignment = xlLeft
            Range("A1").Select
            Application.ScreenUpdating = True
            Call ProtectAll
    End Sub