Ẩn Sheet tự động

[syquyen1987]

Computer name đây phải không bạn @syquyen1987 :
View attachment 297631
Sao mình chép code vào và file nằm chính trên máy luôn, sao mở file vẫn khóa sheet1 và sheet2 và sheet3 vẫn ẩn.

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 Sub

Bạ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é

 

[LuuAnh980]

Mình chép vào ThisworkBook mà.

 

[syquyen1987]

Mình chép vào ThisworkBook mà.
View attachment 297633

Vẫn không được à bạn?
Mình vẫn đang sử dụng như thế này để hạn chế quyền truy cập, mình thấy vẫn "ok" mà

 

[LuuAnh980]

Không bạn ơi. Chỉ hiện sheet"RQ" là sheet1, vẫn khóa.

Bài đã được tự động gộp: 17/12/23

 

[syquyen1987]

Không bạn ơi. Chỉ hiện sheet"RQ" là sheet1, vẫn khóa.

Bài đã được tự động gộp: 17/12/23

View attachment 297634

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

 

[LuuAnh980]

Chưa, theo như code của bạn, thì máy có Computer name là "VOILY7RLQBWL7Z1" thì khi mở file thì hiện 3 sheet 1,2,3.
Sheet1 mở khóa. Vậy mà code y như vây., mà chỉ hiện sheet1 vẫn khóa, 2 sheet kia không hiện.
Mong bạn xem giúp.

 

[syquyen1987]

Chưa, theo như code của bạn, thì máy có Computer name là "VOILY7RLQBWL7Z1" thì khi mở file thì hiện 3 sheet 1,2,3.
Sheet1 mở khóa. Vậy mà code y như vây., mà chỉ hiện sheet1 vẫn khóa, 2 sheet kia không hiện.
Mong bạn xem giúp.

Chưa, theo như code của bạn, thì máy có Computer name là "VOILY7RLQBWL7Z1" thì khi mở file thì hiện 3 sheet 1,2,3.
Sheet1 mở khóa. Vậy mà code y như vây., mà chỉ hiện sheet1 vẫn khóa, 2 sheet kia không hiện.
Mong bạn xem giúp.

cái code đó mình copy của bạn thôi, như vậy code của bạn hình như không được, để lát mình sửa lại cho

Chưa, theo như code của bạn, thì máy có Computer name là "VOILY7RLQBWL7Z1" thì khi mở file thì hiện 3 sheet 1,2,3.
Sheet1 mở khóa. Vậy mà code y như vây., mà chỉ hiện sheet1 vẫn khóa, 2 sheet kia không hiện.
Mong bạn xem giúp.

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à

 

[LuuAnh980]

File đây bạn.
Mình xóa hết dữ liêu.
Bạn xem thử.

 

[ongke0711]

Muốn kiểm tra code thì tách nhỏ nó ra kiểm tra.
- kiểm tra xem cái environ$() nó trả về cái chuỗi gì, có đúng với a không?
- cho thêm cái code hiện msgbox() ở từng trường hợp xem thực tế khi chạy nó rơi vô cái trường hợp If nào.

 

[LuuAnh980]

Em không rành VBA anh @ongke0711 ơi, anh kiểm tra dùm em với.

 

[ongke0711]

Em không rành VBA anh @ongke0711 ơi, anh kiểm tra dùm em với.

File trên chạy ra đúng yêu cầu nhé.

 

[LuuAnh980]

Vậy có khi nào dính bản quyền không các anh????
À Win máy thì Active rồi , còn Office thì chưa.

Bài đã được tự động gộp: 17/12/23

 

[LuuAnh980]

Bác @VetMini cho em cách khác của bác đi ạ.

 

[DMQ]

Anh @ongke0711 chụp cho em xem cái file của bạn @LuuAnh980 mở trên máy anh được không ạ. Sao máy em mở cũng không được.

 

[ongke0711]

Anh @ongke0711 chụp cho em xem cái file của bạn @LuuAnh980 mở trên máy anh được không ạ. Sao máy em mở cũng không được.

...tôi cũng đang rảnh...haha.. .

Office 365
. Office2013 - 32bit.

 

[LuuAnh980]

Sao máy em và máy bạn @DMQ không chạy code vậy ta.
Có khi nào do phiên bản Office không anh @ongke0711 , em Office 2016, chỉ tội chưa Active

Bài đã được tự động gộp: 17/12/23

Em gửi Ultraview anh @ongke0711 giúp em với.
Được không anh???

 

[ongke0711]

Sao máy em và máy bạn @DMQ không chạy code vậy ta.
Có khi nào do phiên bản Office không anh @ongke0711 , em Office 2016, chỉ tội chưa Active

Bài đã được tự động gộp: 17/12/23

Em gửi Ultraview anh @ongke0711 giúp em với.
Được không anh???

Office 2013 32 bit vẫn chạy bình thường nhé. Office bản quyền hết.
Vào màn hình VBE, bấm Ctr-G mở cửa sổ Immediate rồi gõ lệnh như bên dưới xem nó ra cái gì? có báo lỗi gì không.

 

[LuuAnh980]

Office 2013 của anh Active rồi hả

 

[syquyen1987]

Sao máy em và máy bạn @DMQ không chạy code vậy ta.
Có khi nào do phiên bản Office không anh @ongke0711 , em Office 2016, chỉ tội chưa Active

Bài đã được tự động gộp: 17/12/23

Em gửi Ultraview anh @ongke0711 giúp em với.
Được không anh???

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

 

[LuuAnh980]

File vẫn Enable Macro mà bạn @syquyen1987