Excel Forum

Code: Select all

Sub Edit_Fomula()
'Dim CltWB As Workbook
'Dim SrWB As Workbook
'Set CltWB = ActiveWorkbook
On Error GoTo ErrorHandler
Workbooks("PP6.xlsb").Activate
Application.ScreenUpdating = False
    Sheets("Cover").Select
'        ActiveSheet.Unprotect Password:="1"
            Range("B2").Select
               ActiveCell.Formula = "='Publish'!" & "J42"
            Range("C2").Select
                ActiveCell.Formula = "='Publish'!" & "J43"
        ActiveWorkbook.Save
        Application.ScreenUpdating = True
'        ActiveSheet.Protect Password:="1"
    ActiveWorkbook.Save
    Sheets("Cover").Select
    Application.ScreenUpdating = True
    MsgBox "Update Complete"
        Exit Sub
ErrorHandler:
    MsgBox "คุณยังไม่ได้เปิดไฟล์ที่จะแก้ไขขึ้นมา กรุณาเปิดไฟล์นั้นก่อน"
End Sub

Code: Select all

'Other code
On Error GoTo ErrorHandler
Workbooks(2).Activate
Application.ScreenUpdating = False
'Other code

Code: Select all

'Other code
On Error GoTo ErrorHandler
Workbooks(Workbooks.Count).Activate
Application.ScreenUpdating = False
'Other code