Private Sub Workbook_Open()
Sheet1.Activate
Range("A1").Select
End Sub
Private Sub Workbook_Open()
Sheet1.Unprotect ("xxxxx")
Sheet1.Activate
Range("A1").Select
End Sub
voda đã viết:Theo mình, bạn mở cửa sổ soạn thảo ra (Alt+F11), click đôi vào thisworkbook viết dòng lệnh sau:
Private Sub Workbook_Open()
Sheet1.Activate
Range("A1").Select
End Sub
Nếu sheet1 bị protect thì:
Private Sub Workbook_Open()
Sheet1.Unprotect ("xxxxx")
Sheet1.Activate
Range("A1").Select
End Sub
xxxxx là pass