border
VB 6
 
 
/

Retroceder   VB-MUNDO - Visual Basic, y mucho mas > Programacion > Visual Basic 6.00
Olvidó Password? Registrarse!
Registrarse FAQDonate Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

El Mejor Hosting .NET Framework 4.0

En VB-MUNDO usamos el increible servicio de SmarterASP

Respuesta
 
LinkBack (1) Herramientas
  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: 171
Créditos: 5.891
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.778
Créditos: 29.600
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: 171
Créditos: 5.891
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: 171
Créditos: 5.891
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 10:07:47.

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


right
Inactive Reminders By Icora Web Design