MS Excel - przesuwający się zakres możliwości edycji - ochrona arkusza

1
0
1

Witam.

Proszę o pomoc/poradę.

Posiadam zablokowany arkusz z dodanym zakresem możliwej edycji (wiersz 5:5).

Po wypełnieniu danych w wierszu uruchamia się kod:

Case "TAK"

 
        ActiveSheet.Unprotect Password:="xxx"
        ActiveWorkbook.Unprotect Password:="xxx"

MsgBox ("Zapisano dane!")


    Rows("5:5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("1:1").Select
    Selection.Copy
    Rows("5:5").Select
    ActiveSheet.Paste
    Selection.EntireRow.Hidden = False
    
           
     
        ActiveWorkbook.Protect Password:="xxx", Structure:=True, Windows:=False
        ActiveSheet.Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True

Problem - kwerenda dodająca wiersz przesuwa Odblokowany zakres, powodując powrotne zablokowanie wiersza 5:5. Czy można na AMEN zablokować zakres w funkcji " Zezwalaj użytkownikowi na edycję zakresu", tak aby dodanie wiersza nie powodowało przesunięcia?

Dziękuję za pomoc.

Zapytał
@ marg | 21.12.2018
- 1
- 0
- 0

0

Rows(5).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Rows(1).Copy Rows(5)

With Rows(5)
   .Locked = False
   .Hidden = False
End With

Jeżeli piąty wiersz po wstawieniu nad nim nowego ma zostać zablokowany, zastąp pierwszą linijkę powyższego makra taką konstrukcją:

With Rows(5)
   .Locked = True
   .Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With

Skomentuj

Odpowiedział
@ Mirosław_Janiak | 21.12.2018
- 1
- 7
- 1

Pytanie