Macro de base de datos con hoja protegida

Hola faico,

En el modulo de EsteLibro (ThisWorkbook) coloca el siguiente codigo (cambia
el nombre de la hoja y la contrasena a los que tienes en realidad), guarda
los cambios, cierra y vuelve a abrir el archivo:

Private Sub Workbook_Open()
Dim clave As String
clave = "abracadabra"
Worksheets(1).Protect Password:=clave, _
userinterfaceonly:=True
End Sub

Saludos,
KL


"faico" wrote in message
news:
Hola a todos,

Tengo esta macro que hace perfectamente lo que quiero, que es pasar los
datos diarios de un rango a una base de datos. El documento estaba casi
terminado... lo protegi las hojas y ahora la macro me dice que como he
protejido las celdas que quiero pasar que no puede.
Se que es posible accionar macros en hojas protegidas como en el caso
de tablas dinamicas protegidas que se actualice, pero alguien sabria
hacerlo con esta macro, ahi va

Sub copy_1_Values_PasteSpecial()
Dim sourceRange As Range
Dim destrange As Range
Dim Lr As Long
Application.ScreenUpdating = False
Lr = LastRow(Sheets("datos")) + 1
Set sourceRange = Sheets("horario").Range("a2:j27")
Set destrange = Sheets("datos").Range("A" & Lr)
sourceRange.Copy
destrange.PasteSpecial xlPasteValues, , False, False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Muchas gracias

Por cierto KL he encontrado una forma de hacer lo de la base de datos
en factura, es un poco engorroso pero funciona. A ver si mañana con
mas tiempo lo comento

Saludos
Faico

Hola faico,


"faico" wrote in message

Por cierto KL he encontrado una forma de hacer lo de la base de datos
en factura, es un poco engorroso pero funciona.

Eso por que lo has querido tu, no? Te pedi que me enviaras el archivo ya que
el macro que te habia enviado funcionaba perfectamente y el error que te
daba seguramente se debia a algo facil de corregir :-)

Saludos,
KL

No te llego mi email?

Saludos
Faico

No, probablemente no eliminaste las palabras (capitalizadas) NOSPAM y PLEASE
de la direccion
Si quieres pruebalo otra vez.

Saludos,
KL


"faico" wrote in message
news:

No te llego mi email?

Saludos
Faico