Sử dụng thanh cuộn ngang để che đi các Sheet (1 người xem)

[giang127]

Cụ thể là mình có Sheet 1: chứa tất cả đường link đến các Sheet khác (10 sheet); nếu ẩn đi các sheet kia thì từ Sheet 1 không thể Click đến các Sheet bị ẩn.

Vậy nên mình muốn xin code để cố định thanh cuộn ngang của Excel lại và không cho người khác kéo ra, nhằm che đi các sheet con

Còn nữa; Mình muốn hỏi là dùng PassWord trong VBA để không cho người khác xem code có dễ bị bẻ ko, nếu có thì cách nào bảo mật Pass VBA tốt nhất nhỉ. ! Thank các bạn trước nha

 

[giang127]

Giup voi

Hịc, mình đang cần gấp, có ai có chút tấm lòng giúp tớ với hu hu. Tớ nghĩ cái này không khó mà. Khổ nỗi là tìm trên google ko ra .

 

[ndu96081631]

Cụ thể là mình có Sheet 1: chứa tất cả đường link đến các Sheet khác (10 sheet); nếu ẩn đi các sheet kia thì từ Sheet 1 không thể Click đến các Sheet bị ẩn.

Vậy nên mình muốn xin code để cố định thanh cuộn ngang của Excel lại và không cho người khác kéo ra, nhằm che đi các sheet con

Còn nữa; Mình muốn hỏi là dùng PassWord trong VBA để không cho người khác xem code có dễ bị bẻ ko, nếu có thì cách nào bảo mật Pass VBA tốt nhất nhỉ. ! Thank các bạn trước nha

Việc cố định thanh trượt ngang thì có:
ActiveWindow.TabRatio = ???
Vấn đề là không biết cho code này vào sự kiện gì ---> Tức là sao "bắt được" sự kiện khi người ta chọn vào thanh trượt!
---------------------------
Còn câu hỏi về Pass VBA: Câu trả lời là CỰC DỂ ---> Vì vậy, nếu trình độ VBA của chúng ta còn kém quá (chẳng hạn là tôi) thì cũng chẳng cần phải quan tâm đến vấn đề này làm gì cho mất công... Hãy dành thời gian nâng cao trình độ của mình thì hơn
Nói thật: Tầm cở như bạn TuanVNUNI viết code thì cho dù bạn ấy không Pass bảo mật gì cả chắc tôi nhìn code cũng chả hiểu tí gì... Ẹc... Ẹc...

 

[giang127]

Code VBA che đi các sheet bừang thanh cuộn ngang

Phiền bạn có thể Post cho mình code cụ thể được ko, mình đang cần lắm, thank nhé.

P/s: Mình còn đang mắc 1 lỗi nhỏ nữa đó là, mình chèn Cdoe VBA cho menu chính là:

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1:m27"
End Sub

Để cố định lại trang chính, nhưng ko hiểu sao lsuc bật file lên nó ko cố định mà phải ấn sang 1 sheet bất kỳ rùi quay lại thì nó mới cố định lại.

Giúp mình 2 cái này với nha.

 

[le tin]

Phiền bạn có thể Post cho mình code cụ thể được ko, mình đang cần lắm, thank nhé.

P/s: Mình còn đang mắc 1 lỗi nhỏ nữa đó là, mình chèn Cdoe VBA cho menu chính là:

Private Sub Worksheet_Activate()
Me.ScrollArea = "A1:m27"
End Sub

Để cố định lại trang chính, nhưng ko hiểu sao lsuc bật file lên nó ko cố định mà phải ấn sang 1 sheet bất kỳ rùi quay lại thì nó mới cố định lại.

Giúp mình 2 cái này với nha.

Bạn ghi cái này vào Thisworkbook xem sao

Private Sub Workbook_Open()
Sheets("Chinh").Activate
ActiveSheet.ScrollArea = "A1:M27"
End Sub

Chúc vui

 

[giang127]

Cảm ơn letin nhé. Mình cố định được nó rùi.
À, còn 1 vụ nữa. Giúp mình code ẩn đi thanh Sheet tab (nhưng mà vẫn link đến các sheet ẩn được từ Sheet Menu chính) hoặc Code làm cho thanh cuộn ngang che đi các sheet nhé.

Đang cần gấp lắm mà kiếm trên google 3 ngày nay ko đc (

 

[cadafi]

............. code ẩn đi thanh Sheet tab (nhưng mà vẫn link đến các sheet ẩn được từ Sheet Menu chính) hoặc Code làm cho thanh cuộn ngang che đi các sheet ...

Cái này không cần code, bạn vào Tool/Options/ Tab View bạn bỏ chọn checkbox [Sheet Tab] trong phần Window option bên dưới góc phải.

Còn nếu cần code thì có code đây (Chép vào ThisWorkBook):

Private Sub Workbook_Open()
ActiveWindow.DisplayWorkbookTabs = False
Sheets("Chinh").ScrollArea = "A1:M27"
End Sub

 

[giang127]

Cảm ơn ca_dafi nhé. Tớ làm đc rồi. Chủ yếu là mún sài Code vì mỗi lúc lại sài 1 máy khác nhau.
Rảnh sang blog tớ chơi ngen: http://giangblog.tk