Khóa ô từng vùng trong excel (1 người xem)

[lebaquy]

Các bạn giúp mình cách khóa các vùng dữ liệu trong 1 sheet. Còn những khác thì vẫn nhập dữ liệu bình thường. Mong các bạn giúp đỡ. Cảm ơn các bạn nhiều!

 

[khoavu87]

Các bạn giúp mình cách khóa các vùng dữ liệu trong 1 sheet. Còn những khác thì vẫn nhập dữ liệu bình thường. Mong các bạn giúp đỡ. Cảm ơn các bạn nhiều!

cái này có thể kháo các ô có chứa công thức không bạn?
tức là nếu các ô chứa công thức thì khóa lại.còn không chứ công thức thì bạn nhập dữ liệu thoải mái?
nếu như vậy thì trờ tin bạn,rùi sẽ làm tiếp

 

[lebaquy]

Các bạn giúp mình với. bạn khoavu87 nói đúng ý của mình rồi. Khóa những vùng có công thức còn những vùng ko có công thức thì nhập liệu thoải mái. Giúp mình nhé. Cảm ơn các bạn!

 

[khoavu87]

Ok mình giúp bạn theo hai cách nhá.

Chào bạn khoavu87 bạn giúp mình với. Bạn nói đúng ý của mình rồi. Khóa những vùng có công thức còn những vùng ko có công thức thì nhập liệu thoải mái. Giúp mình nhé. Cảm ơn bạn!

Cach1: dùng Excel:
----Bôi đen toàn bộ sheet (kích chuột vào điểm giao của cột 1 và hàng A)
---menu---->format---->formatcell----->Protection--->tích bỏ hai cái (Locked và Hidden)---->Ok
----Ctr+G---->chọn Special---->tích vào Formulas --->ok
----vào formatcell----->Protection --->chọn hết lại hai cái: Locked và Hidden)---->Ok
----vào tool ---->protec--->gõ mật khẩu hai lần-->ok-->song
Cách 2:
'ạn chép đoạn modul sau đây vào ( bạn chọn ALt+ff--->copy đoạn code đó vào ----thisworkboox)
'Tao o khoa tung cel trong khi su dung cong thuc,mà khong cho ng khac su dung

Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
'password dat la "25251325"
Dim rngdata As Range
'bat dau vong lap for qua vong lap for co chua gia tri
For Each rngdata In target.Cells
'kiem tra xem o so co phai la cong thuc khong ?
If rngdata.HasFormula Then
'khoa o neu o do la cong thuc
ActiveSheet.Protect ("25251325")
Exit Sub
Else
'huy bo khoa o neu o do khong phai la cong thuc
ActiveSheet.Unprotect ("25251325")
End If
Next rngdata
End Sub

__________________
Bạn chú ý chính tả: Alt + F11, không phải Alt + ff
và thisworkbook, không phải thisworkboox
Code của bạn chạy tốt nhưng người ta không thể nào sử dụng được do mở không lên cửa sổ VBA và không tìm thấy chỗ để copy code vào.
Và: làm xong, không phải làm song
ptm0412

 

[viehoai]

Bạn chọn các cell cần khóa, nhấn Ctrl+1 (Format cells..) trong thanh Protection bạn tích bỏ Locked. Sau đó từ menu Tools -> Protection -> Allaw Users to Edit ranges trong cửa sổ Allaw Users to Edit ranges bạn chọn New.. và chọn vùng chọn để khóa bằng cách đặt mật khẩu. Sau đó Apply là Ok. Chúc bạn thành công

 

[Ng_Duy_Long]

Bạn thử tải file này xem

 

[sanhdng]

Không được bạn ui, xem lại giúp nhé

 

[Pozsi]

Bạn gửi file lên đi.

 

[bedoanngoc]

Bạn thử làm thế này:
Tại Sheet có vùng cells cần khóa, bạn bấm Ctrl + A/ Format/ cells/ Protection - Nhấp tắt hai dấu trước Locked và Hidden / OK.
Chọn khối Cell cần khóa, nhắp chọn trước Locked và Hidden ( nếu muốn để cho người khác đọc được công thức trong cell thì đừng chọn Hidden )/ OK/ Tools/ Protection/ Protect Sheet...
Nhắp chọn vào tất cả các ô nhỏ trong bảng Allow All Users Of This Worksheet To:
Nhập mật mã Password/ OK - Nhập lại mã Password lần nữa trong Reenter Password.../ OK lần nữa ( Nhớ mật mã nhé, nếu không mình khoá chính mình đấy ).

 

[huyenanh911]

khoá từng phần trong excel

