ini ada syntak untuk unprotect sheet mudah2an membantu
------------- Dim oExcelApp As Excel.Application Dim oWs As Excel.Worksheet Dim oWb As Excel.Workbook Screen.MousePointer = vbHourglass Set oExcelApp = CreateObject("Excel.Application") oExcelApp.Visible = False oExcelApp.Quit oExcelApp.Workbooks.Open filename, UpdateLinks:=False, ReadOnly:=False, ignorereadonlyrecommended:=False 'oExcelApp.Workbooks.Open FILENAME, ReadOnly:=False, ignoreReadOnlyRecommended:=True ' ========================== SHEETNAME = SHEETNAME 'If oExcelApp.Sheets(SHEETNAME).Visible = False Then ' oExcelApp.Sheets(SHEETNAME).Visible = True 'End If oExcelApp.Sheets(SHEETNAME).Select Set oWb = oExcelApp.ActiveWorkbook Set oWs = oExcelApp.ActiveSheet Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next If oWs.ProtectContents = True Then For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 oWs.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End If --------------------- On 4/24/07, ptr_astawa <[EMAIL PROTECTED]> wrote: > > helo teman mailinglist saya ada masalah dengan data di exel > saya mempunya data mahasiswa di exel dan dulu saya protect sheetnya > agar tidak bisa di perbaiki/edit(th 2002). tapi data itu saya perlukan > lagi dan saya mau menambahkan data pada sheet yang terprotect, dan > saya sudah lupa passwordnya. kira2 gimana caranya agar sheet itu saya > bisa isi/edit kembali(unprotectnya). mohon bantuannyaa,.. > salam > > > [Non-text portions of this message have been removed] -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## ## Jaket ITCENTER tersedia di http://shop.itcenter.or.id Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/ITCENTER/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/