Có thể thực hiện tác vụ Excel VBA nào trên các trang tính hoặc sổ làm việc ẩn?

Question

Bảng tính/sổ làm việc ẩn có một số hạn chế đối với những gì có thể được thực hiện trong mã VBA, như hầu hết các câu lệnh Select và Selection và bất kỳ thứ gì đến từ ActiveSheet, nhưng dường như tôi không tìm thấy danh sách nào.

Google, tài liệu được cài sẵn trong hệ thống trợ giúp và trang web của MSDN đều không thành công với tôi. ai đó có thể chỉ cho tôi phương hướng đúng không?

Edit: Các bảng tính được mở ra với

Set WB_Master = Workbooks.Open(Filename:=PATH_Master, ReadOnly:=False) 

và sau đó ẩn với

WB_Master.Windows(1).Visible = False 

Answer 1

Từ Visual Basic for Applications giúp đỡ:

Khi một đối tượng là ẩn, nó bị xóa khỏi màn hình và thuộc tính Hiển thị của nó được đặt thành Sai. Các điều khiển của đối tượng ẩn không thể truy cập được đối với người dùng, nhưng chúng có sẵn theo chương trình cho ứng dụng đang chạy, với các quy trình khác có thể giao tiếp với ứng dụng thông qua Tự động hóa và trong Windows, với các sự kiện điều khiển Timer.

Không có nhiều trợ giúp ở đó tôi sợ và tôi không thể tìm thấy nhiều thứ khác thông qua Google.

Như bạn đã nói, phương pháp Chọn và thuộc tính lựa chọn không hoạt động trên Trang tính ẩn, chúng sẽ hoạt động trên một Sổ làm việc ẩn. Tuy nhiên, nói chung, không phải lúc nào cũng hiệu quả trong việc chọn các phạm vi trong bảng tính, bạn nên làm việc với thuộc tính Range (hoạt động trên một trang tính ẩn).

EDIT:

Đoạn mã dưới đây sẽ thay đổi màu sắc của A1: A8 để Cyan ngay cả khi Worksheet không nhìn thấy được:

Dim book2 As Workbook 
Set book2 = Workbooks.Open("C:\Book2.xls") 

book2.Worksheets("Sheet1").Visible = False 
book2.Windows(1).Visible = False 

With book2.Worksheets("Sheet1").Range("A1:E8").Interior 
    .ColorIndex = 8 
    .Pattern = xlSolid 
    .PatternColorIndex = xlAutomatic 
End With 

book2.Windows(1).Visible = True 
book2.Worksheets("Sheet1").Visible = True 

Answer 2

Bạn có thể khắc phục bất kỳ giới hạn trên tờ ẩn bởi khi hiện chúng mà không có người dùng nhận ra nó, làm bất cứ điều gì bạn cần, và sau đó ẩn chúng một lần nữa.

Ví dụ này giả định Sheet2 bị ẩn.

Sub DoStuffToAHiddenSheetWithoutTheUserKnowingIt() 
    'turns off screen repainting so the user can't see what you're doing 
    'incidentally, this dramatically speeds up processing of your code 
    Application.ScreenUpdating = False 
    'note that if you're stepping through your code, screenupdating will be true anyway 

    'unhide the sheet you want to work with 
    Sheets("sheet2").Visible = True 
     'do whatever you want here, including selecting cells if you want 
     'Scagnelli is right though, only select cells if you have to 

    'when you're finished, hide the sheet again 
    Sheets("sheet2").Visible = False 

    'make sure you turn screenupdating back on, or Excel will be useless 
    Application.ScreenUpdating = True 
End Sub 

Một lừa hữu ích nếu bạn muốn tờ của bạn ẩn là để đặt chúng vào xlVeryHidden, mà sẽ ngăn chặn chúng khỏi bị liệt kê cho người dùng nếu họ cố gắng thôi ẩn chúng thông qua trình đơn hoặc ribbon.