Xin hỏi Wooksheet Class là gì ? (1 người xem)

[tedaynui]

Mình có 1 file nhưng khi vào Properties để chỉnh thuộc tính ẩn/hiện thì nó không cho chỉnh và báo lỗi là Unable to set the Visible Property of the Wooksheet Class. Thậm chí Insert hay Delete Sheet nó cũng không cho. Vậy Nhờ các bạn giải thích dùm Worksheet Class là gì ? Vì sao bị lội này và khắc phục làm sao ?
Xin cảm ơn !

TDN

 

[BNTT]

Cái này chắc phải nhờ bác Pê tê em dịch dùm:

Worksheet Class:
The Microsoft.Office.Tools.Excel.Worksheet host item is a Microsoft.Office.Interop.Excel.Worksheet object that exposes events and acts as a container for controls.

Tedaynui xem thêm bài này thử: http://www.giaiphapexcel.com/forum/showthread.php?t=3848

 

[ndu96081631]

Để ý khi ta set thuộc tính ẩn (trong VBA) cho sheet cuối cùng thì cũng gặp lổi này!
Ngoài ra lổi này còn xuất hiện khi Workbook được bảo vệ

 

[tedaynui]

@ Cám ơn anh BNTT, em đã xem qua, cái này hoàn toàn không phải Class Module

Để ý khi ta set thuộc tính ẩn (trong VBA) cho sheet cuối cùng thì cũng gặp lổi này!
Ngoài ra lổi này còn xuất hiện khi Workbook hoặc Worksheet được bảo vệ

Có lẽ không phải vậy anh à, vì Sheet em muốn ẩn hiện không phải Sheet cuối.

 

[Nguyễn Duy Tuân]

Với đối tượng là Worksheet, một số thuộc tính của nó không làm việc đúng, hình như là lỗi của Microsoft? Để khắc phục phải đi đường vòng một chút. Vấn đề của anh Núi có thể cho file mẫu cụ thể được không?

 

[ndu96081631]

@ Cám ơn anh BNTT, em đã xem qua, cái này hoàn toàn không phải Class Module

Có lẽ không phải vậy anh à, vì Sheet em muốn ẩn hiện không phải Sheet cuối.

Vậy Workbook có Protect không? Tôi thử khi Workbook đã Protect thì gặp y chang lổi này đấy

 

[tedaynui]

Vậy Workbook có Protect không? Tôi thử khi Workbook đã Protect thì gặp y chang lổi này đấy

File này hoàn toàn không protect anh à.
Đây là file lỗi.

Cám ơn các bác nhiều !
TDN

 

[ndu96081631]

File này hoàn toàn không protect anh à.
Đây là file lỗi.

Cám ơn các bác nhiều !
TDN

File đang bị Protect Workbook mà thầy
Trong 1 sheet nào đó, thầy bấm tổ hợp phím Alt + T + P + W là xong (trong sheet chứ không phải trong cửa số VBE đâu nha)

 

[tigertiger]

File đang bị Protect Workbook mà thầy
Trong 1 sheet nào đó, thầy bấm tổ hợp phím Alt + T + P + W là xong (trong sheet chứ không phải trong cửa số VBE đâu nha)

Đúng là khóa workbook nhưng phải khóa cả struture thì mới bị lỗi vậy

 

[ndu96081631]

Đúng là khóa workbook nhưng phải khóa cả struture thì mới bị lỗi vậy

Nếu tôi nhớ không lầm thì tùy chọn "struture" là mặc định (không làm gì cả nó cũng đã chọn sẳn rồi)
Chỉ có tùy chọn "Window" thì đúng là "TÙY"

 

[tedaynui]

File đang bị Protect Workbook mà thầy
Trong 1 sheet nào đó, thầy bấm tổ hợp phím Alt + T + P + W là xong (trong sheet chứ không phải trong cửa số VBE đâu nha)

Cám ơn anh rất nhiều. Cũng lạ thật, em không hề Protect nhưng không hiểu sao nó lại tự động protect. Có lẽ do thao tác vô tình nào đó. Làm tìm lỗi muốn khùng luôn.

Cám ơn anh và mọi người rất nhiều !

TDN

 

[minhbeo]

File đang bị Protect Workbook mà thầy
Trong 1 sheet nào đó, thầy bấm tổ hợp phím Alt + T + P + W là xong (trong sheet chứ không phải trong cửa số VBE đâu nha)

Em chào anh!

