Xin hỏi Wooksheet Class là gì ?

[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 ạ.