border
VB 6
 
 
  1 links from elsewhere to this Post. Click to view. #1 (permalink)  
Antiguo 24-06-2009, 02:51:48
Gran Participación en el Foro
 
Registrado: mar 2009
Ubicación: Venezuela
Posts: 164
Créditos: 5.187
alvarezdda Aun no valorado
Contactar con alvarezdda a través de MSN
Smile Bloquear y Desbloquear hoja de excel desde VB

Hola como estan todos, gracias por el apoyo brindado. espero que esten todos bien.

Mi pregunta es. tengo un informe que envio a excel desde visual basic.
No quiero que el usuario pueda modificar las celdas.
Habia bloqueado las celdas con contraseña pero luego al entrar al programa
cuando va a escribir en la hoja me dice que esta bloqueada.
Yo le coloque contraseña... Cual es la manera de que me abra la hoja con la clave que le coloque. o sino como abrir la hoja y luego colocarle la contraseña para que no la modifiquen no quiero que modifiquen las celdas.
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 24-06-2009, 07:51:11
Avatar de gilman
Moderador
 
Registrado: feb 2007
Ubicación: Bilbao
Posts: 1.758
Créditos: 28.273
gilman Valoración +2
Predeterminado Re: Bloquear y Desbloquear hoja de excel desde VB

¿Es esto lo que necesitas?

Código:
Dim x As New Excel.Application
Dim y As Excel.Workbook
Dim s As Excel.Worksheet

Set y = x.Workbooks.Add
Set s = y.Sheets(1)
s.Cells(1, 2) = "valor"

y.SaveAs "d:\basura\file.xls", , "password"
y.Close


Set y = x.Workbooks.Open("d:\basura\file.xls", , False, , "password")

Set s = y.Sheets(1)
s.Cells(1, 3) = "otro valor"

y.Close True
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 25-06-2009, 17:00:18
Gran Participación en el Foro
 
Registrado: mar 2009
Ubicación: Venezuela
Posts: 164
Créditos: 5.187
alvarezdda Aun no valorado
Contactar con alvarezdda a través de MSN
Question Lo intente pero no me funciono.

ruta = App.Path & "\Ingresos.xls"
Dim ap As New Excel.Application
ap.Workbooks.Open (ruta), , , , ("12345")
ap.DisplayAlerts = False
ap.Workbooks(1).Worksheets.Select
ap.ActiveWorkbook.Unprotect "12345"
ActiveSheet.Unprotect Password:="12345"
Sumaing = 0


ap.Worksheets(1).Range("b" & 5).Value = Format(Date, "long date")


probe esto pero tampoco me funciona. ese es la primera parte del codigo.
Me dice ERROR 1004 en tiempo de ejecucion
Error en el metodo Unprotect de la clase worksheet.
he probado con varios ejemplos y nada no consigo desbloquear las celdas para q el visual escriba
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #4 (permalink)  
Antiguo 25-06-2009, 17:05:44
Gran Participación en el Foro
 
Registrado: mar 2009
Ubicación: Venezuela
Posts: 164
Créditos: 5.187
alvarezdda Aun no valorado
Contactar con alvarezdda a través de MSN
Exclamation Probe de esta forma y tambien da error

ruta = App.Path & "\Ingresos.xls"
Dim ap As New Excel.Application
ap.Workbooks.Open (ruta), , False, , "12345"
ap.DisplayAlerts = False
ap.Workbooks(1).Worksheets.Select
ap.ActiveWorkbook.Unprotect "12345"
Sumaing = 0

ap.Worksheets(1).Range("b" & 5).Value = Format(Date, "long date")

Me dice que las celdas que estoy intentando modificar son de solo lectura
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado

LinkBacks (?)
LinkBack to this Thread: http://www.foro.vb-mundo.com/f24/bloquear-y-desbloquear-hoja-de-excel-vb-15929/
Escrito Por For Type Fecha
Excell proteger Celdas - Buscador de Webmasters This thread Refback 13-07-2010 19:00:18


La franja horaria es GMT. Ahora son las 14:48:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
© VB-MUNDO CO. Todos los derechos reservados
Tutoriales Premium | Juegos Online 


right

Programacion, vb 6, visual basic, foro programacion

Inactive Reminders By Icora Web Design