Muốn giấu một Sheet trong excel thì làm thế nào ? (5 người xem)

[ngocnam]

Em có một số sheet muốn giấu không cho người khác thấy thì phải làm thế nào ? Muốn hiện lên lại phải làm sao? Mong các cao thủ giúp đỡ em xin cảm ơn

 

[PhanTuHuong]

Thông thường, bạn có thể vào menu Format/Sheet, chọn Hide(để ẩn) hoặc Unhide(để nhìn thấy). Nhưng người khác vẫn có thể xem được.
Để triệt để như bạn nói thì phải sử dụng VBA. Nếu bạn biết về VBA thì có thể gán thuộc tính Visible là xlSheetVeryHidden.
Ví dụ:

Sheets("Sheet1").visible= xlSheetVeryHidden

 

[148btx]

Bảo vệ các ô trong bảng Excel

Nếu bạn muốn một vùng nào đó, ví dụ như từ ô C2 đến C20 được bảo vệ thì có thể làm như sau (hoặc tải ví dụ về):

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim VungBaoVe As Range, TroVe As Range
Set VungBaoVe = Range("C2:C20")

For Each TroVe In Range(Target.Address)
If Intersect(TroVe, VungBaoVe) Is Nothing Then
Else
Range("A1").Select
Exit For
End If
Next TroVe

End Sub

 

[skyonline]

Nếu bàn đến việc che giấu bảo vệ thì mình nên bàn luôn đến chuyện tạo form bắt nhập user name và pass mơi cho xem file luôn . Các anh chị cùng thảo luận và đưa lên file mẫu của mình nha. File của em chắc tối mai đi học về em làm được vì ngày mai mới thi xong.

 

[148btx]

Bảo vệ CELLS bằng mật khẩu

Chào bạn skyonline, mình thử đưa trước ra cách bảo vệ Cells bằng mật khẩu nhé, cách này mình làm theo sự chỉ dẫn của một trang chuyên dạy về Excel bằng tiếng Đức. Chắc là phải hỏi bạn nhiều.

 

[yeudoi]

Đúng đó theo mình chúng ta nên tạo một trang chuyên về cách bảo vệ để mọi người tham khảo ( nên tạo file để mọi người dễ xem). Mình sẽ gửi file sau

 

[skyonline]

Hic xui xẻo quá. Tự nhiên vừa thi xong thì cái máy tính bị cháy mất tiêu. Không biết lúc nào mới có tiền để thay? Các anh chị thông cảm nha không có người bạn đó em không làm nổi việc gì.

 

[skyonline]

Option Explicit


Private Sub cmddongy_Click()
Dim timpass As Integer
On Error Resume Next
With Sheets("sheetchuapass").Range("UserNames")

timpass = .Find(What:=txtten, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Row
End With
On Error GoTo 0

If timpass = 0 Then
SomethingWrong
Exit Sub
End If

If Sheets("sheetchuapass").Cells(timpass, 2) <> txtpass Then
SomethingWrong
Exit Sub
End If

Sheets("sheetchuapass").Range("LoggedInAs") = txtten
Unload Me

End Sub

Private Sub cmdhuy_Click()
ThisWorkbook.Close SaveChanges:=False
End Sub
Private Sub SomethingWrong()
MsgBox "Ban da nhap sai username hay pass de nghi kiem tra lai!.", vbCritical + vbInformation, "www.giaiphapexcel.com - Skyonline"
End Sub

Private Sub txtpass_Change()
cmddongy.Enabled = (txtten.TextLength > 2 And _
txtpass.TextLength > 2)
End Sub

Private Sub txtten_Change()
cmddongy.Enabled = (txtten.TextLength > 2 And _
txtpass.TextLength > 2)
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub


Các anh chị tham khảo nha!

 

[skyonline]

ấy quên cái file em làm sẵn nữa lâu nay không có máy chẳng làm được gì.

 

[skyonline]

Đến đây xem như công việc tạo form bắt điền username và pass vào mới cho đăng nhập đã tạm chấp nhận, tiếp theo mình sẽ bàn đến việc cho thay đổi pass và tiếp đến nữa là nghĩ đến việc phân quyền sử dụng cho các phòng ban, cho phép người có quyền quản lí file có thể tạo user cho phép sử dụng ... Mong các anh chị chú ý đến vấn đề này.

 

[148btx]

Bạn làm rất hay, tôi phải học bạn nhiều.

 

[lachinhan]

Bạn có thể ghi pass vào registry mà ko cần sheet dữ liệu bằng cách sau

SaveSetting "TRADE", "Personal", "PASS", "giaiphapexcel" ===> o day giaiphapexcel là pass

Đọc pass từ registry bằng cách sau

GetSetting("TRADE", "Personal", "PASS", "")

Vậy để bảo mật chúng ta ghi pass vào registry khi load form login , và sau khi đóng form ta sẽ delete pass trong registry bằng cách sau .

DeleteSetting "TRADE"

 

[Chuotdong]

Đến đây xem như công việc tạo form bắt điền username và pass vào mới cho đăng nhập đã tạm chấp nhận, tiếp theo mình sẽ bàn đến việc cho thay đổi pass và tiếp đến nữa là nghĩ đến việc phân quyền sử dụng cho các phòng ban, cho phép người có quyền quản lí file có thể tạo user cho phép sử dụng ... Mong các anh chị chú ý đến vấn đề này.

Chỉ trong Excel mà làm được thì thật tuyệt vời, tôi cũng đang cần.
Ý tưởng file tạo Pass ở trên của bạn rất hay nhưng nếu Disable Macro đi thì cũng mất tác dụng nhỉ

 

[skyonline]

Bạn có thể ghi pass vào registry mà ko cần sheet dữ liệu bằng cách sau

SaveSetting "TRADE", "Personal", "PASS", "giaiphapexcel" ===> o day giaiphapexcel là pass

Đọc pass từ registry bằng cách sau

GetSetting("TRADE", "Personal", "PASS", "")

Vậy để bảo mật chúng ta ghi pass vào registry khi load form login , và sau khi đóng form ta sẽ delete pass trong registry bằng cách sau .

DeleteSetting "TRADE"

Cảm ơn bạn@!về mình sẽ xem lại

"nếu Disable Macro đi thì cũng mất tác dụng nhỉ"

Cái này mình cũng chịu chỉ có cách bảo vệ sheet hay workbook! nếu ennable macro thì tạo cái form login vui vui )D:

