Snasui Excel Forum

Code: Select all

Sub CusID1_Click()
        Windows("CustomID_Share.xlsx").Activate
                Cells.Select
                Range("A:Q").Activate
                Selection.Copy
        Windows("PO.Form.xlsm").Activate
                ActiveSheet.Unprotect   '<=== ยกเลิกป้องกันชีท Suppliers
                Sheets("Suppliers").Range("A1").Select
                ActiveSheet.Paste
                ActiveSheet.Protect     '<=== ป้องกันชีท Suppliers
                ThisWorkbook.Save
End Sub

Code: Select all

Sub CopyCusID_Click()             
        ActiveSheet.Unprotect            
        Windows("CustomID_Share.xlsx").Activate
        ActiveWindow.WindowState = xlNormal
        ActiveWindow.WindowState = xlNormal
        Cells.Select
        Selection.Copy
        Windows("PO.Form.xlsm").Activate
        ActiveWindow.WindowState = xlNormal
        ActiveWindow.WindowState = xlNormal
        Cells.Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        ActiveSheet.Protect    
        Cells.Select
        ActiveWorkbook.Save
End Sub