cái này có thể kháo các ô có chứa công thức không bạn?
tức là nếu các ô chứa công thức thì khóa lại.còn không chứ công thức thì bạn nhập dữ liệu thoải mái?
nếu như vậy thì trờ tin bạn,rùi sẽ làm tiếp

MS Excel
Bảo vệ từng Cell trong Excel




Thứ bảy, 22 Tháng 3 2008 02:57
Trong công việc hàng ngày nhều khi chúng ta phải chia sẻ nội dung file Excel cho người khác xem/sửa nội dung nhưng lại không muốn họ có thể thay đổi tất cả nội dung (trên 1 sheet) mà chỉ cho phép họ thay đổi nội dung trong một số ô (cell) mà ta quy định, trong bài này chúng tôi giới thiệu 1 cách đơn giản để làm được việc này.

Giả sử chúng ta có một file tính “dự toán làm điện” như hình dưới đây, các phần khoanh vùng mầu đỏ là các ô cần được bảo vệ không cho phép người khác được thay đổi.




















Bước 1: Xác định các ô cần được bảo vệ bằng cách click chuột phải vào ô, chọn Format Cell, trong mục Protection, chọn Locked để cấm thay đổi nội dung, có thể chọn thêm Hiden nếu bạn muốn giấu công thức

Xem các thao tác trong hình bên dưới để khóa các ô [F4:F10]




Các ô cần bảo vệ trong ví dụ này các bạn thực hiện tương tự

Chú ý những ô không cần bảo vệ phải bỏ thuộc tính Locked vì trong excel tất cả các ô đều đặt sẵn là Locked.

Bước 2: Sau khi thực hiện bước 1 các ô vẫn thay đổi như bình thường, để các ô này thực sự được bảo vệ bắt buộc bạn phải ra lệnh bảo vệ bằng cách chọn Tool->Protection->Protect Sheet sau đó gõ mật khẩu “12345678” vào ô mật khẩu


Bước 3: Kết thúc bây giờ chúng ta hoàn toàn có thể yên tâm là người khác không thể sửa đổi được các ô đã bảo vệ (trừ khi lộ mật khẩu)

Download file ví dụ trong bài nàytại đây
chúc các bạn thành công

 

[hvacvn]

Không làm được bạn ơi

 

[thinh0175]

Bạn cho mình hỏi nếu dùng code thì cách bỏ protect đi như thế nào vậy. Cảm ơn bạn

 

[huongluadxh]

Mình cũng đang tìm cách mở khóa một ô dữ liệu trong excel 2007 nhưng ko tài nào mở được. Bạn nào có cách hay chỉ giúp với

 

[hantuvan]

Các bạn giúp mình cách khóa các vùng dữ liệu trong 1 sheet. Còn những khác thì vẫn nhập dữ liệu bình thường. Mong các bạn giúp đỡ. Cảm ơn các bạn nhiều!

Đối với Excel 2003 thì mình hay làm như thế này này.
Bước 1. Bôi đen toàn bộ Sheet muốn khóa "Ctrl +A"/ bấm phải chuột chọn Format Cells.../Protection/"nếu tích chọn":
Lock = khóa tất cả
Hide = ẩn công thức và nội dung bên trong
sau đó bạn nhấn OK
Bước 2. Chọn ô (cells) chỉ cho phép nhập và sửa thì chọn những ô (cells) đó bằng cách bôi đen và "bỏ dấu chọn" trong mục: Lock và Hide/Ok
Bước 3. Chọn Menu Tools/Protection/Protect Sheets.../Tại vị trí dấu nhắc bạn gõ mật khẩu/OK/nhập lại mật khẩu mà bạn vừa nhập lúc trước để xác nhận/Ok
Kết quả sẽ ...... như bạn mong muốn!

 

[Ba Tê]

Đối với Excel 2003 thì mình hay làm như thế này này.
B1. Chọn tất cả sheet/Format Cells.../Protection/"nếutích chọn":
Lock = khóa tất cả
Hide = ẩn công thức và nội dung bên trong
nhấn OK
B2. Chọn ô (cells) chỉ cho phép nhập và sửa thì chọn những ô (cells) đó bằng cách bôi đen và "bỏ dấu chọn" trong mục: Lock và Hide/Ok
B3. Chọn Menu Tools/Protection/Protect Sheets.../Tại vị trí dấu nhắc bạn gõ mật khẩu/OK/nhập lại mật khẩu mà bạn vừa nhập lúc trước để xác nhận/Ok
Kết quả sẽ ...... như bạn mong muốn!