Em sưu tầm được file này, muốn mở rộng phạm vi các cell có gắn công thức nhưng cũng gặp phải lỗi tương tự như trên. Em đã làm theo hướng dẫn nhưng bị protect một sheet Temp (sheet này đang ẩn). Nhờ anh unprotect giúp em sheet ẩn này nhé.

Em cảm ơn anh nhiều.

Minh

 

[ndu96081631]

Em chào anh!

Em sưu tầm được file này, muốn mở rộng phạm vi các cell có gắn công thức nhưng cũng gặp phải lỗi tương tự như trên. Em đã làm theo hướng dẫn nhưng bị protect một sheet Temp (sheet này đang ẩn). Nhờ anh unprotect giúp em sheet ẩn này nhé.

Em cảm ơn anh nhiều.

Minh

- Bấm Alt + F11 vào cửa sổ lập trình
- Chọn Sheet Temp. Nhìn bên dưới, bấm mũi tên xổ xuống chọn -1xlSheetVisible
Tuy nhiên file của bạn đang bị Protect workbook, bạn phải Unprotect workbook trước (bấm Alt + T + P + W rồi gõ password vào). Sau khi Unprotect xong bạn mới unhide được sheet Temp theo hướng dẫn trên

 

[minhbeo]

- Bấm Alt + F11 vào cửa sổ lập trình
- Chọn Sheet Temp. Nhìn bên dưới, bấm mũi tên xổ xuống chọn -1xlSheetVisible
Tuy nhiên file của bạn đang bị Protect workbook, bạn phải Unprotect workbook trước (bấm Alt + T + P + W rồi gõ password vào). Sau khi Unprotect xong bạn mới unhide được sheet Temp theo hướng dẫn trên

View attachment 235481

Em cám ơn bác đã chỉ giáo,

Do file này em sưu tầm và bị protect từ trước nên em ko có pass.

Tối hôm qua anh Batman1 đã giúp em unprotect để hiện ra được cái sheet "Temp" này rồi nhưng hiện giờ vẫn còn 1 vấn đề là em không chỉnh sửa được nội dung trên sheet "Temp" này. Hình như vẫn còn bị khóa nên em tải lại file nhờ các bác mở giúp em nhé.

 

[kaka01]

Em cám ơn bác đã chỉ giáo,

Do file này em sưu tầm và bị protect từ trước nên em ko có pass.

Tối hôm qua anh Batman1 đã giúp em unprotect để hiện ra được cái sheet "Temp" này rồi nhưng hiện giờ vẫn còn 1 vấn đề là em không chỉnh sửa được nội dung trên sheet "Temp" này. Hình như vẫn còn bị khóa nên em tải lại file nhờ các bác mở giúp em nhé.

Sheet "Temp" trong file này bị ẩn cột thôi không còn bị Protect đâu
bạn vào góc trái trên cùng hiện ra mũi tên kéo được một hoặc hai cột ra-> sau đó unhide là được
(Như hình ảnh đính kèm) bạn xem có được không nhé!

 

[Đỗ phong linh]

em đã đọc cái bài hướng dẫn của các anh chị để invisible sheet. tuy nhiên em vẫn không mở được sheet "worksheet" ạ. em đã unprotect các sheet ko bị invisible còn nhưng sheet invisible thì em ko làm soa cho hiện ra được. các anh chị chỉ giáo em với ạ. em cảm ơn nhiều.

File này em down trên mạng để tham khảo công thức tính thôi ạ

 

[qtm1987]

em đã đọc cái bài hướng dẫn của các anh chị để invisible sheet. tuy nhiên em vẫn không mở được sheet "worksheet" ạ. em đã unprotect các sheet ko bị invisible còn nhưng sheet invisible thì em ko làm soa cho hiện ra được. các anh chị chỉ giáo em với ạ. em cảm ơn nhiều.

File này em down trên mạng để tham khảo công thức tính thôi ạ

file này bị Protect workbook. bạn bỏ protect là thấy nếu biết pass

 

[batman1]

em đã đọc cái bài hướng dẫn của các anh chị để invisible sheet. tuy nhiên em vẫn không mở được sheet "worksheet" ạ. em đã unprotect các sheet ko bị invisible còn nhưng sheet invisible thì em ko làm soa cho hiện ra được. các anh chị chỉ giáo em với ạ. em cảm ơn nhiều.

File này em down trên mạng để tham khảo công thức tính thôi ạ

Nguyên nhân do tập tin được protect mà. Chọn thẻ Review thì thấy thôi. Mật khẩu được "dâng" trong sub Workbook_Open

 

[Đỗ phong linh]

file này bị Protect workbook. bạn bỏ protect là thấy nếu biết passView attachment 267332

