xin các thầy giúp em cách khoá công thức không cho xoá không cho ghi đè (1 người xem)

[gamegamegamegame]

em muống bảo vệ công thức bằng cách ko cho xóa ko cho ghi đè những cho autofill
thì phải viết vba như thế nào ạ

 

[vuongtoituonglai]

em muống bảo vệ công thức bằng cách ko cho xóa ko cho ghi đè những cho autofill
thì phải viết vba như thế nào ạ

Không cần VBA thì có được không?

 

[Kiều Mạnh]

em muống bảo vệ công thức bằng cách ko cho xóa ko cho ghi đè những cho autofill
thì phải viết vba như thế nào ạ

Thử Code sau của GPE chép vào ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rngData As Range
For Each rngData In Target.Cells
    If rngData.HasFormula Then
        ActiveSheet.Protect ("123")''Doi Lai Pass theo minh thich
        Exit Sub
    Else
        ActiveSheet.Unprotect ("123")''Doi Lai Pass theo minh thich
    End If
Next rngData
End Sub

 

[gamegamegamegame]

Thử Code sau của GPE chép vào ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rngData As Range
For Each rngData In Target.Cells
    If rngData.HasFormula Then
        ActiveSheet.Protect ("123")''Doi Lai Pass theo minh thich
        Exit Sub
    Else
        ActiveSheet.Unprotect ("123")''Doi Lai Pass theo minh thich
    End If
Next rngData
End Sub

cái này thì xóa không được ghi đề cũng không được nhưng autofill xuống nó cũng đổi pass luông có thể chèn thêm cho phép autofill công thức đươc ko bạn

 

[Kiều Mạnh]

cái này thì xóa không được ghi đề cũng không được nhưng autofill xuống nó cũng đổi pass luông có thể chèn thêm cho phép autofill công thức đươc ko bạn

nếu vậy thì làm thủ công đi nha.... hay sử dụng chức năng Protect có sẳn của bác Bill

Private Sub Lock_Unlok_Click()
Dim Pass As String, Sh
Application.ScreenUpdating = False
Pass = Application.InputBox("Vui Long Nhap Password")
If Pass = "123" Then
    For Each Sh In ActiveWorkbook.Worksheets
        If Lock_Unlok.Caption = "Lock" Then
            Sh.Protect Password:="123"''Thay doi Pass
        Else
            Sh.Unprotect Password:="123"
        End If
    Next
    Lock_Unlok.Caption = IIf(Lock_Unlok.Caption = "Lock", "Unlock", "Lock")
Else
    MsgBox "Password Sai - Vui Long Nhap Lai !!!"
End If
End Sub

 

[gamegamegamegame]

nếu vậy thì làm thủ công đi nha.... hay sử dụng chức năng Protect có sẳn của bác Bill

Private Sub Lock_Unlok_Click()
Dim Pass As String, Sh
Application.ScreenUpdating = False
Pass = Application.InputBox("Vui Long Nhap Password")
If Pass = "123" Then
    For Each Sh In ActiveWorkbook.Worksheets
        If Lock_Unlok.Caption = "Lock" Then
            Sh.Protect Password:="123"''Thay doi Pass
        Else
            Sh.Unprotect Password:="123"
        End If
    Next
    Lock_Unlok.Caption = IIf(Lock_Unlok.Caption = "Lock", "Unlock", "Lock")
Else
    MsgBox "Password Sai - Vui Long Nhap Lai !!!"
End If
End Sub

cảm ơn kieu manh nha