OfficeTutor 365

엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    궁금이 (hschs) 추천:  2 파일:     데이타 있는 곳만 자동 셀보호 가능한지[2].xls (18.5KB) 조회:  1494 제목:   제 질문은 그게 아닙니다. 해결 좀 부탁 드립니다.
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요. 1. 엑셀 버전(95,97,2000,2002):2000 2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):win2000 3. CPU (486,PentiumI/II/III/IV...):IV 4. RAM (32,64,128,256,512MB,1G...): 512MB ==============[궁금이님 글에 대한 답변입니다]============== 제 질문은 통합문서 공유를 하고있는데  파일을 처음 열때(auto_open) 이미 데이타가 있는 셀은 셀 보호를 자동으로 걸기위한 것입니다. 부탁 드립니다. 　 [불량 게시물 신고]
황기성 Option Explicit Const cPass As String = "12345" '시트보호 암호 Private Sub Workbook_Open() With Worksheets("Sheet1")     .Unprotect cPass         .UsedRange.SpecialCells(xlCellTypeConstants).Locked = True     .Protect cPass End With End Sub 그럼...행운이 있으시길...! 09-08 (20:22) ⓧ삭제 ■신고 위기의 남자 이렇게 한번 해보세요.. 황선생님것 보고 약간 수정했습니다. (1) 보호된 셀은 색을 달리했습니다. (2) 작업 범위를 지정했습니다. Option Explicit Const cPass As String = "12345" '시트보호 암호 Private Sub auto_Open() With Worksheets("Sheet1")    .Unprotect cPass    .Cells.Interior.ColorIndex = 0    .Cells.Locked = False    .Range("a1:g20").SpecialCells(xlCellTypeConstants).Locked = True    .Range("a1:g20").SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 15    .Protect cPass End With End Sub 09-09 (11:29) ⓧ삭제 ■신고
작성일 : 2003-09-08(18:30) 최종수정일 : 2003-09-08(18:30)
◎ 관련글   제 목   작성자   날짜 데이타 있는 곳만 자동 셀 보호를 해야 하는데., 자꾸 질문만. 궁금이 2003-09-08 ◎ 제 질문은 그게 아닙니다. 해결 좀 부탁 드립니다. 궁금이 2003-09-08