Beskyt ark / Fjern arkbeskyttelse i alle ark i aktuel projektmappe (Excel 2007)

[Kenneth Andersen]

Hej

Jeg sidder ofte og skal lave de samme ændringer i en projektmappe som
er beskyttet, hvor rettelsen skal laves i f.eks. 10 faner. Så skal jeg
låse fane 1 op, lave rettelsen og låse fane 1, låse fane 2 op......
osv. osv. Det tager lang tid

Er der nogen der har en god ide til hvordan dette kan gøres mere
effektivt. Kan man f.eks. med VBA låse alle ark op og låse alle ark i?

Jeg har gjort det, at jeg med "Tillad brugere at redigere områder" har
defineret, at man med password har adgang til alle celler i hver fane.
Dermed skal jeg kun låse op, og behøver ikke låse efter mig igen. Men
når jeg bruger denne funktion, kan jeg f.eks. ikke bruge søg/erstat,
så den er ikke rigtigt god.

Jeg er tvivlende om der findes en løsning på ovenstående, udover den
manuelle bøvlede metode, men man skal jo aldrig sige aldrig :-)

M.v.h.
Kenneth

[Per Jessen]

Hej Kenneth

Med VBA kan man (næsten) alt ;-)

Du skriver ikke om du anvender password, så jeg har valgt en løsning med
password, men det kan let fjernes hvis det ikke er aktuelt.

Const pWord As String = "JustMe" 'Ændres efter behov
Sub UnprotectAllSheets()
For Each sh In ThisWorkbook.Sheets
sh.Unprotect Password:=pWord
Next
End Sub

Sub ProtectAllSheets()
For Each sh In ThisWorkbook.Sheets
sh.Protect Password:=pWord
End Sub

Mvh. Per

"Kenneth Andersen" <k...@btx.dk> skrev i meddelelsen
news:ecddfeef-da7c-423d...@30g2000yql.googlegroups.com...

[Per Jessen]

Glemte lige at nævne, at nedenstående forudsættes indsat i det aktuelle
regneark. Hvis du ønske at afvikle makroen fra et andet regneark eller det
personlige makro ark, 'ActiveWorkbook.Sheets' istedet for
'ThisWorkbook.Sheets'

Per

"Per Jessen" <per.j...@mail.dk> skrev i meddelelsen
news:4cea2c82$0$36570$edfa...@dtext01.news.tele.dk...

[Denis Nissen]

>> Med VBA kan man (næsten) alt ;-)
>>
>> Du skriver ikke om du anvender password, så jeg har valgt en løsning med
>> password, men det kan let fjernes hvis det ikke er aktuelt.
>>
>> Const pWord As String = "JustMe" 'Ændres efter behov
>> Sub UnprotectAllSheets()
>> For Each sh In ThisWorkbook.Sheets
>> sh.Unprotect Password:=pWord
>> Next
>> End Sub
>>
>> Sub ProtectAllSheets()
>> For Each sh In ThisWorkbook.Sheets
>> sh.Protect Password:=pWord
>> End Sub
>>
>> Mvh. Per
>>

Hej Per

Kan man beskytte et område i et ark (eks med formler) og hvordan ændre
password?
--
Med venlig Hilsen
Denis Nissen

[Kenneth Andersen]

Hej Per

Det er simpelthen kanon. Simpelt og effektivit. Det er jo som regel
kunsten..... at tingene er simple :-)

Jeg har blot en lille rettelse. I ProtectAllSheets makroen mangler der
en Next. Således bliver makroerne:

Const pWord As String = "JustMe" 'Ændres efter behov

Sub UnprotectAllSheets()
For Each sh In ActiveWorkbook.Sheets

sh.Unprotect Password:=pWord
Next
End Sub

Sub ProtectAllSheets()
For Each sh In ActiveWorkbook.Sheets
sh.Protect Password:=pWord
Next
End Sub

Tusind tak for hjælpen.

M.v.h.
Kenneth

[Per Jessen]

Hej Dennis

Som udgangspunkt er alle celler låst når du beskytter arket. Du er
derfor nødt til at låse de celler op som du vil tillade at brugeren
indsætter data i.

Medens arket er ubeskytte, markerer du de celler, som ikke skal være
låst > Formatter > Celler > Beskyttelse > Fjern flueben i 'Låst' >
OK.

For at ændre password i makroen udskiftes JustMe med et password efter
eget valg (når arket er ubeskyttet).

Mvh. Per

>
> Hej Per
>
> Kan man beskytte et område i et ark (eks med formler) og hvordan ændre
> password?
> --
> Med venlig Hilsen

> Denis Nissen- Skjul tekst i anførselstegn -
>
> - Vis tekst i anførselstegn -

[Per Jessen]

Hej Kenneth

Velbekommmen og tak for tilbagemeldingen.

Du har helt ret, kunsten er at gøre tingene så simpelt som muligt...

Godt du selv kunne tilføje det manglende 'Next'. Det sker jo af og til
at man glemmer et next eller end if, koden ikke testes inden den
postes.

Mvh. Per

[Denis Nissen]

"Per Jessen" <perje...@hotmail.com> skrev i en meddelelse
news:47d7da0b-ca8d-4525...@g16g2000yqb.googlegroups.com...
Hej Dennis

Som udgangspunkt er alle celler l�st n�r du beskytter arket. Du er
derfor n�dt til at l�se de celler op som du vil tillade at brugeren
inds�tter data i.

Medens arket er ubeskytte, markerer du de celler, som ikke skal v�re
l�st > Formatter > Celler > Beskyttelse > Fjern flueben i 'L�st' >
OK.

For at �ndre password i makroen udskiftes JustMe med et password efter
eget valg (n�r arket er ubeskyttet).

Mvh. Per

>
Hej per

Kan man inds�tte et omr�de eks b3:b10 i macroen i stedet for alle ark?

mvh Denis

[Per Jessen]

Hej Dennis

Du kan kun kun beskytte på ark niveau som tidligere beskrevet.
Hvis du kun ønsker at beskytte B3:B10 kan du med fordel markere hele arket,
og fjerne flueben i Låst. Herefter markeres de celler som skal være låst.

Hvis det kun er et enkelt ark som skal beskyttes, er det nok lige så hurtigt
at beskytte/fjerne beskyttelsen manualt via Værktøj > Beskyt > Beskyt ark.

Mvh. Per

"Denis Nissen" <de.n...@live.dk> skrev i meddelelsen
news:icfrl1$3fj$1...@news.eternal-september.org...

>
> "Per Jessen" <perje...@hotmail.com> skrev i en meddelelse
> news:47d7da0b-ca8d-4525...@g16g2000yqb.googlegroups.com...
> Hej Dennis
>

> Som udgangspunkt er alle celler låst når du beskytter arket. Du er
> derfor nødt til at låse de celler op som du vil tillade at brugeren
> indsætter data i.
>
> Medens arket er ubeskytte, markerer du de celler, som ikke skal være
> låst > Formatter > Celler > Beskyttelse > Fjern flueben i 'Låst' >
> OK.
>

> For at ændre password i makroen udskiftes JustMe med et password efter
> eget valg (når arket er ubeskyttet).
>
> Mvh. Per
>
>>
> Hej per
>
> Kan man indsætte et område eks b3:b10 i macroen i stedet for alle ark?
>
> mvh Denis
>