Codigo no funciona en office 2013
Publicado por Stevenson (4 intervenciones) el 05/06/2015 17:00:05
Que cambios debo realizar para que el siguiente código funciones en la versión de Office 2013
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub Nuevo()
'
Hoja1.Unprotect Password:="123"
Application.ScreenUpdating = False
a = WorksheetFunction.CountA(Hoja1.Range("A6:A65536"))
If Hoja1.Range("A6") <> "" Or a = 0 Then
Rows(a + 5 + 1 & ":" & a + 5 + 1).Select
Selection.Copy
Rows("6:6").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("C6").Value = Date
Range("E6").Value = "Entorno"
Range("D6").Value = "Pendiente"
Range("F6").Value = "Asignar"
Range("B6").Value = "Aquí describa la tarea"
Range("A6").Value = "Elegir"
Range("G6").Value = "Fecha Entrega"
Range("A6:G6").Select
Selection.locked = False
Hoja1.Range("A6").Select
End If
Hoja1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Sub locked()
Hoja1.Unprotect Password:="123"
Hoja1.Range("B6:C6,G6").Select
Selection.locked = True
Hoja1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
ActiveSheet.EnableSelection = xlUnlockedCells
ActiveWorkbook.Save
End Sub
Valora esta pregunta


-1