Cần viết hộ code đặt mật khẩu của cell (1 người xem)

[alibaba2209]

mình muốn 1 code cell khoá công thức có mật khẩu mạc định của mình => lock all sheet
và unlock all sheet (khi mở thì sẽ hỏi mật khẩu để mình đánh vào)
mong được giúp đỡ! xin chân thành cảm ơn..

 

[giangleloi]

mình muốn 1 code cell khoá công thức có mật khẩu mạc định của mình => lock all sheet
và unlock all sheet (khi mở thì sẽ hỏi mật khẩu để mình đánh vào)
mong được giúp đỡ! xin chân thành cảm ơn..

Khóa tất cả các sheet bạn thử cái này:

Sub Khoa()
Dim ws
  For Each ws In ThisWorkbook.Worksheets
     ws.Protect "GPE"
  Next
End Sub

 

[alibaba2209]

Khóa tất cả các sheet bạn thử cái này:

Sub Khoa()
Dim ws
  For Each ws In ThisWorkbook.Worksheets
     ws.Protect "GPE"
  Next
End Sub

không phải rùi! mình muốn chỉ khoá nguyên những chỗ có công thức cơ

 

[giangleloi]

mình muốn 1 code cell khoá công thức có mật khẩu mạc định của mình => lock all sheet
và unlock all sheet (khi mở thì sẽ hỏi mật khẩu để mình đánh vào)
mong được giúp đỡ! xin chân thành cảm ơn..

Thế bạn nhìn chỗ bôi đỏ bạn ghi ấy. Vậy bạn ctrl + A => F5 => chọn Formulas => Ok rồi bạn khóa như bình thường.
Lỡ bài 2 rồi thì cho bạn code mở sheet:

Sub Mo()
  Dim Ws, P
  On Error GoTo GPE
  P = Application.InputBox("Nhap password", Type:=2)
  If P <> "False" Then
    For Each Ws In ThisWorkbook.Worksheets
      Ws.Unprotect P
    Next
  End If
  Exit Sub
GPE:
  MsgBox "Sai mat khau"
End Sub

 

[alibaba2209]

Thế bạn nhìn chỗ bôi đỏ bạn ghi ấy. Vậy bạn ctrl + A => F5 => chọn Formulas => Ok rồi bạn khóa như bình thường.
Lỡ bài 2 rồi thì cho bạn code mở sheet:

Sub Mo()
  Dim Ws, P
  On Error GoTo GPE
  P = Application.InputBox("Nhap password", Type:=2)
  If P <> "False" Then
    For Each Ws In ThisWorkbook.Worksheets
      Ws.Unprotect P
    Next
  End If
  Exit Sub
GPE:
  MsgBox "Sai mat khau"
End Sub

chuẩn rồi! thanks kiu

 

[giangleloi]

Thiếu 1 bước quan trọng phỉa Bo lock & hidden trước khi khóa.
1. Ctrl+A : chuột phải/Format cell/tab Protect bỏ check lock+hiden
2. Ctrl+A -> F5. rồi làm như trên: xong click phải/chuột phải/Format cell/tab Protect check lock+hiden
3. Giờ thì Protect thì mới có tác dụng đối với ô công thức

Còn không thì nó all cell trong sheet, bởi vì mặc định là nó lock cell

Thì đương nhiên là vậy rồi. Đang chỉ cách chọn cell có công thức thôi mà.

 

[chuot0106]

không phải rùi! mình muốn chỉ khoá nguyên những chỗ có công thức cơ

Bạn tham khảo code này nhé!
Code khóa:

Sub Khoa()
    Dim Sh As Worksheet
    On Error Resume Next
    For Each Sh In Worksheets
        Sh.Cells.Locked = False
        Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
        Sh.Protect Password:="chuot0106"
    Next Sh
End Sub
End Sub

Code mở:

Sub Mo()
Dim Sh As Worksheet
    For Each Sh In Worksheets
        Sh.Unprotect Password:="chuot0106"
    Next Sh
End Sub

 

[seikoqn]

Thiếu 1 bước quan trọng phải BỎ lock & hidden trước khi khóa.
1. Ctrl+A : chuột phải/Format cell/tab Protect bỏ check lock+hiden
2. Ctrl+A -> F5. rồi làm như trên: xong click chuột phải/Format cell/tab Protect check lock+hiden
3. Giờ thì Protect thì mới có tác dụng đối với ô công thức

Còn không thì nó all cell trong sheet, bởi vì mặc định là nó lock cell

Đã viết code thì viết 1 lèo luôn chứ lại còn thủ công thế này nữa sao bạn?

 

[alibaba2209]

Bạn tham khảo code này nhé!
Code khóa:

Sub Khoa()
    Dim Sh As Worksheet
    On Error Resume Next
    For Each Sh In Worksheets
        Sh.Cells.Locked = False
        Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
        ActiveSheet.Protect
    Next Sh
End Sub

Code mở:

Sub Mo()
Dim Sh As Worksheet
    For Each Sh In Worksheets
        ActiveSheet.Unprotect Password:="chuot0106"
    Next Sh
End Sub

bạn update dùm mình có mật khẩu nữa đi, code này hay nhưng khoá ko có mật khẩu

 

[chuot0106]

bạn update dùm mình có mật khẩu nữa đi, code này hay nhưng khoá ko có mật khẩu

Đã sửa lại code bạn xem ở đây: #8

 

[alibaba2209]

Đã sửa lại code bạn xem ở đây: #8

code chạy ngon rùi bạn à!
bạn update thêm chỉ khoá nhưng ô có công thức không?

 

[alibaba2209]

.................................