Bạn trả lời cho bài nào, của ai, nên ấn vào nút Trả Lời Với Trích Dẫn dưới bài đó để người khác biết mà dò...
Bài trả lời của bạn chẳng ai hiểu bạn muốn trả lời cho ai.
Cũng như không!
------------
Nếu trả lời cho các bài hỏi cách mở khóa bên trên là cùng phạm quy. Vào thùng rác của GPE.

 

[hantuvan]

Bạn trả lời cho bài nào, của ai, nên ấn vào nút Trả Lời Với Trích Dẫn dưới bài đó để người khác biết mà dò...
Bài trả lời của bạn chẳng ai hiểu bạn muốn trả lời cho ai.
Cũng như không!
------------
Nếu trả lời cho các bài hỏi cách mở khóa bên trên là cùng phạm quy. Vào thùng rác của GPE.

Cảm ơn bác đã nhắc, "Đã bổ xung" nội dung bài viết bên trên

 

[Ba Tê]

Cảm ơn bác đã nhắc, "Đã bổ xung" nội dung bài viết bên trên

Bài của bạn hướng dẫn hình như bị ngược.
Đầu tiên chọn toàn bộ sheet, vào Format ... bỏ chọn Lock, Hide, sau đó chọn 1 hoặc nhiều vùng muốn khóa, vào Format ... click chọn Lock, Hide.
Vào Protect Sheet khóa lại.
Sau này tất cả các ô ngoài vùng bị khóa mới nhập liệu được theo ý tác giả.

 

[hantuvan]

Bài của bạn hướng dẫn hình như bị ngược.
Đầu tiên chọn toàn bộ sheet, vào Format ... bỏ chọn Lock, Hide, sau đó chọn 1 hoặc nhiều vùng muốn khóa, vào Format ... click chọn Lock, Hide.
Vào Protect Sheet khóa lại.
Sau này tất cả các ô ngoài vùng bị khóa mới nhập liệu được theo ý tác giả.

Thực ra vắn tắt thì sẽ là:
B1: Bôi đen tất cả các ô (toàn bộ luôn) tích chọn "Lock"
B2: Chọn ô vùng cần nhập liệu bằng cách bôi đen ô vùng đó (theo đúng ý đồ chủ thớt ở trên) vào lại Format cells/.../ protect bỏ dấu chọn (trống ô)/Ok
B3: Đặt Pass là xong
Ở bước 1 Excell (2003) mặc định đã chọn là "lock" khi đặt pass thì khóa tất cả nên ta phải gỡ lock cho vùng cần gỡ rồi đặt pass thì ok, máy của mình thì không phải làm bước 1 nữa mà làm luôn bước 2.

 

[huongluadxh]

Sao mọi người toàn khóa mà không đề cập đến vấn đề mở nhỉ?
Mình có hỏi rồi sao mà ko thấy ai help me nơi hu hu hu
Mình đang dùng Excel 2007.
Mình có dùng phần mềm OPRTbox nhưng sao mở cũng ko được hè?

 

[leonguyenz]

Sao mọi người toàn khóa mà không đề cập đến vấn đề mở nhỉ?
Mình có hỏi rồi sao mà ko thấy ai help me nơi hu hu hu
Mình đang dùng Excel 2007.
Mình có dùng phần mềm OPRTbox nhưng sao mở cũng ko được hè?

Khi bạn nhập vào một vùng có khóa vùng excel sẽ hỏi bạn mật khẩu, bạn gõ đúng mật khẩu là nhập được bình thường. Nếu bạn không nhớ mật khẩu vùng thì phải nhớ mật khẩu lúc bạn khóa sheet (Protect Sheet), khi mở khóa sheet thì khóa vùng mất tác dụng. Bạn có thể vào thay đổi mật khẩu vùng bằng cách: Review => Allow users to Edit Ranges => Modify, sau đó nhập mật khẩu mới. Để khóa vùng có tác dụng bạn phải khóa sheet lại (Protect Sheet).

 

[nguyendacdung]

Khóa ô trong Excel

Liên hệ với mình, mình sẽ dạy chi tiết và trực tiếp vì mọi người nói có nhiều điều dẫn đến ng hỏi không hiểu IDYM: japanese_boy0310
Với điều kiện là phải Thanks sau khi đã hiểu

 

[vtkmoduc]

Tôi nhờ bạn viết cho tôi đoạn code khóa và mở 2 vùng trên Excel thành 2 khóa khác nhau. Chú ý khi nhập khóa bạn dùng lệnh Input. Cảm ơn bạn nhiều

 

[phongkiemtinh]

