Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - ochrona przed zmianami

marcin85ss · EXCELent Man **Pomógł:** 7 razy Posty: 142

Witam

tematów ochrony akrusza było już sporo, jednak mam pewną specyficzną potrzebe. Jak zrobić, żeby po otwarciu skoroszytu nie można było zmieniać już wepełnionych komórek, a można było wpisywać tylko w tych nowych. (jednak nie tak żeby raz wpisanej wartosci nie mozna bylo usunąć przed zapisaniem pliku, każdy się może pomylić).

Po zapisaniu skoroszytu automatycznie blokują się komórki do edycji już uzupełnione opróćz tych nieypełnionych

Próbowałem z standardową ochroną, ale może jakieś marko w procedurze Woorkbook_open

Kaper · Excel Expert **Pomógł:** 1151 razy Posty: 1626

No to sobie odpowiedziałeś. Na pewno można w workbook_open
Prosty ale działający przykład w załaczniku do posta poniżej.
Do kompletu dodałbym jeszcze wymuszenie na użytkowniku otwierania z włączonymi makrami. i to już można by zacząć testować na prawdziwych userach ;-)

Pozdrawiam,

marcin85ss · EXCELent Man **Pomógł:** 7 razy Posty: 142

Fajnie działa, a jeśli chciałbym tylko część arkusza w ten sposób chronić?

Kaper · Excel Expert **Pomógł:** 1151 razy Posty: 1626

wystarczy ograniczyć obszar, w którym włączmy ochronę.
np. korzystając z intersect ograniczmy tylko do obszaru A1:C10:

Kod:

Private Sub Workbook_Open()
With Worksheets("arkusz1")
.Unprotect
.Cells.Locked = False
Intersect(.Range("A1:C10"), .Cells.SpecialCells(xlCellTypeConstants, 23)).Locked = True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
End Sub

dynamiczna_ochrona2_Kaper.zip

Pobierz Plik ściągnięto 19 raz(y) 9.05 KB