KHOÁ CÁC Ô ĐÃ NHẬP DỮ LIỆU TRÊN EXCEL

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài
Có
HeSanbi đã viết:
@hungvu0106 Bạn có thể sử dụng hàm LockCells dưới đây

Sử dụng:

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
10 là số giây, là khoảng thời gian Delay để khóa ô

Gõ thêm "_" thành LockCells_ để bỏ thực thi.

Mã dưới đây đặt trong Module mới
JavaScript: 
'                    _,
' ___   _   _  _ ___(_)
'/ __| / \ | \| | _ | |
'\__ \/ \ \| \\ | _ \ |
'|___/_/ \_|_|\_|___/_|
'

Option Explicit
Option Compare Text
Private Const projectUDFName = "LockCells"
Private Const projectUDFFileName = "LockCells"
Private Const projectUDFVersion = "1.0"

#If VBA7 = 0 Then
  Public Enum LongLong:[_]:End Enum
  Public Enum LongPtr:[_]:End Enum
#End If

#If -VBA7 And -Win64 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongLong, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
#ElseIf VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Public Enum ValueLockSettings
  VDSLockRange = 1
End Enum

Public Type TypeArguments
  Action As Long
  direction As Long
  timer As Single
  ThisCell As Object
  Fx As String
  Target As Range
  address As String
  value As Variant
  SheetPW As String
End Type

Private Const n_ = vbNullString
Private Works() As TypeArguments

