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

[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.