Ai có cao kiến gì không? Nói đến vấn đề bảo vệ nghe chừng gian nan đây! Mong mọi người chỉ giáo!

 

[lachinhan]

Bạn tạo Addin ấy , lúc đấy chì cần mở Excel thôi là bạn đã gặp form login rồi, nếu sai pass sẽ không vào được Excel luôn, mà nếu không vào được Excel thì không thể nào disable được, cũng không tắt được Addin luôn. Bạn có thể Disable được sercurity của excel bằng macro, bằng cách cho nó biến mất trên menu của excel, hoặc cho nó ẩn đi không vào được ====> cái này để mình xem lại rồi post cách disable phần sercurity lên 4r, vì lâu quá không sử dụng đến nên ko nhớ.

 

[Mr Okebab]

Có cách vào excel mà không khởi động các Add Ins lên bạn ạ. Đó là khởi động trong chế độ safe mode của excel. Khi đó các Add Ins sẽ không thể hoạt động. Khi đó Excel sẽ hoạt động với chế độ tối thiểu.

 

[lachinhan]

Có cách vào excel mà không khởi động các Add Ins lên bạn ạ. Đó là khởi động trong chế độ safe mode của excel. Khi đó các Add Ins sẽ không thể hoạt động. Khi đó Excel sẽ hoạt động với chế độ tối thiểu.

Hehe thật tình mình không biết cái vụ này, cậu chỉ mình cách chạy safe mode excel với. Biết để còn đối phó chứ

 

[lachinhan]

Gửi các bạn 1 file về test chơi

 

[Mr Okebab]

Gửi các bạn 1 file về test chơi

Đây cũng là một cao thủ "Vọc" máy vi tính. Không biết chạy file này xong có phải cài lại office không nhỉ ??? He he he

Hehe thật tình mình không biết cái vụ này, cậu chỉ mình cách chạy safe mode excel với. Biết để còn đối phó chứ

Cậu cứ đùa, định chọc quê mình hay sao vậy ??????

 

[Chuotdong]

Có cách vào excel mà không khởi động các Add Ins lên bạn ạ. Đó là khởi động trong chế độ safe mode của excel. Khi đó các Add Ins sẽ không thể hoạt động. Khi đó Excel sẽ hoạt động với chế độ tối thiểu.

Hình như các bạn đi quá xa vấn đề bảo vệ trong Excel, bảo vệ trong Excel chỉ là tương đối. trên quan điểm là: "Phòng người ngay chứ không phải phòng kẻ gian". Trong trường hợp Macro của bạn Sky tôi thấy không ổn vì đa số người dùng nếu thấy cảnh báo Macro là họ thấy ngại, đến chương trình BKAV còn không phân biệt được virus hay là macro người dùng viết nữa là !?