Sección de códigos , trucos y ejemplos para visual basic

465 - Proteger hojas de Excel

Ejemplo que abre desde vb un libro de Excel para poder recorrer las hojas y proteger las mismas mediante un password , usando el método Protect del objeto Sheets

Código fuente en un formulario ( indicar el path del xls)

Option Explicit Private Sub Proteger_Hojas(path As String) Dim oExcel As Object ' para recorrer las sheets Dim i As Integer Set oExcel = CreateObject("Excel.Application") ' abre el libro oExcel.Workbooks.Open path With oExcel.ActiveWorkbook ' recorre las hojas en la colección Sheets For i = 1 To Sheets.Count ' activa la hoja actual Sheets(i).Activate ' La proteje todas con el método Protect : usando el password : Juan ActiveSheet.Protect password:="juan", DrawingObjects:=True, _ Contents:=True, Scenarios:=True Next i End With MsgBox "Listo", vbInformation ' muestra el Excel oExcel.Visible = True End Sub Private Sub Command1_Click() ' le pasa el libro Call Proteger_Hojas("c:\libro1.xls") End Sub

Nota: para desproteger la hoja vía código sin que aparezca el diálogo de ingresar password, usar el método Unprotect del objeto Sheets o del ActiveSheet

ActiveSheet.Unprotect password:="el password"

Recursos Visual basic 6.0 - Enlaces relacioanados

Ejemplos de Excel y vb

Buscar en Recursos vb