팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

Excel에서 보호 된 워크 시트에 테이블 행을 삽입하여 테이블을 확장 가능한 상태로 유지하는 방법?

테이블의 자동 확장 기능은 Excel에서 워크 시트를 보호 한 후에 손실됩니다. 예를 들어, 보호 된 워크 시트에 Table1이라는 테이블이 있습니다. 마지막 행 아래에 아무 것도 입력하지 않으면 테이블이 자동으로 확장되어 새 행을 포함하지 않습니다. 보호 된 워크 시트에 새로운 행을 삽입하여 테이블을 확장 가능하게 유지하는 방법이 있습니까? 이 기사의 방법을 사용하면이를 달성하는 데 도움이 될 수 있습니다.

VBA 코드로 보호 된 워크 시트에 테이블 행을 삽입하여 테이블을 확장 가능하게 유지

Office 탭 Office에서 탭 편집 및 찾아보기를 사용하고 훨씬 쉽게 작업 할 수 있습니다 ...
Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.
  • 무엇이든 재사용하십시오 : 가장 많이 사용되거나 복잡한 수식, 차트 및 기타 항목을 즐겨 찾기에 추가하고 나중에 빠르게 재사용하십시오.
  • 20 이상의 텍스트 기능 : 텍스트 문자열에서 숫자 추출; 텍스트 일부 추출 또는 제거; 숫자와 통화를 영어 단어로 변환합니다.
  • 병합 도구: 여러 통합 문서 및 시트를 하나로 통합합니다. 데이터 손실없이 여러 셀 / 행 / 열 병합 중복 행 병합 및 합계
  • 분할 도구: 값을 기준으로 데이터를 여러 시트로 분할; 하나의 통합 문서에서 여러 Excel, PDF 또는 CSV 파일로; 하나의 열에서 여러 열로.
  • 건너 뛰기 붙여 넣기 숨겨진 / 필터링 된 행; 수와 합계 배경색 별; 여러 전자 메일 수신자에게 개인화 된 전자 메일 보내기
  • 수퍼 필터 : 고급 필터 구성표를 작성하고 모든 시트에 적용하십시오. 종류 주별, 일별, 빈도 등으로; FILTER 굵게, 수식, 주석으로 ...
  • 300 이상의 강력한 기능; Office 2007-2019 및 365와 호환됩니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다.

화살표 오른쪽 파란색 거품 VBA 코드로 보호 된 워크 시트에 테이블 행을 삽입하여 테이블을 확장 가능하게 유지


아래 스크린 샷과 같이 워크 시트의 Table1 테이블과 테이블의 마지막 열은 수식 열입니다. 이제 수식 열이 변경되지 않도록 워크 시트를 보호해야하지만 새 행을 삽입하고 새 셀에 새 데이터를 할당하여 테이블을 확장 할 수 있습니다. 다음과 같이하십시오.

1. 클릭 개발자 > 끼워 넣다 > 단추 (양식 컨트롤) 삽입하다 양식 제어 버튼을 워크 시트에 추가하십시오.

2. 갑자기 나타나기 시작했다. 매크로 지정 대화 상자에서 새로운 버튼을 클릭합니다.

3. 에서 응용 프로그램 용 Microsoft Visual Basic 창에서 아래의 VBA 코드를 복사하여 서브최종 하위 단락 암호 창.

VBA 코드 : 테이블 행을 보호 된 워크 시트에 삽입하여 테이블을 확장 가능하게 유지

Dim pswStr As String
'Update by ExtendOffice 20181106
    pswStr = "123"
    On Error Resume Next
   Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
       ActiveSheet.Range("A1").Select
        Range("Table1[[#Headers],[Total]]").Select
        Selection.End(xlDown).Select
        Selection.Offset(1, 0).Select
        ActiveCell.FormulaR1C1 = "new"
        ActiveSheet.Protect Password:=pswStr, DrawingObjects:=False, _
                        Contents:=True, Scenarios:=False, _
                        AllowFormattingCells:=True, AllowFormattingColumns:=True, _
                        AllowFormattingRows:=True, AllowInsertingColumns:=True, _
                        AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, _
                        AllowDeletingColumns:=True, AllowDeletingRows:=True, _
                        AllowSorting:=True, AllowFiltering:=True, _
                        AllowUsingPivotTables:=True
    Selection.ClearContents
    Application.ScreenUpdating = True

노트:

