Có cách nào chỉ cho nhập dữ liệu vào ô trống còn ô đã có dữ liệu thì không cho nhập? (1 người xem)

[SoiBien]

đến giờ đó mới hỏi thì ngủ mất tiêu rồi.

Thế này nhé: ở sheet2 thì command bebe2 phải gọi Sub LockSh2 (khi protect), vì như hiện nay thì nó chỉ chỉ lock những ô nào đã được đánh dấu Lock.

Tuy nhiên trường hợp này chỉ đáng ngại khi Admin mở ra rồi điều chỉnh trực tiếp trên máy user (điều chỉnh xong rồi bỏ đi, không Reopen lại).

 

[Mr Okebab]

đến giờ đó mới hỏi thì ngủ mất tiêu rồi.

Thế này nhé: ở sheet2 thì command bebe2 phải gọi Sub LockSh2 (khi protect), vì như hiện nay thì nó chỉ chỉ lock những ô nào đã được đánh dấu Lock.

Tuy nhiên trường hợp này chỉ đáng ngại khi Admin mở ra rồi điều chỉnh trực tiếp trên máy user (điều chỉnh xong rồi bỏ đi, không Reopen lại).

Thì như trên đã nói, nó chỉ khóa lại (với những ô là hiện tại chưa khóa) khi thực hiện Save or Close.
Còn admin mà quên thì. . . bó tay thôi.

Thân!

 

[ntdtinfo]

- Mình đố bạn thay đổi được dử liệu của cell đã có nếu không bít pass hìhì !!!
- Tuỳ theo nhu cầu có thể là Workbook cho toàn bộ và WorkSheet cho Sheet.

Dim OldValue
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   OldValue = Target.Cells(1, 1)
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not IsEmpty(OldValue) And (OldValue <> Target.Cells(1, 1)) Then
        If InputBox("Password:", "Yeu cau nhap Password ""tuan""") <> "tuan" Then
            Application.Undo
        End If
    End If
End Sub

Cái này của bạn cũng hay, nhưng khi người ta xem code và thấy pass thì họ sữa máy hồi. cho nên mình làm thế nào để không cho họ xem code để không thấy pass luôn

 

[mymichau]

Cho Em hỏi? Với đọan code nầy, thì việc đặt Pass phải là chử HOA, nhưng khi gỏ pass vào ô Inputbox thì tại sao gỏ chử thường cũng được. Và xi giải thíc giùm Em hai dòng :
Selection.SpecialCells(xlCellTypeConstants, 23).Locked = True
Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
Xin cảm ơn.

Sub LockSh1()
On Error Resume Next
With Sheet1
.Select
.Unprotect "Z"
.Cells.Locked = False
End With
Selection.SpecialCells(xlCellTypeConstants, 23).Locked = True
Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
Sheet1.Protect "Z"
Sheet1.Bebe2.Caption = "Khoa"
Sheet1.Bebe2.ForeColor = &HFF&
End Sub

 

[anhtuan1066]

Mở cửa sổ VBE, vào menu Tools\VBA Project Properties.. trong tab Protection ấy... gõ pass vào thì sau này chỉ có bạn biết pass mới có thề edit dc code

 

[sebastian]

Mở cửa sổ VBE, vào menu Tools\VBA Project Properties.. trong tab Protection ấy... gõ pass vào thì sau này chỉ có bạn biết pass mới có thề edit dc code

ko hẳn đâu bạn , có người ko cần biết pasword mà vẫn mở đc , chỉ mất 5s thôi ah

 

[tedaynui]

ko hẳn đâu bạn , có người ko cần biết pasword mà vẫn mở đc , chỉ mất 5s thôi ah

Tất nhiên Anhtuan1066 và mọi người thừa biết chuyện đó nhưng ta đang đề cập vấn đề con đường chính đạo bạn à. Ai cũng 5s và công khai thế thì... hix hix...

TDN

 

[SA_DQ]

Cho Em hỏi? Và xin giải thíc giùm Em hai dòng :
Selection.SpecialCells(xlCellTypeConstants, 23).Locked = True
Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
Xin cảm ơn.

Trăm nghe không bằng 1 thấy; Mình sẽ giúp bạn thấy rỏ điều này, như sau:
Bạn lấy trang tính mới
Cột đầu, với vài ba động tác, bạn tạo cột số tăng dần; (khoảng chứng trên 12 số)
Cột kế, bạn tạo cột số bằng cách tạo công thức (CT) tại B(i) =A(i) + A(i+1)
Cột thứ ba: Bạn tạo CT kiểu logic, như sau =B(i) < A(i)
Cột tiếp chứa CT: =B(i) & cod(B(i)+64) - Đừng sợ, chúng ta đang gây CT lỗi mà!
Cột 5 ta tạo CT tại E(i): =CHAR(CODE("A(i)")+A(i+1))
Cột kế tiếp ta nhập CT tại F(i): =E(i)&B(i)
Cuối cùng, (mừng quá-Sắp xong!) tại G(i) ta nhập CT: =INDIRECT(F(i))

Sau đó cho chạy macro này, bạn sẽ thích ngay khi hiểu được vấn đề;
Nếu còng thắc mắc, còn trả lời!

