2013-04-24 1 views
-1

Google에서 찾은이 코드가 있습니다. (http://msgroups.net/microsoft.public.excel.misc/locking-cells-automatically-after/45998) 내 작업에이 작업이 필요합니다. -EDIT : 나는 엑셀에서 0 지식을 가지고있다.엑셀 잠금 및 그리드 오류

그리드의 모든 셀은 현재 잠겨 있지 않다. 데이터를 입력 한 후 셀을 자동으로 잠그도록하려면 을 입력하십시오.

최대 "열"열과 행에 대해 무한히 작동하는 코드가 있어야합니다. 이 코드는 Google에서 최대 25x25까지만 가능합니다. 셀이 비어 있거나 비어 있으면 암호 보호가 작동해서는 안되며 이전에 데이터가 있더라도 입력 할 수 있습니다.

Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim myRng As Range 
    Dim myCell As Range 
    Dim myIntersect As Range 
    Dim myPassword As String 

    myPassword = "hi there" 

    With Me 'the worksheet with the code 
     '25 rows by 25 columns starting in A1 
     Set myRng = .Range("a1").Resize(25, 25) 

     Set myIntersect = Intersect(Target, myRng) 

     If myIntersect Is Nothing Then 
      Exit Sub 
     End If 

     .Unprotect Password:=myPassword 
     For Each myCell In myIntersect.Cells 
      myCell.Locked = True 
     Next myCell 
     .Protect Password:=myPassword 
    End With 

End Sub 
+0

잠금에만 셀 또는 전체 워크 시트를 고정? – Kasnady

+0

특정 셀에 진입 후 잠금 –

+1

도움을 요청하기 전에 노력하십시오. 오류 발생시 도움을줍니다. 집에서 일하는 것을 돕지 않는다 – Kasnady

답변

1

사실 코드가 작동하지 않아 테스트를 마쳤습니다. 그냥 잠그면 기본값이 설정됩니다. 그런 다음이 세포들을 변화시킬 형태를 만들었습니다. 변경하려면 클릭 할 때마다 잠금이 해제되고 변경 후 잠금됩니다. 그게 더 안전하지 않니? 논리를 더 잘 시험해보십시오. 귀하의 코드에서 알 수 있다면 당신은 모든 노력을하지 않았습니다!. 해당 링크에서 붙여 넣기 만 복사하면됩니다.

+0

그것이 내가 말하는거야. 저는 Excel에서 지식이 없습니다. 그래서 내가 너희들에게 도움을 청하는 것이다. –

+0

"클릭 할 때마다 클릭하면 변경 후 잠금이 해제되며 잠금 상태가됩니다." 어떻게 할 수 있니? –

+1

양식을 작성해야합니다. google에서 검색하십시오. Excel에서 VBA를 사용하는 방법. 너 노력한 후에. then ask again again – Kasnady

0

문제가 당신이 엑셀 VBA에 대해 아무것도 모르는 경우, 아래의 사이트는 당신을 도움이 될 것입니다 Excel VBA Tutorial

  • 하기에 대한 자세한 내용을 보려면 여기
  • 행운을 빕니다

    필립