AutoExpand Table in Protected Sheet

[Catalin B.]

Pentru cei au nevoie sa lucreze cu foaia de lucru protejata, dar vor sa pastreze si functiunea de autoexpandare automata a tabelului si autocompletarea cu formule(foarte utile dar care nu functioneaza daca foaia de lucru este protejata) , se poate utiliza codul urmator (in modulul VB al foii de lucru):

Cod: Selectaţi tot

Option Explicit
Private Declare Function OpenClipboard Lib "User32" _
(ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "User32" () As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OpenClipboard 0
If Range("AutoExpand") = "Disabled" Then CloseClipboard: Exit Sub
On Error Resume Next

If (Target.Row = Range("TestTable").Rows.Count + 2 And _
    Target.Column < Range("TestTable").Columns.Count + 1 And _
    Target.Cells.Count = 1 And _
    IIf(Target.Row > 1, Target.Cells.Offset(-1, 0).Locked = False, Target.Cells.Locked = False)) Or _
      (Target.Row < Range("TestTable").Rows.Count + 2 And _
       Target.Column = Range("TestTable").Columns.Count + 1) Then

   Unprotect
   CloseClipboard
Else
   Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingRows:=True, AllowSorting:=True, _
        AllowFiltering:=True, AllowUsingPivotTables:=True
   CloseClipboard
End If
On Error GoTo 0
End Sub

Se poate testa si fisierul anexat. De aici, se pot construi si alte variante de "comportare" a codului, in varianta asta de exemplu, nu se pot insera randuri, dar se poate obtine si asta cu foarte mici modificari.

[RAMBO]

Foarte buna ideea, dar nu functioneaza pe 64 bit.
Este posibil un update?