forkus2000
09-08-2008, 06:59 PM
Hy guys i need to unptotecta a excel file i have this code, but not work.
Please help me
Option explicit
Public excel_app As excel.Application
Public excel_sheet As excel.Worksheet
Public excel_wkb As excel.Workbook
Private Sub Form_Load()
AbreExcel
Unprotect
cierraexcel
End Sub
Public Sub AbreExcel()
Set excel_app = CreateObject("Excel.Application")
End Sub
Public Sub CierraExcel()
excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub
Private sub Unprotect
Dim hojas
Dim x
CargaLibro ("C:\1.xls)
hojas = excel_wkb.Worksheets.Count
For x = 1 To hojas
SeteaHoja (x)
excel_app.EnableEvents = False
excel_app.DisplayAlerts = False
excel_wkb.ActiveSheet.Unprotect Password:="sercotecvb"
Next x
SeteaHoja (1)
excel_sheet.Cells(5, 1) = "My Data"
excel_wkb.SaveAs "c:\2.xls", 56, , , , , Exclusive, , , , , False
CierraLibro
end sub
Public Sub CargaLibro(file)
DoEvents
Set excel_wkb = excel_app.Workbooks.Open(FileName:=file)
txtarchivo = file
DoEvents
End Sub
Public Sub CierraLibro()
excel_wkb.Close False
End Sub
Please help me
Option explicit
Public excel_app As excel.Application
Public excel_sheet As excel.Worksheet
Public excel_wkb As excel.Workbook
Private Sub Form_Load()
AbreExcel
Unprotect
cierraexcel
End Sub
Public Sub AbreExcel()
Set excel_app = CreateObject("Excel.Application")
End Sub
Public Sub CierraExcel()
excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub
Private sub Unprotect
Dim hojas
Dim x
CargaLibro ("C:\1.xls)
hojas = excel_wkb.Worksheets.Count
For x = 1 To hojas
SeteaHoja (x)
excel_app.EnableEvents = False
excel_app.DisplayAlerts = False
excel_wkb.ActiveSheet.Unprotect Password:="sercotecvb"
Next x
SeteaHoja (1)
excel_sheet.Cells(5, 1) = "My Data"
excel_wkb.SaveAs "c:\2.xls", 56, , , , , Exclusive, , , , , False
CierraLibro
end sub
Public Sub CargaLibro(file)
DoEvents
Set excel_wkb = excel_app.Workbooks.Open(FileName:=file)
txtarchivo = file
DoEvents
End Sub
Public Sub CierraLibro()
excel_wkb.Close False
End Sub