Option Explicit
Sub GoToAll()
    Range("A1:G16").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.Interior .ColorIndex = 38
    
    Range("A1:G16").Select
    Selection.SpecialCells(xlCellTypeConstants, 3).Select
    
    Range("A1:H16").Select
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    Selection.Interior .ColorIndex = 36
    
    Selection.SpecialCells(xlCellTypeFormulas, 3).Select
    Selection.Interior.ColorIndex = 34
    
    Range("A1:G15").Select
    Selection.SpecialCells(xlCellTypeFormulas, 20).Select
    
End Sub

 

[phamduylong]

Cho Em hỏi? Với đọan code nầy, thì việc đặt Pass phải là chử HOA, nhưng khi gỏ pass vào ô Inputbox thì tại sao gỏ chử thường cũng được. Và xi giải thíc giùm Em hai dòng :
Selection.SpecialCells(xlCellTypeConstants, 23).Locked = True
Selection.SpecialCells(xlCellTypeFormulas, 23).Locked = True
Xin cảm ơn.

Selection.SpecialCells(xlCellTypeConstants, 23) chọn những ô có dữ liệu (không phải công thức)
Selection.SpecialCells(xlCellTypeFormulas, 23) chọn những ô công thức
Locked = True khóa ô (False: không khóa)

 

[hong gam]

Chào cả nhà.
nhân đọc bài của sieunhi10079 mình thấy trùng hợp với thắc mắc của mình. mình xin nói rõ 1 chút để các bác rõ suy nghĩ của chúng em.
Em có 1 file excel quản lý việc tiếp nhận của bộ phận dịch vụ với khách hàng. Tuy nhiên file này em tạo ra nhưng người sử dụng là phòng tiếp nhận sửa chữa. Cuối mỗi ngày bộ phận này gởi thông tin cho em. Tuy vậy, khi họ nhập dữ liệu rồi xóa đi hiệu chỉnh lại thì em không thể quản nổi. Các bác nào biết cách chỉ giúp em với. Em có cài thử đoạn code của bác phamduylong rồi nhưng vẫn không được. có lẽ do em không biết gì vba.

 

[hong gam]

Chào các bác.

theo như file đính kèm của bác okbab, protect data cells-OB3. em muốn ứng dụng theo cách 2 và có tác dụng trên toàn workbook thì em phải thêm và bớt cái gì. Mong các bác chỉ dẫn.

 

[arslcescfc]

Cái file Protect Data Cells-OB3 của bạn bị lỗi do chỉnh protect level high rồi kìa chỉnh lại sao được đây bạn?
Nếu được rồi thì làm sao áp dụng ra các ô được phải chọn phần nào, có cần đánh code gì không?
Mong các bạn giúp đỡ, thanks.

 

[tungmsb]

Các Anh Chị giúp em với ( Protec nhưng không lọc được)

Em có áp dụng việc protec nhưng vẫn điền dữ liệu vào ô trống. Nhưng lại không lọc được. Các anh chị xem có cách nào giúp em vẫn protec dữ liệu, vẫn nhập dữ liệu vào ô trống mà vẫn lọc được không?
Cảm ơn các Anh/Chị

 

[TVB]

Thấy chủ đề này chưa có cao thủ nào trả lời, mình cũng đang gặp vấn đề như của tungsb ở bài #33. Có cao thủ nào giúp mình khi protec rồi vẫn fillter được không?

Xin đa tạ!

 

[kimanh87]

E CŨNG ĐANG GẶP VƯỚNG MẮC NÀY, CÓ SI ĐÃ LÀM ĐƯỢC RÙI THÌ CHỈ E VỚI.
tks!

 

[viethung01mt]

Oài. Loạt bài đang hấp dẫn mà không có cao thủ nào viết tiếp nè. Đúng là cho dù khóa dữ lieu thì người nhập liệu vẫn cần phải lọc được để xem chứ khóa luôn chức năng này e là quá đáng với họ. Hì

 

[Hong.Van]

Oài. Loạt bài đang hấp dẫn mà không có cao thủ nào viết tiếp nè. Đúng là cho dù khóa dữ lieu thì người nhập liệu vẫn cần phải lọc được để xem chứ khóa luôn chức năng này e là quá đáng với họ. Hì

Đánh dấu check cho "Use AutoFilter" trong hộp " Allow all Users..." là OK mà

 

[fogree]

File đã khóa nhưng muốn người dùng vẫn có thể chọn được list cho sẵn (data validation) khi nhập dữ liệu thì làm thế nào ạ?
Các bác giúp em với.

 

[fogree]

sory các bác, mình xử lý được rồi

 

[haonlh]

Thì sửa tiếp vậy. Cảm ơn bác. (có như vậy thì em mới tiến được chứ)

Thân!

Cảm ơn bác, dù rằng chưa hiểu lắm, nhất là việc tạo ra cái bebe !!!, nhưng thôi, sẽ "ngâm" sau

Có ý nhỏ trong code

If (Target.Columns.Count > 1 Or Target.Rows.Count > 1) Then

nên thay bằng

If (Target.count > 1) Then

(đôi khi cũng chỉ muốn mã nguồn gọn)