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/
