Snasui Excel Forum

Code: Select all

Sub Approve()
'
' Approve áÁâ¤Ã
'
' á»é¹¾ÔÁ¾ìÅÑ´: Ctrl+Shift+A
'
    Sheets("Master").Visible = True
    Sheets("Master").Select
    Sheets("Master").Copy After:=Sheets(4)
    Sheets("Master (2)").Select
    Sheets("Master (2)").Name = "New"
    Range("D1:H1").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Master").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("B5:M19").Select
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Selection.Locked = True
    Selection.FormulaHidden = True
    Range("I1").Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "20001"
    Range("K1").Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("K2").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
    Range("I3:K3").Select
    ActiveWindow.SmallScroll Down:=-3
    Range("K2").Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.Font.Size = 20
    On Error GoTo Password_error
ActiveSheet.Protect (InputBox("¡ÃسÒãÊèÃËÑÊ͹ØÁѵÔ", ""))
ActiveSheet.Protect = "e20tfl"
Password_error:
If Err.Number = 1004 Then
MsgBox "ãÊèÃËÑÊÃѺ¡è͹¡ÒÃ͹ØÁѵÔ!"
End If
End Sub

Code: Select all

Sub Approve()
    '
    ' Approve แมโคร
    '
    ' แป้นพิมพ์ลัด: Ctrl+Shift+A
    '
    '    Sheets("Master").Visible = True
    '    Sheets("Master").Select
        Sheets("Master").Copy After:=Sheets(Sheets.Count)
        Sheets("Master (2)").Visible = True
        Sheets("Master (2)").Select
        Sheets("Master (2)").Name = Format(Now, "ddmmyy\_h.mm.ss")
        Range("D1:H1").Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
    '    Sheets("Master").Select
    '    ActiveWindow.SelectedSheets.Visible = False
        Sheets(Sheets.Count).Select
        Range("B5:M19").Select
    '    ActiveWindow.ScrollRow = 3
    '    ActiveWindow.ScrollRow = 1
        Selection.Locked = True
        Selection.FormulaHidden = True
        Range("I1").Select
        With Selection.Font
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
        End With
        Range("I2").Select
        ActiveCell.FormulaR1C1 = "20001"
        Range("K1").Select
        With Selection.Font
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
        End With
        Range("K2").Select
        ActiveCell.FormulaR1C1 = "=NOW()"
        Range("I3:K3").Select
    '    ActiveWindow.SmallScroll Down:=-3
        Range("K2").Select
        With Selection.Font
            .ColorIndex = xlAutomatic
            .TintAndShade = 0
        End With
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Selection.Font.Size = 20
        On Error GoTo Password_error
    ActiveSheet.Protect (InputBox("กรุณาใส่รหัสอนุมัติ", ""))
    ActiveSheet.Protect = "e20tfl"
Password_error:
    If Err.Number = 1004 Then
        MsgBox "ใส่รหัสรับก่อนการอนุมัติ!"
    End If
End Sub