{"id":945,"date":"2011-05-18T18:02:31","date_gmt":"2011-05-18T17:02:31","guid":{"rendered":"https:\/\/david.xn--cantn-3ta.com\/blog\/?p=945"},"modified":"2011-11-12T23:17:38","modified_gmt":"2011-11-12T22:17:38","slug":"excel-impedir-que-el-cursor-se-situe-en-celda-bloqueada","status":"publish","type":"post","link":"https:\/\/david.xn--cantn-3ta.com\/blog\/informatica\/excel-impedir-que-el-cursor-se-situe-en-celda-bloqueada\/945\/","title":{"rendered":"Excel: Impedir que el cursor se situe en celda bloqueada"},"content":{"rendered":"

En Excel<\/strong> tenemos la posibilidad de proteger la hoja<\/strong> (men\u00fa Herramientas->Proteger->Proteger hoja…). Si aceptamos los valores predeterminados del cuadro de di\u00e1logo, cada vez que intentemos editar una celda bloqueada<\/strong>, se mostrar\u00e1 un mensaje advirtiendo que la celda que se intenta modificar es de s\u00f3lo lectura<\/strong>.<\/p>\n

<\/p>\n

<\/p>\n

Aunque tambi\u00e9n es posible, seg\u00fan la configuraci\u00f3n de protecci\u00f3n establecida, impedir situarnos en la celda sin mostrar mensaje, con el siguiente procedimiento vamos un paso adelante, ya que, adem\u00e1s, situaremos el cursor en la celda editable m\u00e1s cercana<\/strong>. Partiendo del origen de la selecci\u00f3n se busca la siguiente celda no bloqueada para situar el cursor en ella<\/strong>. Debe colocarse \u00edntegramente en el m\u00f3dulo de la hoja a la que debe afectar.<\/p>\n

<\/p>\n

<\/p>\n

\r\n'---------------------------------------------------------------------------------------<\/font>\r\n' Procedimiento : Worksheet_SelectionChange<\/font>\r\n' Autor         : \u00a9David (www.davidcanton.com)<\/font>\r\n' Fecha         : 28\/04\/2011<\/font>\r\n' Finalidad     : Impedir que se posicione el cursor en una celda bloqueada.<\/font>\r\n' Par\u00e1metros    : -->Target: La selecci\u00f3n.<\/font>\r\n'---------------------------------------------------------------------------------------<\/font>\r\n'<\/font>\r\n\r\nPrivate<\/font> Sub<\/font> Worksheet_SelectionChange(ByVal<\/font> Target As<\/font> Range)\r\n'Tambi\u00e9n podr\u00eda afectar a todo el libro en vez de s\u00f3lo a una hoja.<\/font>\r\n'En ese caso, habr\u00eda que incluirlo en el m\u00f3dulo \"ThisWorkbook\"<\/font> \r\n'y el procedimiento ser\u00eda: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)<\/font>\r\n    \r\n'Definici\u00f3n del \u00e1rea de trabajo<\/font>\r\n'Const FILAPRIMERA = 3<\/font>\r\nConst<\/font> FILAULTIMA = 34\r\nConst<\/font> COLUMNAPRIMERA = 3\r\nConst<\/font> COLUMNAULTIMA = 6\r\n   \r\n    Dim<\/font> iFila As<\/font> Integer<\/font>, iColumna As<\/font> Integer<\/font>\r\n    Dim<\/font> rngCelda As<\/font> Range\r\n\r\nOn<\/font> Error<\/font> GoTo<\/font> Worksheet_SelectionChange_Error\r\n\r\n    'Si se selecciona un \u00e1rea desbloqueada<\/font>\r\n    'o si la hoja no est\u00e1 protegida... No hacer nada<\/font>\r\n    If Not<\/font> Target.Locked Or Not<\/font> Application.ActiveSheet.ProtectContents Then<\/font> Exit<\/font> Sub<\/font>\r\n\r\n    'Si estamos aqu\u00ed es porque hemos seleccionado una o varias celdas bloqueadas<\/font>\r\n    If<\/font> Target.Row > FILAULTIMA Or<\/font> (Target.Row = FILAULTIMA And<\/font> Target.Column > COLUMNAULTIMA) Then<\/font>\r\n        'Si estamos por debajo de la \u00faltima fila<\/font>\r\n        'o a la derecha de la \u00faltima columna y en la \u00faltima fila...<\/font>\r\n        Set<\/font> rngCelda = Cells(FILAULTIMA, COLUMNAULTIMA)\r\n        rngCelda.Select\r\n    Else<\/font>\r\n        'La situaci\u00f3n m\u00e1s ordinaria:<\/font>\r\n        'Hemos seleccionado, al menos, una celda bloqueada<\/font>\r\n        'situada en el \u00e1rea de trabajo: antes de Cells(FILAULTIMA, COLUMNAULTIMA)<\/font>\r\n        iColumna = Target.Column\r\n        For<\/font> iFila = Target.Row To<\/font> FILAULTIMA\r\n            Do<\/font> While<\/font> iColumna <= COLUMNAULTIMA\r\n                Set<\/font> rngCelda = Cells(iFila, iColumna)\r\n                If<\/font> Not<\/font> rngCelda.Locked Then<\/font>\r\n                    rngCelda.Select\r\n                    Exit<\/font> For<\/font>\r\n                End<\/font> If<\/font>\r\n                iColumna = iColumna + 1\r\n            Loop\r\n            iColumna = COLUMNAPRIMERA\r\n        Next<\/font> iFila\r\n    End<\/font> If<\/font>\r\n\r\nWorksheet_SelectionChange_Salida:\r\nOn<\/font> Error<\/font> Resume<\/font> Next<\/font>\r\n    Set<\/font> rngCelda = Nothing<\/font>\r\n    Exit<\/font> Sub<\/font>\r\n\r\nWorksheet_SelectionChange_Error:\r\n    MsgBox \"Error \" & Err.Number & \": \" & Err.Description & Chr(13) & Chr(10) & \"Worksheet_SelectionChange\"\r\n    Resume<\/font> Worksheet_SelectionChange_Salida\r\n\r\nEnd<\/font> Sub<\/font><\/pre>\n
<\/code><\/p>\n","protected":false},"excerpt":{"rendered":"
En Excel tenemos la posibilidad de proteger la hoja (men\u00fa Herramientas->Proteger->Proteger hoja…). Si aceptamos los valores predeterminados del cuadro de di\u00e1logo, cada vez que intentemos editar una celda bloqueada, se mostrar\u00e1 un mensaje advirtiendo que la celda que se intenta modificar es de s\u00f3lo lectura.<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[10],"tags":[65,80],"class_list":["post-945","post","type-post","status-publish","format-standard","hentry","category-informatica","tag-microsoft-excel","tag-vba"],"_links":{"self":[{"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/posts\/945","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/comments?post=945"}],"version-history":[{"count":0,"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/posts\/945\/revisions"}],"wp:attachment":[{"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/media?parent=945"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/categories?post=945"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/david.xn--cantn-3ta.com\/blog\/wp-json\/wp\/v2\/tags?post=945"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}