dùng sự kiện Workbook_BeforeClose để ẩn coi
Trước khi tắt file, chọn 2 sheet cần ẩn, nháy phải chuột và chọn Hide... sẽ tự ẩn
Khi nào biết cách dán vào Module "ThisWorkbook" thì dùng. Giờ thì phải dùng phương án thủ công là nhớ ẩn trước khi đóng thôi.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
MsgBox "Chuan bi an 2 sheet ne!!!"
Sheets("Sheet2").Visible = xlSheetHidden
Sheets("Sheet3").Visible = xlSheetHidden
ThisWorkbook.Save
Application.DisplayAlerts = True
End SubĐáng lẽ bạn phải bảo thớt "bao giờ biết dùng hãy nghĩ đến hai từ tự động. Trước khi biết sự kiện là cái quái gì thì chuyện tự động coi như nằm ngoài tay với".
Bác @cantl giờ giúp làm sao tự động... hiện 2 sheet bị ẩn đi nè!
Tự động ẩn, rồi tự động hiện.
Bác nghiêm túc quá đó! Những cái nhỏ nhỏ vầy mà đưa lên đây hỏi thì không nên xài VBA, ham hố lỡ nó trở chứng biết đường đâu mà chữa.
Nó là phân quyền đó bạn. Tìm kiếm từ khoá phân quyền nhé.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("O1")) Is Nothing Then
Sheet1.Unprotect Password:="GPE"
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible
Sheet1.Range("D1").EntireColumn.Hidden = False
End If
If Not Intersect(Target, Range("P1")) Is Nothing Then
Sheet1.Protect Password:="GPE", UserInterfaceonly:=True, AllowSorting:=True, AllowFiltering:=True
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet1.Range("D1").EntireColumn.Hidden = True
End If
End If
End SubTại sao bạn không thử Environ("computername") hoặc Environ("username")? Ràng buộc nếu computername/username của bạn thì hiện sheet2 và sheet3, còn lại thì ẩn sheet2 và sheet3. Hoặc có thể ràng buộc bằng địa chỉ IP nếu IP máy tính của bạn không thay đổi...
Bạn có thể tham khảo code như sau:
Private Sub Workbook_Open()
Dim a As String
a = Environ$("computername")
If a = "XINGAI" Then
Sheet1.Unprotect Password:="GPE"
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible
Else
Sheet1.Protect Password:="GPE", UserInterfaceonly:=True, AllowSorting:=True, AllowFiltering:=True
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet1.Range("D1").EntireColumn.Hidden = True
End If
End Sub
Private Sub Workbook_Open()
Dim a As String
a = Environ$("computername")
If a = "VOILY7RLQBWL7Z1" Then
Sheet1.Unprotect Password:="GPE"
Sheet2.Visible = xlSheetVisible
Sheet3.Visible = xlSheetVisible
Else
Sheet1.Protect Password:="GPE", UserInterfaceonly:=True, AllowSorting:=True, AllowFiltering:=True
Sheet2.Visible = xlSheetVeryHidden
Sheet3.Visible = xlSheetVeryHidden
Sheet1.Range("D1").EntireColumn.Hidden = True
End If
End SubBạn copy vào sự kiện Workbook_Open ấy (như hình ảnh), sau đó bạn đóng file rồi mở lại nhé
Vẫn không được à bạn?
Nghĩa là sao, đúng ý bạn chưa, hay còn chỗ nào chưa đúng thì bạn nói rõ hơn đi
Bạn check kĩ giúp, mình thử máy mình cho trường hợp của bạn vẫn ok mà
File trên chạy ra đúng yêu cầu nhé.
Office 2013 32 bit vẫn chạy bình thường nhé. Office bản quyền hết.
Quan trọng là bạn có cho phép Macro chạy không, nếu bạn tắt thì làm sao chạy được
Có ai giúp chưa, nếu chưa bạn Ultraview mình xem cho
Không bị gì hết anh @ongke0711 ơi.
Ổ đĩa mạng thì thường là dropbox, onedrive. Mà mấy cái này bạn có thể phân quyền theo email mà. Cần gì vba.
On Error Resume NextThì đặt vào đâu mã hoạt động được là bạn đặt đúng rồi, đặt dưới cùng thử xem ờ sao
Bạn có đọc kỹ đề bài không vậy?
Ẩn, hiện sheet =VBA, mà người khác Disable all macros thì bạn tính sao
Bạn hỏi Microft nhe. Ai có nhu cầu thì bật để xài, còn không bật thì khỏi xài. Đừng trả lời bằng một câu hỏi khác không liên quan...
Cách tính thì bình thường tôi có thể chỉ. Nhưng hiện tại thì một câu nói khích như vậy làm tôi đâm lười.
Ý tôi không phải là nói khích gì nha Bác Vẹt. Bác giúp được thì nên giúp, xem như học hỏi được kiến thức. Còn vấn đề hide, unhide=VBA để làm gì, có phải mục đích để dấu dữ liệu, mà có dấu người khác cũng mở xem được bằng Disable all macros.
Phân quyền file, tôi viết không được rõ. Xin lỗi bạn nhé!
Bạn có thử làm chưa vậy?
Bạn test trên file tôi gửi ở trên hay file nào?
Xin lỗi bạn, để dịp khác đi. Tính tôi ích kỷ, không buồn chỉ dẫn cho kẻ thừa nước đục thả câu.
Thông cảm. Thớt bị nhiều người nói tới nói lui một hồi nên bị lẫn lộn cả.
File này sửa tên máy tính trong code cho đúng với máy của mình thì:
File này chỉ dùng để test trong phạm vi các luận điểm đang thảo luận ở các bài trước thôi. Vì có người nói Disable All macro thì sẽ hiện toàn bộ sheet ra thôi nên file này chỉ chứng minh cho luận điểm đó. Còn vấn đề bạn hóng thì tìm kiếm đề tài tương tự trên diễn đàn, có bàn luận về nó.
Tui nói gì bạn đâu mà kỳ kỳ hè. Ý tưởng hay cách giải quyết vấn đề tui có gợi ý rõ ràng và cũng đã hỏi bạn xem cách đó ntn, hợp lý thì bạn làm, ko thì thôi.
Tôi noi gương Khuất Nguyên, thà ôm hòn đá xuống Mịch La.
Bạn giỏi hay không giỏi về cái gì là chuyện tính sau. Nhưng tôi thì không chấp nhận cái tật cẩu thả, chưa thử đã bàn bậy. Và bạn ở bài #67 hốm nay đã chứng kiến cái tai hại của tật này.
Đã disable all macros rồi mở, chỉ thấy hiện sheet1 1,2,3 thôi nhé em.
Máy anh "Enable Content" cũng khônhg thấy sheet ẩn nhé. Vô enable macro cũng vậy.
Cái đó là do macro thực hiện tự động, nếu Disable macro thì nó sẽ không hiện luôn, phải vô VBA project làm thủ công.
Tôi cũng không chắc, bạn kiểm tra xem, Excel có 2 tùy chọn Disable Macro có thông báo và không thông báo đó.