Em cũng có file đính kèm muốn khóa theo vùng. Chỉ khóa trong vùng màu vàng A1:E5, khóa những cell đã có dữ liệu. Vậy thêm lệnh gì để chỉ khóa trong vùng đó thôi, ngoìa vùng này thì cell có dữ liệu vẫn chỉnh sửa được.Cảm ơn các bác hồi âm giúp dùm

----------------------------------------------
Có phải chỉ cần thêm dòng ".Range("A1:E5").Select" phía sau dòng :.Unprotect "gpe" là được không các bác.
Em thử thấy ok.Có gì các bác chỉ bảo thêm

 

[nghiaphuc]

Em cũng có file đính kèm muốn khóa theo vùng. Chỉ khóa trong vùng màu vàng A1:E5, khóa những cell đã có dữ liệu. Vậy thêm lệnh gì để chỉ khóa trong vùng đó thôi, ngoìa vùng này thì cell có dữ liệu vẫn chỉnh sửa được.Cảm ơn các bác hồi âm giúp dùm

Bạn sửa lại code như sau:
[GPECODE=vb]Sub LockSh2()
With Sheet1
.Unprotect "gpe"
.Cells.Locked = False
.[A1:E5].Locked = True
.Protect "gpe"
End With
End Sub[/GPECODE]

 

[phongkiemtinh]

Bạn sửa lại code như sau:
[GPECODE=vb]Sub LockSh2()
With Sheet1
.Unprotect "gpe"
.Cells.Locked = False
.[A1:E5].Locked = True
.Protect "gpe"
End With
End Sub[/GPECODE]

Ui thật tuyệt, bac Nghiaphuc có code ngắn mà dễ hiểu. Thanks bác nhiều.

Ah bác nghiaphuc và diễn đàn GPE ơi, e có cái file này bác xem bên sheet yêu cầu giúp giải quyết e với.

 

[phongkiemtinh]

HIc GPE mà không ai giúp chỉ e với......

 

[saccalo]

chào các bác em muốn khóa các ô có chứa công thức còn các ô còn lại vẫn có thể nhập dữ liệu vào được mà sao em làm nó toàn khóa cả sheet, các bác chỉ giúp em với

 

[loinguyen212]

Bạn sửa lại code như sau:
[GPECODE=vb]Sub LockSh2()
With Sheet1
.Unprotect "gpe"
.Cells.Locked = False
.[A1:E5].Locked = True
.Protect "gpe"
End With
End Sub[/GPECODE]

Cho em hỏi tại sao em làm code như bác mà xảy ra lỗi, nhờ bác cao tay chỉ dùm
Sub LockSh12()
With Sheet12
.Cells.Locked = False
.Cells.FormulaHidden = False
.SpecialCells(xlCellTypeFormulas, 23).Locked = True
.SpecialCells(xlCellTypeFormulas, 23).FormulaHidden = True
.Protect "gpe"
End With
End Sub

 

[hungpeo28]

Cach1: dùng Excel:
----Bôi đen toàn bộ sheet (kích chuột vào điểm giao của cột 1 và hàng A)
---menu---->format---->formatcell----->Protection--->tích bỏ hai cái (Locked và Hidden)---->Ok
----Ctr+G---->chọn Special---->tích vào Formulas --->ok
----vào formatcell----->Protection --->chọn hết lại hai cái: Locked và Hidden)---->Ok
----vào tool ---->protec--->gõ mật khẩu hai lần-->ok-->song
Cách 2:
'ạn chép đoạn modul sau đây vào ( bạn chọn ALt+ff--->copy đoạn code đó vào ----thisworkboox)
'Tao o khoa tung cel trong khi su dung cong thuc,mà khong cho ng khac su dung

Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
'password dat la "25251325"
Dim rngdata As Range
'bat dau vong lap for qua vong lap for co chua gia tri
For Each rngdata In target.Cells
'kiem tra xem o so co phai la cong thuc khong ?
If rngdata.HasFormula Then
'khoa o neu o do la cong thuc
ActiveSheet.Protect ("25251325")
Exit Sub
Else
'huy bo khoa o neu o do khong phai la cong thuc
ActiveSheet.Unprotect ("25251325")
End If
Next rngdata
End Sub

__________________
Bạn chú ý chính tả: Alt + F11, không phải Alt + ff
và thisworkbook, không phải thisworkboox
Code của bạn chạy tốt nhưng người ta không thể nào sử dụng được do mở không lên cửa sổ VBA và không tìm thấy chỗ để copy code vào.
Và: làm xong, không phải làm song
ptm0412