Function LockCells_(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells_ = ""
End Function
Function LockCells(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells = ""
  Call LockValueCommand(VDSLockRange, cells, sheetPassword, DelaySeconds)
End Function

Private Function LockValueCommand(direction&, ParamArray arguments())
  On Error Resume Next
  Dim r As Object
  Set r = Application.ThisCell: If r Is Nothing Then Exit Function
  Dim k%, i%, j%, adr$, f$, w As TypeArguments, n As Boolean
  f = r.formula
  adr = r.address(0, 0,,1)
  k = UBound(Works): k = k + 1: ReDim Preserve Works(1 To k)
adr:
  With Works(k): .Action = 1: Set .ThisCell = r: .address = adr: .Fx = f
    .direction = direction: .timer = timer
    Select Case direction
    Case VDSLockRange:: Set .Target = arguments(0): .SheetPW = arguments(1)
    End Select
    Call LockValue_Timer(arguments(2) * 1000)
  End With
End Function

Private Sub LockValue_Timer(Optional ByVal timer&)
  If timer < 0 Then timer = 0
  Call SetTimer(Application.hwnd, 444110, timer, AddressOf LockValue_callback)
End Sub

Private Sub LockValue_callback(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal idEvent As LongPtr, ByVal dwTime As LongPtr)
  On Error Resume Next
  Call KillTimer(hwnd, idEvent)
  LockValue_working
End Sub
 
Private Sub LockValue_working()
  On Error Resume Next
  Dim aa, UA%, i%, Sh As Object, w, lr&, rg, rg2 As Object
  Dim a As Object, b As TypeArguments, su As Boolean, ac As Boolean, ee As Boolean
  UA = UBound(Works)
  If UA = 0 Then Exit Sub

  For i = 1 To UA
    b = Works(i)
    With Works(i)
      Select Case .Action
      Case 1
        .Action = 2
        'GoSub a
        Set Sh = .Target.Parent
        If Sh.ProtectContents Then
          Err.Clear: Sh.Unprotect password:=.SheetPW: If Err Then GoTo n
        End If
        .ThisCell.FormulaHidden = True
        .ThisCell.Locked = True
        Select Case .direction
        Case VDSLockRange:
          .Target.FormulaHidden = True
          .Target.Locked = True
          Err.Clear: Set rg2 = .Target.SpecialCells(xlCellTypeBlanks)
          If Not rg2 Is Nothing And Err = 0 Then rg2.Locked = False: rg2.FormulaHidden = False
        End Select
s:
        If Not Sh.ProtectContents Then Sh.Protect password:=.SheetPW
      End Select
    End With
n:
  Next
E:
  Erase Works
  If Not a Is Nothing Then
    If su And a.ScreenUpdating <> su Then a.ScreenUpdating = su
    If ac And a.Calculation <> xlCalculationAutomatic Then a.Calculation = xlCalculationAutomatic
    If ee And a.EnableEvents <> ee Then a.EnableEvents = ee
  End If
Exit Sub
a:
  If a Is Nothing Then
    Set a = Application
    su = a.ScreenUpdating: If su Then a.ScreenUpdating = False
    ee = a.EnableEvents: If ee Then a.EnableEvents = False
    ac = a.Calculation = xlCalculationAutomatic: If ac Then a.Calculation = xlCalculationManual
  End If
Return
End Sub


Mã dưới đây đặt trong mã ThisWorkbook

JavaScript: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Sh.ProtectContents Then
    On Error Resume Next
    If Target.Locked Then
      Cancel = True
      Application.Dialogs(xlDialogProtectDocument).Show
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mình cảm ơn bạn. Mình sẽ thử
HeSanbi đã viết:
@hungvu0106 Bạn có thể sử dụng hàm LockCells dưới đây

Sử dụng:

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
10 là số giây, là khoảng thời gian Delay để khóa ô

Gõ thêm "_" thành LockCells_ để bỏ thực thi.

Mã dưới đây đặt trong Module mới
JavaScript: 
'                    _,
' ___   _   _  _ ___(_)
'/ __| / \ | \| | _ | |
'\__ \/ \ \| \\ | _ \ |
'|___/_/ \_|_|\_|___/_|
'

Option Explicit
Option Compare Text
Private Const projectUDFName = "LockCells"
Private Const projectUDFFileName = "LockCells"
Private Const projectUDFVersion = "1.0"

#If VBA7 = 0 Then
  Public Enum LongLong:[_]:End Enum
  Public Enum LongPtr:[_]:End Enum
#End If

#If -VBA7 And -Win64 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongLong, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
#ElseIf VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Public Enum ValueLockSettings
  VDSLockRange = 1
End Enum

Public Type TypeArguments
  Action As Long
  direction As Long
  timer As Single
  ThisCell As Object
  Fx As String
  Target As Range
  address As String
  value As Variant
  SheetPW As String
End Type

Private Const n_ = vbNullString
Private Works() As TypeArguments

Function LockCells_(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells_ = ""
End Function
Function LockCells(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells = ""
  Call LockValueCommand(VDSLockRange, cells, sheetPassword, DelaySeconds)
End Function

Private Function LockValueCommand(direction&, ParamArray arguments())
  On Error Resume Next
  Dim r As Object
  Set r = Application.ThisCell: If r Is Nothing Then Exit Function
  Dim k%, i%, j%, adr$, f$, w As TypeArguments, n As Boolean
  f = r.formula
  adr = r.address(0, 0,,1)
  k = UBound(Works): k = k + 1: ReDim Preserve Works(1 To k)
adr:
  With Works(k): .Action = 1: Set .ThisCell = r: .address = adr: .Fx = f
    .direction = direction: .timer = timer
    Select Case direction
    Case VDSLockRange:: Set .Target = arguments(0): .SheetPW = arguments(1)
    End Select
    Call LockValue_Timer(arguments(2) * 1000)
  End With
End Function

Private Sub LockValue_Timer(Optional ByVal timer&)
  If timer < 0 Then timer = 0
  Call SetTimer(Application.hwnd, 444110, timer, AddressOf LockValue_callback)
End Sub

Private Sub LockValue_callback(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal idEvent As LongPtr, ByVal dwTime As LongPtr)
  On Error Resume Next
  Call KillTimer(hwnd, idEvent)
  LockValue_working
End Sub
 
Private Sub LockValue_working()
  On Error Resume Next
  Dim aa, UA%, i%, Sh As Object, w, lr&, rg, rg2 As Object
  Dim a As Object, b As TypeArguments, su As Boolean, ac As Boolean, ee As Boolean
  UA = UBound(Works)
  If UA = 0 Then Exit Sub

  For i = 1 To UA
    b = Works(i)
    With Works(i)
      Select Case .Action
      Case 1
        .Action = 2
        'GoSub a
        Set Sh = .Target.Parent
        If Sh.ProtectContents Then
          Err.Clear: Sh.Unprotect password:=.SheetPW: If Err Then GoTo n
        End If
        .ThisCell.FormulaHidden = True
        .ThisCell.Locked = True
        Select Case .direction
        Case VDSLockRange:
          .Target.FormulaHidden = True
          .Target.Locked = True
          Err.Clear: Set rg2 = .Target.SpecialCells(xlCellTypeBlanks)
          If Not rg2 Is Nothing And Err = 0 Then rg2.Locked = False: rg2.FormulaHidden = False
        End Select
s:
        If Not Sh.ProtectContents Then Sh.Protect password:=.SheetPW
      End Select
    End With
n:
  Next
E:
  Erase Works
  If Not a Is Nothing Then
    If su And a.ScreenUpdating <> su Then a.ScreenUpdating = su
    If ac And a.Calculation <> xlCalculationAutomatic Then a.Calculation = xlCalculationAutomatic
    If ee And a.EnableEvents <> ee Then a.EnableEvents = ee
  End If
Exit Sub
a:
  If a Is Nothing Then
    Set a = Application
    su = a.ScreenUpdating: If su Then a.ScreenUpdating = False
    ee = a.EnableEvents: If ee Then a.EnableEvents = False
    ac = a.Calculation = xlCalculationAutomatic: If ac Then a.Calculation = xlCalculationManual
  End If
Return
End Sub


Mã dưới đây đặt trong mã ThisWorkbook

JavaScript: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Sh.ProtectContents Then
    On Error Resume Next
    If Target.Locked Then
      Cancel = True
      Application.Dialogs(xlDialogProtectDocument).Show
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mình mới dùng thử cách code này nhờ bạn xem giúp. Sau 5s nó tự động khoá cả ô có dữ liệu và ô chưa có dữ liệu có cách nào chỉ khoá ô có dữ liệu còn ô chưa có thì vẫn chọn bth được k ạ
HeSanbi đã viết:
@hungvu0106 Trong tệp của bạn không có mã như tôi đã hướng dẫn
Nhấp chuột vào đây để mở rộng...
Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
2 cái này mình không rõ là sẽ điều chỉnh ở ô nào.
le_vis đã viết:
Bạn xem lại bên máy của bạn - Tôi đã tes bên máy của tôi Office 2007 đến Office 2010 vẫn chạy tốt mà
Bạn thử xóa code cũ đi xem sao
Nhấp chuột vào đây để mở rộng...

le_vis đã viết:
Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Bài đã được tự động gộp:


Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Bài đã được tự động gộp:


Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Nhấp chuột vào đây để mở rộng...
Mình làm thử được rồi bạn. Nhưng cho mình hỏi thêm chút ở cái dòng cuối cùng khi mình nhập số lượng thì nó lại không khoá được(nhưng cột ở trên thì nó khoá). có cách nào khắc phục được k. Bạn xem file giúp mình với. Minh chân thành cảm ơn bạn
Bài đã được tự động gộp:

HeSanbi đã viết:
@hungvu0106 Bạn có thể sử dụng hàm LockCells dưới đây

Sử dụng:

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
10 là số giây, là khoảng thời gian Delay để khóa ô

Gõ thêm "_" thành LockCells_ để bỏ thực thi.

Mã dưới đây đặt trong Module mới
JavaScript: 
'                    _,
' ___   _   _  _ ___(_)
'/ __| / \ | \| | _ | |
'\__ \/ \ \| \\ | _ \ |
'|___/_/ \_|_|\_|___/_|
'

Option Explicit
Option Compare Text
Private Const projectUDFName = "LockCells"
Private Const projectUDFFileName = "LockCells"
Private Const projectUDFVersion = "1.0"

#If VBA7 = 0 Then
  Public Enum LongLong:[_]:End Enum
  Public Enum LongPtr:[_]:End Enum
#End If

#If -VBA7 And -Win64 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongLong, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
#ElseIf VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Public Enum ValueLockSettings
  VDSLockRange = 1
End Enum

Public Type TypeArguments
  Action As Long
  direction As Long
  timer As Single
  ThisCell As Object
  Fx As String
  Target As Range
  address As String
  value As Variant
  SheetPW As String
End Type

Private Const n_ = vbNullString
Private Works() As TypeArguments

Function LockCells_(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells_ = ""
End Function
Function LockCells(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells = ""
  Call LockValueCommand(VDSLockRange, cells, sheetPassword, DelaySeconds)
End Function

Private Function LockValueCommand(direction&, ParamArray arguments())
  On Error Resume Next
  Dim r As Object
  Set r = Application.ThisCell: If r Is Nothing Then Exit Function
  Dim k%, i%, j%, adr$, f$, w As TypeArguments, n As Boolean
  f = r.formula
  adr = r.address(0, 0,,1)
  k = UBound(Works): k = k + 1: ReDim Preserve Works(1 To k)
adr:
  With Works(k): .Action = 1: Set .ThisCell = r: .address = adr: .Fx = f
    .direction = direction: .timer = timer
    Select Case direction
    Case VDSLockRange:: Set .Target = arguments(0): .SheetPW = arguments(1)
    End Select
    Call LockValue_Timer(arguments(2) * 1000)
  End With
End Function

Private Sub LockValue_Timer(Optional ByVal timer&)
  If timer < 0 Then timer = 0
  Call SetTimer(Application.hwnd, 444110, timer, AddressOf LockValue_callback)
End Sub

Private Sub LockValue_callback(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal idEvent As LongPtr, ByVal dwTime As LongPtr)
  On Error Resume Next
  Call KillTimer(hwnd, idEvent)
  LockValue_working
End Sub
 
Private Sub LockValue_working()
  On Error Resume Next
  Dim aa, UA%, i%, Sh As Object, w, lr&, rg, rg2 As Object
  Dim a As Object, b As TypeArguments, su As Boolean, ac As Boolean, ee As Boolean
  UA = UBound(Works)
  If UA = 0 Then Exit Sub

  For i = 1 To UA
    b = Works(i)
    With Works(i)
      Select Case .Action
      Case 1
        .Action = 2
        'GoSub a
        Set Sh = .Target.Parent
        If Sh.ProtectContents Then
          Err.Clear: Sh.Unprotect password:=.SheetPW: If Err Then GoTo n
        End If
        .ThisCell.FormulaHidden = True
        .ThisCell.Locked = True
        Select Case .direction
        Case VDSLockRange:
          .Target.FormulaHidden = True
          .Target.Locked = True
          Err.Clear: Set rg2 = .Target.SpecialCells(xlCellTypeBlanks)
          If Not rg2 Is Nothing And Err = 0 Then rg2.Locked = False: rg2.FormulaHidden = False
        End Select
s:
        If Not Sh.ProtectContents Then Sh.Protect password:=.SheetPW
      End Select
    End With
n:
  Next
E:
  Erase Works
  If Not a Is Nothing Then
    If su And a.ScreenUpdating <> su Then a.ScreenUpdating = su
    If ac And a.Calculation <> xlCalculationAutomatic Then a.Calculation = xlCalculationAutomatic
    If ee And a.EnableEvents <> ee Then a.EnableEvents = ee
  End If
Exit Sub
a:
  If a Is Nothing Then
    Set a = Application
    su = a.ScreenUpdating: If su Then a.ScreenUpdating = False
    ee = a.EnableEvents: If ee Then a.EnableEvents = False
    ac = a.Calculation = xlCalculationAutomatic: If ac Then a.Calculation = xlCalculationManual
  End If
Return
End Sub


Mã dưới đây đặt trong mã ThisWorkbook

JavaScript: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Sh.ProtectContents Then
    On Error Resume Next
    If Target.Locked Then
      Cancel = True
      Application.Dialogs(xlDialogProtectDocument).Show
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mình cảm ơn bạn. Mình sẽ thử
HeSanbi đã viết:
@hungvu0106 Bạn có thể sử dụng hàm LockCells dưới đây

Sử dụng:

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
10 là số giây, là khoảng thời gian Delay để khóa ô

Gõ thêm "_" thành LockCells_ để bỏ thực thi.

Mã dưới đây đặt trong Module mới
JavaScript: 
'                    _,
' ___   _   _  _ ___(_)
'/ __| / \ | \| | _ | |
'\__ \/ \ \| \\ | _ \ |
'|___/_/ \_|_|\_|___/_|
'

Option Explicit
Option Compare Text
Private Const projectUDFName = "LockCells"
Private Const projectUDFFileName = "LockCells"
Private Const projectUDFVersion = "1.0"

#If VBA7 = 0 Then
  Public Enum LongLong:[_]:End Enum
  Public Enum LongPtr:[_]:End Enum
#End If

#If -VBA7 And -Win64 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongLong, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
#ElseIf VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Public Enum ValueLockSettings
  VDSLockRange = 1
End Enum

Public Type TypeArguments
  Action As Long
  direction As Long
  timer As Single
  ThisCell As Object
  Fx As String
  Target As Range
  address As String
  value As Variant
  SheetPW As String
End Type

Private Const n_ = vbNullString
Private Works() As TypeArguments

Function LockCells_(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells_ = ""
End Function
Function LockCells(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells = ""
  Call LockValueCommand(VDSLockRange, cells, sheetPassword, DelaySeconds)
End Function

Private Function LockValueCommand(direction&, ParamArray arguments())
  On Error Resume Next
  Dim r As Object
  Set r = Application.ThisCell: If r Is Nothing Then Exit Function
  Dim k%, i%, j%, adr$, f$, w As TypeArguments, n As Boolean
  f = r.formula
  adr = r.address(0, 0,,1)
  k = UBound(Works): k = k + 1: ReDim Preserve Works(1 To k)
adr:
  With Works(k): .Action = 1: Set .ThisCell = r: .address = adr: .Fx = f
    .direction = direction: .timer = timer
    Select Case direction
    Case VDSLockRange:: Set .Target = arguments(0): .SheetPW = arguments(1)
    End Select
    Call LockValue_Timer(arguments(2) * 1000)
  End With
End Function

Private Sub LockValue_Timer(Optional ByVal timer&)
  If timer < 0 Then timer = 0
  Call SetTimer(Application.hwnd, 444110, timer, AddressOf LockValue_callback)
End Sub

Private Sub LockValue_callback(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal idEvent As LongPtr, ByVal dwTime As LongPtr)
  On Error Resume Next
  Call KillTimer(hwnd, idEvent)
  LockValue_working
End Sub
 
Private Sub LockValue_working()
  On Error Resume Next
  Dim aa, UA%, i%, Sh As Object, w, lr&, rg, rg2 As Object
  Dim a As Object, b As TypeArguments, su As Boolean, ac As Boolean, ee As Boolean
  UA = UBound(Works)
  If UA = 0 Then Exit Sub

  For i = 1 To UA
    b = Works(i)
    With Works(i)
      Select Case .Action
      Case 1
        .Action = 2
        'GoSub a
        Set Sh = .Target.Parent
        If Sh.ProtectContents Then
          Err.Clear: Sh.Unprotect password:=.SheetPW: If Err Then GoTo n
        End If
        .ThisCell.FormulaHidden = True
        .ThisCell.Locked = True
        Select Case .direction
        Case VDSLockRange:
          .Target.FormulaHidden = True
          .Target.Locked = True
          Err.Clear: Set rg2 = .Target.SpecialCells(xlCellTypeBlanks)
          If Not rg2 Is Nothing And Err = 0 Then rg2.Locked = False: rg2.FormulaHidden = False
        End Select
s:
        If Not Sh.ProtectContents Then Sh.Protect password:=.SheetPW
      End Select
    End With
n:
  Next
E:
  Erase Works
  If Not a Is Nothing Then
    If su And a.ScreenUpdating <> su Then a.ScreenUpdating = su
    If ac And a.Calculation <> xlCalculationAutomatic Then a.Calculation = xlCalculationAutomatic
    If ee And a.EnableEvents <> ee Then a.EnableEvents = ee
  End If
Exit Sub
a:
  If a Is Nothing Then
    Set a = Application
    su = a.ScreenUpdating: If su Then a.ScreenUpdating = False
    ee = a.EnableEvents: If ee Then a.EnableEvents = False
    ac = a.Calculation = xlCalculationAutomatic: If ac Then a.Calculation = xlCalculationManual
  End If
Return
End Sub


Mã dưới đây đặt trong mã ThisWorkbook

JavaScript: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Sh.ProtectContents Then
    On Error Resume Next
    If Target.Locked Then
      Cancel = True
      Application.Dialogs(xlDialogProtectDocument).Show
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mình mới dùng thử cách code này nhờ bạn xem giúp. Sau 5s nó tự động khoá cả ô có dữ liệu và ô chưa có dữ liệu có cách nào chỉ khoá ô có dữ liệu còn ô chưa có thì vẫn chọn bth được k ạ
HeSanbi đã viết:
@hungvu0106 Trong tệp của bạn không có mã như tôi đã hướng dẫn
Nhấp chuột vào đây để mở rộng...
Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
2 cái này mình không rõ là sẽ điều chỉnh ở ô nào.
le_vis đã viết:
Bạn xem lại bên máy của bạn - Tôi đã tes bên máy của tôi Office 2007 đến Office 2010 vẫn chạy tốt mà
Bạn thử xóa code cũ đi xem sao
Nhấp chuột vào đây để mở rộng...

le_vis đã viết:
Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Bài đã được tự động gộp:


Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Bài đã được tự động gộp:


Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Nhấp chuột vào đây để mở rộng...
Mình làm thử được rồi bạn. Nhưng cho mình hỏi thêm chút ở cái dòng cuối cùng khi mình nhập số lượng thì nó lại không khoá được(nhưng cột ở trên thì nó khoá). có cách nào khắc phục được k. Bạn xem file giúp mình với. Minh chân thành cảm ơn bạn
 

File đính kèm

hungvu0106 đã viết:
Mình cảm ơn bạn. Mình sẽ thử

Mình mới dùng thử cách code này nhờ bạn xem giúp. Sau 5s nó tự động khoá cả ô có dữ liệu và ô chưa có dữ liệu có cách nào chỉ khoá ô có dữ liệu còn ô chưa có thì vẫn chọn bth được k ạ

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
2 cái này mình không rõ là sẽ điều chỉnh ở ô nào.



Mình làm thử được rồi bạn. Nhưng cho mình hỏi thêm chút ở cái dòng cuối cùng khi mình nhập số lượng thì nó lại không khoá được(nhưng cột ở trên thì nó khoá). có cách nào khắc phục được k. Bạn xem file giúp mình với. Minh chân thành cảm ơn bạn
Bài đã được tự động gộp:


Mình cảm ơn bạn. Mình sẽ thử

Mình mới dùng thử cách code này nhờ bạn xem giúp. Sau 5s nó tự động khoá cả ô có dữ liệu và ô chưa có dữ liệu có cách nào chỉ khoá ô có dữ liệu còn ô chưa có thì vẫn chọn bth được k ạ

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
2 cái này mình không rõ là sẽ điều chỉnh ở ô nào.



Mình làm thử được rồi bạn. Nhưng cho mình hỏi thêm chút ở cái dòng cuối cùng khi mình nhập số lượng thì nó lại không khoá được(nhưng cột ở trên thì nó khoá). có cách nào khắc phục được k. Bạn xem file giúp mình với. Minh chân thành cảm ơn bạn
Nhấp chuột vào đây để mở rộng...
Bạn không phải bị riêng G13 đâu mà là cả G6:G13, bạn thử clear data từ G6:G13 nhập lại xem code có chạy để khóa cells k ?
 
HeSanbi đã viết:
@hungvu0106 Bạn có thể sử dụng hàm LockCells dưới đây

Sử dụng:

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
10 là số giây, là khoảng thời gian Delay để khóa ô

Gõ thêm "_" thành LockCells_ để bỏ thực thi.

Mã dưới đây đặt trong Module mới
JavaScript: 
'                    _,
' ___   _   _  _ ___(_)
'/ __| / \ | \| | _ | |
'\__ \/ \ \| \\ | _ \ |
'|___/_/ \_|_|\_|___/_|
'

Option Explicit
Option Compare Text
Private Const projectUDFName = "LockCells"
Private Const projectUDFFileName = "LockCells"
Private Const projectUDFVersion = "1.0"

#If VBA7 = 0 Then
  Public Enum LongLong:[_]:End Enum
  Public Enum LongPtr:[_]:End Enum
#End If

#If -VBA7 And -Win64 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongLong, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
#ElseIf VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Public Enum ValueLockSettings
  VDSLockRange = 1
End Enum

Public Type TypeArguments
  Action As Long
  direction As Long
  timer As Single
  ThisCell As Object
  Fx As String
  Target As Range
  address As String
  value As Variant
  SheetPW As String
End Type

Private Const n_ = vbNullString
Private Works() As TypeArguments

Function LockCells_(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells_ = ""
End Function
Function LockCells(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells = ""
  Call LockValueCommand(VDSLockRange, cells, sheetPassword, DelaySeconds)
End Function

Private Function LockValueCommand(direction&, ParamArray arguments())
  On Error Resume Next
  Dim r As Object
  Set r = Application.ThisCell: If r Is Nothing Then Exit Function
  Dim k%, i%, j%, adr$, f$, w As TypeArguments, n As Boolean
  f = r.formula
  adr = r.address(0, 0,,1)
  k = UBound(Works): k = k + 1: ReDim Preserve Works(1 To k)
adr:
  With Works(k): .Action = 1: Set .ThisCell = r: .address = adr: .Fx = f
    .direction = direction: .timer = timer
    Select Case direction
    Case VDSLockRange:: Set .Target = arguments(0): .SheetPW = arguments(1)
    End Select
    Call LockValue_Timer(arguments(2) * 1000)
  End With
End Function

Private Sub LockValue_Timer(Optional ByVal timer&)
  If timer < 0 Then timer = 0
  Call SetTimer(Application.hwnd, 444110, timer, AddressOf LockValue_callback)
End Sub

Private Sub LockValue_callback(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal idEvent As LongPtr, ByVal dwTime As LongPtr)
  On Error Resume Next
  Call KillTimer(hwnd, idEvent)
  LockValue_working
End Sub
 
Private Sub LockValue_working()
  On Error Resume Next
  Dim aa, UA%, i%, Sh As Object, w, lr&, rg, rg2 As Object
  Dim a As Object, b As TypeArguments, su As Boolean, ac As Boolean, ee As Boolean
  UA = UBound(Works)
  If UA = 0 Then Exit Sub

  For i = 1 To UA
    b = Works(i)
    With Works(i)
      Select Case .Action
      Case 1
        .Action = 2
        'GoSub a
        Set Sh = .Target.Parent
        If Sh.ProtectContents Then
          Err.Clear: Sh.Unprotect password:=.SheetPW: If Err Then GoTo n
        End If
        .ThisCell.FormulaHidden = True
        .ThisCell.Locked = True
        Select Case .direction
        Case VDSLockRange:
          .Target.FormulaHidden = True
          .Target.Locked = True
          Err.Clear: Set rg2 = .Target.SpecialCells(xlCellTypeBlanks)
          If Not rg2 Is Nothing And Err = 0 Then rg2.Locked = False: rg2.FormulaHidden = False
        End Select
s:
        If Not Sh.ProtectContents Then Sh.Protect password:=.SheetPW
      End Select
    End With
n:
  Next
E:
  Erase Works
  If Not a Is Nothing Then
    If su And a.ScreenUpdating <> su Then a.ScreenUpdating = su
    If ac And a.Calculation <> xlCalculationAutomatic Then a.Calculation = xlCalculationAutomatic
    If ee And a.EnableEvents <> ee Then a.EnableEvents = ee
  End If
Exit Sub
a:
  If a Is Nothing Then
    Set a = Application
    su = a.ScreenUpdating: If su Then a.ScreenUpdating = False
    ee = a.EnableEvents: If ee Then a.EnableEvents = False
    ac = a.Calculation = xlCalculationAutomatic: If ac Then a.Calculation = xlCalculationManual
  End If
Return
End Sub


Mã dưới đây đặt trong mã ThisWorkbook

JavaScript: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Sh.ProtectContents Then
    On Error Resume Next
    If Target.Locked Then
      Cancel = True
      Application.Dialogs(xlDialogProtectDocument).Show
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mình cảm ơn bạn. Mình sẽ thử
HeSanbi đã viết:
@hungvu0106 Bạn có thể sử dụng hàm LockCells dưới đây

Sử dụng:

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
10 là số giây, là khoảng thời gian Delay để khóa ô

Gõ thêm "_" thành LockCells_ để bỏ thực thi.

Mã dưới đây đặt trong Module mới
JavaScript: 
'                    _,
' ___   _   _  _ ___(_)
'/ __| / \ | \| | _ | |
'\__ \/ \ \| \\ | _ \ |
'|___/_/ \_|_|\_|___/_|
'

Option Explicit
Option Compare Text
Private Const projectUDFName = "LockCells"
Private Const projectUDFFileName = "LockCells"
Private Const projectUDFVersion = "1.0"

#If VBA7 = 0 Then
  Public Enum LongLong:[_]:End Enum
  Public Enum LongPtr:[_]:End Enum
#End If

#If -VBA7 And -Win64 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr, ByVal uElapse As LongLong, ByVal lpTimerFunc As LongPtr) As LongPtr
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As LongPtr) As LongPtr
#ElseIf VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "USER32" (ByVal hwnd As LongPtr, ByVal nIDEvent As Long) As Long
#Else
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
#End If

Public Enum ValueLockSettings
  VDSLockRange = 1
End Enum

Public Type TypeArguments
  Action As Long
  direction As Long
  timer As Single
  ThisCell As Object
  Fx As String
  Target As Range
  address As String
  value As Variant
  SheetPW As String
End Type

Private Const n_ = vbNullString
Private Works() As TypeArguments

Function LockCells_(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells_ = ""
End Function
Function LockCells(ByVal cells As Range, Optional ByVal sheetPassword$, Optional ByVal DelaySeconds&)
  LockCells = ""
  Call LockValueCommand(VDSLockRange, cells, sheetPassword, DelaySeconds)
End Function

Private Function LockValueCommand(direction&, ParamArray arguments())
  On Error Resume Next
  Dim r As Object
  Set r = Application.ThisCell: If r Is Nothing Then Exit Function
  Dim k%, i%, j%, adr$, f$, w As TypeArguments, n As Boolean
  f = r.formula
  adr = r.address(0, 0,,1)
  k = UBound(Works): k = k + 1: ReDim Preserve Works(1 To k)
adr:
  With Works(k): .Action = 1: Set .ThisCell = r: .address = adr: .Fx = f
    .direction = direction: .timer = timer
    Select Case direction
    Case VDSLockRange:: Set .Target = arguments(0): .SheetPW = arguments(1)
    End Select
    Call LockValue_Timer(arguments(2) * 1000)
  End With
End Function

Private Sub LockValue_Timer(Optional ByVal timer&)
  If timer < 0 Then timer = 0
  Call SetTimer(Application.hwnd, 444110, timer, AddressOf LockValue_callback)
End Sub

Private Sub LockValue_callback(ByVal hwnd As LongPtr, ByVal wMsg As LongPtr, ByVal idEvent As LongPtr, ByVal dwTime As LongPtr)
  On Error Resume Next
  Call KillTimer(hwnd, idEvent)
  LockValue_working
End Sub
 
Private Sub LockValue_working()
  On Error Resume Next
  Dim aa, UA%, i%, Sh As Object, w, lr&, rg, rg2 As Object
  Dim a As Object, b As TypeArguments, su As Boolean, ac As Boolean, ee As Boolean
  UA = UBound(Works)
  If UA = 0 Then Exit Sub

  For i = 1 To UA
    b = Works(i)
    With Works(i)
      Select Case .Action
      Case 1
        .Action = 2
        'GoSub a
        Set Sh = .Target.Parent
        If Sh.ProtectContents Then
          Err.Clear: Sh.Unprotect password:=.SheetPW: If Err Then GoTo n
        End If
        .ThisCell.FormulaHidden = True
        .ThisCell.Locked = True
        Select Case .direction
        Case VDSLockRange:
          .Target.FormulaHidden = True
          .Target.Locked = True
          Err.Clear: Set rg2 = .Target.SpecialCells(xlCellTypeBlanks)
          If Not rg2 Is Nothing And Err = 0 Then rg2.Locked = False: rg2.FormulaHidden = False
        End Select
s:
        If Not Sh.ProtectContents Then Sh.Protect password:=.SheetPW
      End Select
    End With
n:
  Next
E:
  Erase Works
  If Not a Is Nothing Then
    If su And a.ScreenUpdating <> su Then a.ScreenUpdating = su
    If ac And a.Calculation <> xlCalculationAutomatic Then a.Calculation = xlCalculationAutomatic
    If ee And a.EnableEvents <> ee Then a.EnableEvents = ee
  End If
Exit Sub
a:
  If a Is Nothing Then
    Set a = Application
    su = a.ScreenUpdating: If su Then a.ScreenUpdating = False
    ee = a.EnableEvents: If ee Then a.EnableEvents = False
    ac = a.Calculation = xlCalculationAutomatic: If ac Then a.Calculation = xlCalculationManual
  End If
Return
End Sub


Mã dưới đây đặt trong mã ThisWorkbook

JavaScript: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If Sh.ProtectContents Then
    On Error Resume Next
    If Target.Locked Then
      Cancel = True
      Application.Dialogs(xlDialogProtectDocument).Show
    End If
  End If
End Sub
Nhấp chuột vào đây để mở rộng...
Mình mới dùng thử cách code này nhờ bạn xem giúp. Sau 5s nó tự động khoá cả ô có dữ liệu và ô chưa có dữ liệu có cách nào chỉ khoá ô có dữ liệu còn ô chưa có thì vẫn chọn bth được k ạ
HeSanbi đã viết:
@hungvu0106 Trong tệp của bạn không có mã như tôi đã hướng dẫn
Nhấp chuột vào đây để mở rộng...
Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
2 cái này mình không rõ là sẽ điều chỉnh ở ô nào.
le_vis đã viết:
Bạn xem lại bên máy của bạn - Tôi đã tes bên máy của tôi Office 2007 đến Office 2010 vẫn chạy tốt mà
Bạn thử xóa code cũ đi xem sao
Nhấp chuột vào đây để mở rộng...

le_vis đã viết:
Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Bài đã được tự động gộp:


Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Bài đã được tự động gộp:


Bạn lấy File bài #11 về chạy xem sao nào ???

Bạn xem đánh dấu tích vào như ảnh dưới nhé
Nhấp chuột vào đây để mở rộng...
Mình làm thử được rồi bạn. Nhưng cho mình hỏi thêm chút ở cái dòng cuối cùng khi mình nhập số lượng thì nó lại không khoá được(nhưng cột ở trên thì nó khoá). có cách nào khắc phục được k. Bạn xem file giúp mình với. Minh chân thành cảm ơn bạn
zzzsxxx01 đã viết:
Bạn không phải bị riêng G13 đâu mà là cả G6:G13, bạn thử clear data từ G6:G13 nhập lại xem code có chạy để khóa cells k ?
Nhấp chuột vào đây để mở rộng...
Mình cảm ơn bạn. Mình đã kiểm tra lại ở cột G6:G13 nó vẫn khoá bình thường bạn ạ, Chỉ có G13 là nó không khoá được nhưng mình nhập SỐ LƯỢNG ở G14 thì G13 nó sẽ khoá. Mình không biết làm sao để nó khoá được hết.
 
hungvu0106 đã viết:
Mình cảm ơn bạn. Mình sẽ thử

Mình mới dùng thử cách code này nhờ bạn xem giúp. Sau 5s nó tự động khoá cả ô có dữ liệu và ô chưa có dữ liệu có cách nào chỉ khoá ô có dữ liệu còn ô chưa có thì vẫn chọn bth được k ạ

Với vùng ô A1:A100 sau khi nhập sau 10 giây sẽ khóa ô đã nhập
Gõ hàm =LockCells(A1:A100, "Mật Khẩu Trang tính", 10)
2 cái này mình không rõ là sẽ điều chỉnh ở ô nào.



Mình làm thử được rồi bạn. Nhưng cho mình hỏi thêm chút ở cái dòng cuối cùng khi mình nhập số lượng thì nó lại không khoá được(nhưng cột ở trên thì nó khoá). có cách nào khắc phục được k. Bạn xem file giúp mình với. Minh chân thành cảm ơn bạn

Mình cảm ơn bạn. Mình đã kiểm tra lại ở cột G6:G13 nó vẫn khoá bình thường bạn ạ, Chỉ có G13 là nó không khoá được nhưng mình nhập SỐ LƯỢNG ở G14 thì G13 nó sẽ khoá. Mình không biết làm sao để nó khoá được hết.
Nhấp chuột vào đây để mở rộng...
Thế thì lạ nhỉ, bên mình thì clear data thử lại từ G6:G13 thì nó không khóa, không biết có phải tại win k mình dùng win 7 và 365.
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

L
Cắt chuỗi lấy năm và kết quả chuyển sang định dạng number
Trả lời
7
Đọc
79
ptm0412
ptm0412
tamnt07
Cách filter theo chiều ngang (theo hàng)
Trả lời
11
Đọc
16K
ptm0412
ptm0412
anhtuan1066
  • Question Question
Tạo dãy số ngẫu nhiên không trùng
    • Thích
7 8 9
Trả lời
164
Đọc
81K
SA_DQ
SA_DQ
andehuong
Cách thay đổi hyperlink cũ (SubAddress) sang hyperlink mới (SubAddress)
Trả lời
3
Đọc
70
HeSanbi
HeSanbi
SA_DQ
(húc mừng năm mới!
    • Thích
    • Yêu thích
Trả lời
4
Đọc
105
Thóc Sama
Thóc Sama
phanmoi688
Cách sắp xếp dữ liệu cột có điều kiện
Trả lời
6
Đọc
81
phanmoi688
phanmoi688
LuuAnh980
  • Question Question
Code tô màu cột N và cột J không tô đúng.
    • Thích
Trả lời
11
Đọc
150
ptm0412
ptm0412
N
Cách đem một file Excel qua máy khác in mà không bị thay đổi kích thước mặc định
2
Trả lời
36
Đọc
28K
ussh999
U
B
Excel 2016 mở file xls rất chậm, treo
    • Buồn
Trả lời
0
Đọc
39
bmtuanltpt
B
D
Vẽ biểu đồ phân tích doanh thu và lợi nhuận theo mã đơn vị
Trả lời
7
Đọc
983
hoangtuaotrang_hp_vn
H
Gà Công Nghệ
Xin file cách chia tiền lẻ phát cho nhân viên
Trả lời
1
Đọc
72
vietduc147258
V
125479980
Phát triển một VBE trong Delphi để tạo một cửa sổ công cụ.
Trả lời
10
Đọc
389
nguyendang95
N
Z
Excel 365 tự động đẻ file excel 97-203 khi mở file .xlsx
Trả lời
11
Đọc
773
phuongnt.purchase
P
2
Tìm hàm để hiển thị số
Trả lời
1
Đọc
53
huuthang_bd
huuthang_bd
A
Công thức Excel khuyến khích theo doanh số bán
Trả lời
7
Đọc
145
adad
A
Y
Sắp lịch trực luân phiên
Trả lời
9
Đọc
1K
lequangphuan
lequangphuan
dungdodac
Lỗi khi COPY , viền xung quanh ô được chọn đứng yên, không chạy
    • Cười
Trả lời
9
Đọc
327
VetMini
V
T
Xin giúp em copy cột C ở tất cả các sheet vào file import_template. Em cảm ơn ạ.
Trả lời
7
Đọc
215
thuong.dothict
T
luankojkaka
  • Question Question
Tự động giãn dòng khi thay đổi
Trả lời
1
Đọc
86
HUONGHCKT
H
V
Nhờ các anh chị viết giúp hàm
Trả lời
9
Đọc
188
vanhuy889
V
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
Chúc mừng năm mới
Back
Top Bottom