Muốn giấu một Sheet trong excel thì làm thế nào ?

Liên hệ QC
Status
Không mở trả lời sau này.

ngocnam

Thành viên mới
Tham gia
22/10/06
Bài viết
12
Được thích
2
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
 
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ụ:
Mã:
Sheets("Sheet1").visible= xlSheetVeryHidden
 
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
 

File đính kèm

  • RangeProtect.xls
    23.5 KB · Đọc: 488
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.
 
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.
 

File đính kèm

  • CellsProtect.xls
    46 KB · Đọc: 445
Lần chỉnh sửa cuối:
Đú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
 
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ì.
 
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!
 
ấ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ì.
 

File đính kèm

  • tao pass.xls
    40 KB · Đọc: 451
Đế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.
 
Bạn làm rất hay, tôi phải học bạn nhiều.
 
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"
 
skyonline đã viết:
Đế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ỉ
 
lachinhan đã viết:
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

Chuotdong đã viết:
"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!
 
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ớ.
 
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.
 
MrHieu đã viết:
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ứ --=0
 
Gửi các bạn 1 file về test chơi
 

File đính kèm

  • login.rar
    15.1 KB · Đọc: 369
lachinhan đã viết:
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

lachinhan đã viết:
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ứ --=0
Cậu cứ đùa, định chọc quê mình hay sao vậy ??????
 
Chỉnh sửa lần cuối bởi điều hành viên:
MrHieu đã viết:
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à !?
 
Lần chỉnh sửa cuối:
Status
Không mở trả lời sau này.
Web KT
Back
Top Bottom