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

Quảng cáo
Status
Không mở trả lời sau này.

ngocnam

Thành viên mới
Tham gia ngày
22 Tháng mười 2006
Bài viết
12
Được thích
2
Điểm
0
Tuổi
37
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

VBA & VB.NET for Excel & AutoCad
Thành viên danh dự
Tham gia ngày
13 Tháng sáu 2006
Bài viết
6,955
Được thích
23,824
Điểm
6,668
Nơi ở
Hà Nội
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
 

148btx

Thành viên mới
Tham gia ngày
14 Tháng mười 2006
Bài viết
40
Được thích
102
Điểm
0
Nơi ở
Bùi Thị Xuân, Hà Nội
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: 484

skyonline

Thành viên thường trực
Thành viên danh dự
Tham gia ngày
21 Tháng bảy 2006
Bài viết
276
Được thích
646
Điểm
0
Tuổi
35
Nơi ở
HO CHI MINH
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

Thành viên mới
Tham gia ngày
14 Tháng mười 2006
Bài viết
40
Được thích
102
Điểm
0
Nơi ở
Bùi Thị Xuân, Hà Nội
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: 442
Lần chỉnh sửa cuối:

yeudoi

Thành viên gắn bó
Thành viên BQT
Moderator
Tham gia ngày
12 Tháng sáu 2006
Bài viết
2,977
Được thích
7,175
Điểm
2,918
Nơi ở
TP Hội An
Đú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

Thành viên thường trực
Thành viên danh dự
Tham gia ngày
21 Tháng bảy 2006
Bài viết
276
Được thích
646
Điểm
0
Tuổi
35
Nơi ở
HO CHI MINH
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

Thành viên thường trực
Thành viên danh dự
Tham gia ngày
21 Tháng bảy 2006
Bài viết
276
Được thích
646
Điểm
0
Tuổi
35
Nơi ở
HO CHI MINH
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

Thành viên thường trực
Thành viên danh dự
Tham gia ngày
21 Tháng bảy 2006
Bài viết
276
Được thích
646
Điểm
0
Tuổi
35
Nơi ở
HO CHI MINH
ấ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: 446

skyonline

Thành viên thường trực
Thành viên danh dự
Tham gia ngày
21 Tháng bảy 2006
Bài viết
276
Được thích
646
Điểm
0
Tuổi
35
Nơi ở
HO CHI MINH
Đế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.
 

lachinhan

The God of Pigs
Tham gia ngày
4 Tháng mười hai 2006
Bài viết
153
Được thích
2,165
Điểm
0
Tuổi
42
Nơi ở
Cần Thơ
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

Thành viên thường trực
Tham gia ngày
28 Tháng mười một 2006
Bài viết
248
Được thích
60
Điểm
0
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ỉ
 

skyonline

Thành viên thường trực
Thành viên danh dự
Tham gia ngày
21 Tháng bảy 2006
Bài viết
276
Được thích
646
Điểm
0
Tuổi
35
Nơi ở
HO CHI MINH
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!
 

lachinhan

The God of Pigs
Tham gia ngày
4 Tháng mười hai 2006
Bài viết
153
Được thích
2,165
Điểm
0
Tuổi
42
Nơi ở
Cần Thơ
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

Ngon Ngất Ngây
Thành viên đã mất
Tham gia ngày
6 Tháng tám 2006
Bài viết
3,262
Được thích
3,768
Điểm
0
Tuổi
44
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

The God of Pigs
Tham gia ngày
4 Tháng mười hai 2006
Bài viết
153
Được thích
2,165
Điểm
0
Tuổi
42
Nơi ở
Cần Thơ
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
 

Mr Okebab

Ngon Ngất Ngây
Thành viên đã mất
Tham gia ngày
6 Tháng tám 2006
Bài viết
3,262
Được thích
3,768
Điểm
0
Tuổi
44
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:

Chuotdong

Thành viên thường trực
Tham gia ngày
28 Tháng mười một 2006
Bài viết
248
Được thích
60
Điểm
0
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.
Quảng cáo
Top Bottom