|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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
그럼...행운이 있으시길...! 2003-09-08(20:22) 삭제
##########################################################################3
위기의 남자 이렇게 한번 해보세요.. 황선생님것 보고 약간 수정했습니다.
(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
##################################################################3333
==============[궁금이님 글에 대한 답변입니다]==============
|
|