Bạn cho hỏi sau khi chọn sheet/ấn F7 và copy đoạn code trên vào thì mình làm tiếp như thế nào. Mình ấn tiếp F5 thì ko có nút Run (mờ), tắt đi vào lại trong excel thì thấy công thức không bị khóa.
Cho mình hỏi thêm: muốn khóa nhiều vùng công thức trong cùng 1 sheet thì làm thế nào?

Cảm ơn nhiều!

 

[BoPoKon]

Bạn thử tải file này xem

Bạn ơi, cách làm chi tiết như thế nào? Cảm ơn bạn.

 

[vanle33]

Bạn ơi, cách làm chi tiết như thế nào? Cảm ơn bạn.

Đó là dùng code đó bạn. Bạn nhấn Alt+F11 để xem code. Chạy code thì nhấn Alt+f8. Sau khi chạy code thì sẽ thống báo khóa vùng nào ở Sheet2.

 

[Tô Kim Khá]

Ok mình giúp bạn theo hai cách nhá.


Cach1: dùng Excel:
----Bôi đen toàn bộ sheet (kích chuột vào điểm giao của cột 1 và hàng A)
---menu---->format---->formatcell----->Protection--->tích bỏ hai cái (Locked và Hidden)---->Ok
----Ctr+G---->chọn Special---->tích vào Formulas --->ok
----vào formatcell----->Protection --->chọn hết lại hai cái: Locked và Hidden)---->Ok
----vào tool ---->protec--->gõ mật khẩu hai lần-->ok-->song
Cách 2:
'ạn chép đoạn modul sau đây vào ( bạn chọn ALt+ff--->copy đoạn code đó vào ----thisworkboox)
'Tao o khoa tung cel trong khi su dung cong thuc,mà khong cho ng khac su dung

Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range)
'password dat la "25251325"
Dim rngdata As Range
'bat dau vong lap for qua vong lap for co chua gia tri
For Each rngdata In target.Cells
'kiem tra xem o so co phai la cong thuc khong ?
If rngdata.HasFormula Then
'khoa o neu o do la cong thuc
ActiveSheet.Protect ("25251325")
Exit Sub
Else
'huy bo khoa o neu o do khong phai la cong thuc
ActiveSheet.Unprotect ("25251325")
End If
Next rngdata
End Sub

__________________
Bạn chú ý chính tả: Alt + F11, không phải Alt + ff
và thisworkbook, không phải thisworkboox
Code của bạn chạy tốt nhưng người ta không thể nào sử dụng được do mở không lên cửa sổ VBA và không tìm thấy chỗ để copy code vào.
Và: làm xong, không phải làm song
ptm0412

hay quá cảm ơn bạn rất nhiều, tuyệt vời.

 

[cobala1608]

mình làm theo cách khoavu87 rất ok (mình viết gọn lại 1 chút cho dễ hình dung)
- Bôi đen vùng cần khóa trong sheet
- Ctrl + 1 hiện ra menu->tích bỏ Locked và Hidden ->Ok
- Ctrl+G ->chọn Special ->tích vào Formulas ->ok
- Ctrl + 1 hiện ra menu->tích chọn Locked và Hidden ->Ok
- vào Home -> Format -> protec sheet--->gõ mật khẩu ->ok-> gõ mật khẩu lần 2 ->ok
(khóa công thức thì tích locked, ẩn công thức thì dùng Hidden, muốn cả 2 thì tích hết)
tuy nhiên khi khóa rows và columns nó khóa luôn hình ảnh mình đính kèm, mà hình ảnh đó mình cần di chuyển, có bạn nào có cách gỡ không giúp mình với. thanks

 

[giaiphap]

mình làm theo cách khoavu87 rất ok (mình viết gọn lại 1 chút cho dễ hình dung)
- Bôi đen vùng cần khóa trong sheet
- Ctrl + 1 hiện ra menu->tích bỏ Locked và Hidden ->Ok
- Ctrl+G ->chọn Special ->tích vào Formulas ->ok
- Ctrl + 1 hiện ra menu->tích chọn Locked và Hidden ->Ok
- vào Home -> Format -> protec sheet--->gõ mật khẩu ->ok-> gõ mật khẩu lần 2 ->ok
(khóa công thức thì tích locked, ẩn công thức thì dùng Hidden, muốn cả 2 thì tích hết)
tuy nhiên khi khóa rows và columns nó khóa luôn hình ảnh mình đính kèm, mà hình ảnh đó mình cần di chuyển, có bạn nào có cách gỡ không giúp mình với. Cảm ơn

Khi Protect thì bạn đánh dấu chọn như hình.