| Pregunta: | 18998 - PROTECCION-DESPROTECCIóN DE HOJAS EXCEL |
| Autor: | Jorge Durán Vázquez |
| Como se pueden proteger y desproteger desde Visual Basic una worksheet de Excel Office 97. | |
| Respuesta: | Pedro Serrano Baizabal |
| Jorge Te envio codigo para controlar Excels desde Vb adaptalo a tus necesidades. Private Sub CommandButton1_Click() Dim Hoja As New Excel.Application Hoja.Visible = True 'Dir "C:\mis documentos" Hoja.Workbooks.Open "C:\mis documentos\Hoja.xls" 'Sheets("Hoja1").Range("A8").Value = "VALOR" 'Sheets("Hoja1").Range("A2,B4,C8").Select Hoja.Range("A8").Value = "VALOR" Hoja.Range("A2,B4,C8").Select Sheets("Hoja1").Select Hoja.ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True MsgBox "La Hoja se encuentra protegida" Hoja.ActiveSheet.Unprotect MsgBox "La hoja se ha desprotegido" End Sub Espero comentarios Saludos | |