Macro para Insertar Fila en Hoja de Datos Bloqueada
Publicado por Diana C (3 intervenciones) el 06/11/2018 16:00:34
Quiero en un excel insertar fila solo desde cierto renglón hacia abajo al oprimir un botón que dirá insertar, pero quiero que la macro me quite la contraseña, inserte el renglón y vuelva a bloquear la hoja. Buscando en Internet esto es lo que tengo pero no corre. No tengo conocimiento alguno en cuanto a macros
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Desbloquear()
'
' Insertar Macro
'
Dim pswStr As String
pswStr = "123"
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Range("A" & x).Value = "P" Then
Range("A" & x).EntireRow.Insert '<---inserta toda una nueva fila
Range("A" & x).Value = "FE"
End If
Next x
End Sub
Valora esta pregunta
0