1). 코드에서 숫자 "123"는 워크 시트를 보호하는 데 사용할 암호입니다.

2). 보호 할 수식이 포함 된 열의 테이블 이름과 이름을 변경하십시오.

3). 그리고 코드 Selection.Offset (1, -4)의 오프셋을 변경하십시오. 테이블의 첫 번째 대상 열로 선택하십시오. 예를 들어 표에 6 개의 열이있는 경우 오프셋을 (1, -5)로 변경하십시오.

4. 누르세요 다른 + Q 키를 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

5. 수식 열을 제외한 새 데이터를 할당해야하는 테이블의 셀을 선택한 다음 Ctrl 키 + 1 키를 눌러 셀 서식 대화 상자. 에서 셀 서식 대화 상자에서 고정 상자를 클릭 한 다음 OK 단추. 스크린 샷보기 :

6. 이제 VBA 코드에서 지정한 비밀번호로 워크 시트를 보호하십시오.

이제 보호 된 워크 시트에서 양식 컨트롤 단추를 클릭 한 후 아래 그림과 같이 새 행을 삽입하여 테이블을 확장 할 수 있습니다.

주의 사항: 보호 된 워크 시트의 수식 열을 제외한 테이블을 수정할 수 있습니다.


화살표 오른쪽 파란색 거품관련 기사:


Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 수식, 차트 그리고 당신이 전에 사용했던 것; 셀 암호화 비밀번호로; 메일 링리스트 만들기 그리고 이메일을 보내 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집); 레이아웃 읽기 (많은 셀을 쉽게 읽고 편집); 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 분할 셀 내용; 중복 행 / 열 결합... 중복 세포 방지; 범위 비교...
  • 복제 또는 고유를 선택하십시오. 행; 빈 행 선택 (모든 세포는 비어있다); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 랜덤 선택 ...
  • 정확한 사본 공식 참조를 변경하지 않는 다중 셀; 참조 자동 작성 여러 장에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 소계 생성 및 인쇄; 셀 내용과 주석 간 변환...
  • 수퍼 필터 (필터 구성표를 저장하고 다른 시트에 적용); 고급 정렬 월 / 주 / 일별, 빈도 등; 특수 필터 대담하고 기울임 꼴로
  • 통합 문서와 WorkSheets 결합; 키 열을 기준으로 테이블 병합 데이터를 여러 시트로 분할; 일괄 변환 xls, xlsx 및 PDF...
  • 300 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다. 30 일 무료 평가판 전체 기능.
kte 탭 201905

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Michelle · 4 months ago
    Hello, I used the above code and got the following error message:
    "Code execution has been interrupted". When I click on Debug, Line 20 "Selection.ClearContents" is highlighted.

    When I initially entered the code, it worked correctly.

    I changed "Table" to the name of the table and change the column to the name of the column I am using. I also changed the "Selection.Offset (x,-x).Select" to match my needs.


    Any suggestions as to why this is occurring?
  • To post as a guest, your comment is unpublished.
    Mac · 9 months ago
    Try this Vba code for add new line in you table

    Sub Tab_Line_Add()
    Dim pswStr As String
    pswStr = "123"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
    ActiveSheet.Range("D8").Select
    'D8 is tabel header
    Range("Table1[[#Headers],[Total]]").Select
    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    ActiveSheet.Protect Password:=pswStr

    End Sub
    .
    • To post as a guest, your comment is unpublished.
      sohael al-husainy · 4 months ago
      using the suggested (Selection.ListObject.ListRows.Add AlwaysInsert:=False) fixed a similar problem for me with the original code, where a new full row (extending down cell contained formulas) would not be added to the table on a much wider table 51 columns. So thanks for sharing and fixing Mac.
    • To post as a guest, your comment is unpublished.
      crystal · 9 months ago
      Hi Mac,
      Thanks for sharing.
  • To post as a guest, your comment is unpublished.
    Brandi · 1 years ago
    So I tried this however it adds a new row at the bottom of the workbook on line 1048576 however my table only has about 800 records. I have no idea why it's doing this!
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Brindi,
      The code has been updated with the problem solved, please have a try and thank you for your comment.
      • To post as a guest, your comment is unpublished.
        Ali · 10 months ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.
      • To post as a guest, your comment is unpublished.
        Ali · 10 months ago
        Hi Crystal, theproblem is same. I created a new table for myself with only 2 rows. Once I click the button the list is expanded till end of table without adding any Rows. It should be adding to Row number 3.