qtm1987 ơi, mình đã bẻ khoá vba chứ không có mã. còn vài sheet mình không mở khoá được. mình đã cài lại pass là 123456. tuy nhiên vẫn ko chọn được chế độ visible cho các sheet bị hide. qtm có thể mở giúp mình các sheet bị unvisible được ko. mình cảm ơn nhiều!

 

[Đỗ phong linh]

Nguyên nhân do tập tin được protect mà. Chọn thẻ Review thì thấy thôi. Mật khẩu được "dâng" trong sub Workbook_Open

Em đã cài lại pass sau khi mở khoá vba là 123456 tuy nhiên vẫn không làm hiện được các sheet bị ẩn hoàn toàn trong vba ạ. batman1 giúp em với được không ạ! em cảm ơn batman nhiều!

 

[batman1]

Em đã cài lại pass sau khi mở khoá vba là 123456 tuy nhiên vẫn không làm hiện được các sheet bị ẩn hoàn toàn trong vba ạ. batman1 giúp em với được không ạ! em cảm ơn batman nhiều!

Bạn ạ, toàn bộ code trong Sub Workbook_Open. Chỉ có bạn mới biết bạn cần gì và không cần gi. Vậy thì cái gì cần thì để lại, cái không cần thì xóa đi. Lôgíc quá phải không?

Vd. có thể thay bằng

Private Sub Workbook_Open()
On Error Resume Next

PrivCode = "620969"
PrivCodeCom = PrivCode

ActiveWorkbook.Unprotect (PrivCode)

Application.ScreenUpdating = False

    Worksheets("Welcome").Visible = True
    Worksheets("Input").Visible = True
    Worksheets("Sensitivity Analysis").Visible = True
    Worksheets("Valuation Analysis").Visible = True
    Worksheets("Expected Results").Visible = True
    Worksheets("Optimistic Results").Visible = True
    Worksheets("Pessimistic Results").Visible = True
    Charts("Forecast Revenue Chart").Visible = True
    Charts("Forecast Return Chart").Visible = True
    Charts("Operating Surplus Chart").Visible = True
    Charts("Surplus & Return % Chart").Visible = True
    Worksheets("Instructions").Visible = True
    Worksheets("Terms and Conditions").Visible = True
    Worksheets("Macros Required").Visible = False
    Worksheets("Scratch").Visible = False
    
    Application.ScreenUpdating = True
    
    Call RegOk
    
ActiveWorkbook.Protect Password:=PrivCode
    
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True

End Sub

Tất nhiên phải kiểm tra xem có phải sửa Sub Workbook_BeforeClose để đồng bộ không.

Code đã nằm tơ hơ như thế kia thì xử lý theo ý mình thôi. Và thay PrivCode = "620969" bằng mật khẩu hiện hành.

 

[Đỗ phong linh]

Bạn ạ, toàn bộ code trong Sub Workbook_Open. Chỉ có bạn mới biết bạn cần gì và không cần gi. Vậy thì cái gì cần thì để lại, cái không cần thì xóa đi. Lôgíc quá phải không?

Vd. có thể thay bằng

Private Sub Workbook_Open()
On Error Resume Next

PrivCode = "620969"
PrivCodeCom = PrivCode

ActiveWorkbook.Unprotect (PrivCode)

Application.ScreenUpdating = False

    Worksheets("Welcome").Visible = True
    Worksheets("Input").Visible = True
    Worksheets("Sensitivity Analysis").Visible = True
    Worksheets("Valuation Analysis").Visible = True
    Worksheets("Expected Results").Visible = True
    Worksheets("Optimistic Results").Visible = True
    Worksheets("Pessimistic Results").Visible = True
    Charts("Forecast Revenue Chart").Visible = True
    Charts("Forecast Return Chart").Visible = True
    Charts("Operating Surplus Chart").Visible = True
    Charts("Surplus & Return % Chart").Visible = True
    Worksheets("Instructions").Visible = True
    Worksheets("Terms and Conditions").Visible = True
    Worksheets("Macros Required").Visible = False
    Worksheets("Scratch").Visible = False
   
    Application.ScreenUpdating = True
   
    Call RegOk
   
ActiveWorkbook.Protect Password:=PrivCode
   
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True

End Sub

Tất nhiên phải kiểm tra xem có phải sửa Sub Workbook_BeforeClose để đồng bộ không.

Code đã nằm tơ hơ như thế kia thì xử lý theo ý mình thôi. Và thay PrivCode = "620969" bằng mật khẩu hiện hành.

Cảm ơn batman. do em ko rành lắm về vba, làm kiểu mò mẫm lắm ạ.