개발 참고자료

/*
엑셀 파일에 암호걸기...


as_filename <== 하드드라이브의 엑셀파일의 위치....
*/


Long m, n, p
Long iReturn = 1
String ls_filename
string ls_file_pwd='1234'


ls_filename = as_filename


oleobject ole_excel
ole_excel = create oleobject
//ole_excel.ConnectToObject(ls_filename)
n = ole_excel.ConnectToNewObject( "Excel.Application" )


ole_excel.Application.displayalerts = false // 경고창 무시
//엑셀 파일오픈
ole_excel.Application.Workbooks.Open(ls_filename)
ole_excel.Application.Visible = True
//ole_excel.Application.Visible = false
//ole_excel.Worksheets[1].Activate;


/*
ole_excel.Application.WorkBooks(1).WorkSheets(1).Name ='MNPSystem' //시트명변경
ole_excel.ActiveSheet.EnableSelection = 2 //잠긴 셀 모두 선택 안되게하고
ole_excel.Application.WorkBooks(1).protect(ls_file_pwd) //시트 추가 안되게 잠그불고
ole_excel.ActiveSheet.protect(ls_file_pwd) //엑셀시트보호암호걸면 -----> 복사도 못하겠지....
*/


/* xlsx일경우 51, xls일경우 56으로 해야함. */
choose case RightA(ls_filename,4)
case '.xls'
ls_filename = left(ls_filename, len(ls_filename) - 4) + '_enc.xls'
ole_excel.Application.WorkBooks(1).SaveAs( ls_filename, 56, ls_file_pwd, '', false, false, 1, 2, false, "", "", false)
case 'xlsx'
ls_filename = left(ls_filename, len(ls_filename) - 5) + '_enc.xlsx'
ole_excel.Application.WorkBooks(1).SaveAs( ls_filename, 51, ls_file_pwd, '', false, false, 1, 2, false, "", "", false)
end choose


ole_excel.application.quit()
ole_excel.DisConnectObject()
Destroy ole_excel


Return iReturn