Actualizar, Contraseña y Compartir archivos entre dos equipos

04/09/2006 - 01:37 por Bart | Informe spam
Hola amigos, tengo dos interrogantes, una propiamente de Excel y otra más
genérica:

La de EXCEL:
Al ejecutar algunas instrucciones con una macro que tiene celdas que están
bloquedas y ocultas, dentro de una HOJA PROTEGIDA, se genera error o
interrupción del proceso.
Luego, al DESPROTEGER la hoja si se realiza todo bien. Seguidamente anexo la
macro en particular.

La cuestión radica en que deseo ejecutar una macro en una hoja protegida
para que así el usuario pueda visualizar e introducir los valores y NO
visualizar o editar las fórmulas de otras casillas.

Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "/"

Range("P1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("P1").Select
Selection.NumberFormat = "[$-C0A]d-mmm-yy;@"
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With


La interrupción ocurre precisamente, luego que se le da el formato de fecha
a la celda P1 y se pretende copiar en B1.
Hago la salvedad que dichas celdas están sin las opciones de bloqueo y
ocultar, pero toda la hoja SI está protegida, para ocultar otras celdas.

Existe alguna manera de solucionar esto o cumplir el citado propósito sin
generar el error que interrumpe la macro ?
-
La interrogante general es la siguiente:

Tengo un Desktop y una Laptop, quisiera sincronizar de vez en cuando los
equipos para actualizar los cambios en algunos archivos que sean comunes y
que fueron editados recientemente, pero de manera automática.

Algo similar se realizaba anteriormente con EL MALETÍN de WINDOWS (en este
caso tengo XP).

Qué opciones tengo actualmente para realizar dicha tarea de actualización
sincronizada entre los equipos ?

De paso quisiera hacer algo similar con las citas, agenda, correos, etc,
entre los Outlook de ambos equipos, y tampoco encuentro una manera simple de
hacerlo, sino ir seleccionando y copiando cada ítem de un equipo a otro
dependiendo de la fecha. Existe alguna forma ? (existen programas para PALM
que permite sincronizarse con el Outlook, existirá algo similar entre DOS
OUTLOOK ?).

MUCHAS GRACIAS POR TODO,

B.S.
 

Leer las respuestas

#1 MarioParraColombia
04/09/2006 - 06:12 | Informe spam
Hola

Lo que pienso que deberias hacer para evitar el error es
1. Desproteger la hoja (con la hoja protegida)
ActiveSheet.Unprotect
2. Realizar todos los pasos que necesites en la macro y
3. Volver a proteger la hoja
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

MarioParraColombia

"Bart" escribió:

Hola amigos, tengo dos interrogantes, una propiamente de Excel y otra más
genérica:

La de EXCEL:
Al ejecutar algunas instrucciones con una macro que tiene celdas que están
bloquedas y ocultas, dentro de una HOJA PROTEGIDA, se genera error o
interrupción del proceso.
Luego, al DESPROTEGER la hoja si se realiza todo bien. Seguidamente anexo la
macro en particular.

La cuestión radica en que deseo ejecutar una macro en una hoja protegida
para que así el usuario pueda visualizar e introducir los valores y NO
visualizar o editar las fórmulas de otras casillas.

Dim RutArchivo
RutArchivo = ThisWorkbook.Path & "/"

Range("P1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("P1").Select
Selection.NumberFormat = "[$-C0A]d-mmm-yy;@"
With Selection.Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 2
End With
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With


La interrupción ocurre precisamente, luego que se le da el formato de fecha
a la celda P1 y se pretende copiar en B1.
Hago la salvedad que dichas celdas están sin las opciones de bloqueo y
ocultar, pero toda la hoja SI está protegida, para ocultar otras celdas.

Existe alguna manera de solucionar esto o cumplir el citado propósito sin
generar el error que interrumpe la macro ?
-
La interrogante general es la siguiente:

Tengo un Desktop y una Laptop, quisiera sincronizar de vez en cuando los
equipos para actualizar los cambios en algunos archivos que sean comunes y
que fueron editados recientemente, pero de manera automática.

Algo similar se realizaba anteriormente con EL MALETÍN de WINDOWS (en este
caso tengo XP).

Qué opciones tengo actualmente para realizar dicha tarea de actualización
sincronizada entre los equipos ?

De paso quisiera hacer algo similar con las citas, agenda, correos, etc,
entre los Outlook de ambos equipos, y tampoco encuentro una manera simple de
hacerlo, sino ir seleccionando y copiando cada ítem de un equipo a otro
dependiendo de la fecha. Existe alguna forma ? (existen programas para PALM
que permite sincronizarse con el Outlook, existirá algo similar entre DOS
OUTLOOK ?).

MUCHAS GRACIAS POR TODO,

B.S.

Preguntas similares