Hvordan kan jeg beskytte alle regneark i en Excel-arbeidsbok med et enkelt klikk?

stemmer
7

Jeg har rundt 25 regneark i min arbeidsbok (Excel regneark). Er det en måte jeg kan beskytte alle de 25 regneark i ett klikk? eller denne funksjonen ikke er tilgjengelig, og jeg er nødt til å skrive en VBA-kode for å oppnå dette. Jeg trenger ofte å beskytte alle ark og oppheve alle ark og gjør individuelt er tidkrevende

Publisert på 10/10/2008 klokken 11:58
kilden bruker
På andre språk...                            


4 svar

stemmer
14

Jeg tror ikke det er en måte å gjøre det uten å bruke VBA. Hvis du er interessert i en VBA-løsning, her er koden:

Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Protect Password:=pwd
Next ws

Opphev beskyttelse er nesten det samme:

Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Unprotect Password:=pwd
Next ws
Svarte 10/10/2008 kl. 12:02
kilden bruker

stemmer
3

Tror ikke det er en knapp for å gjøre det, men det er enkelt nok kode:

For hvert protSheet I regneark protSheet.Protect Passord: = "boo" Neste protSheet

Svarte 10/10/2008 kl. 12:05
kilden bruker

stemmer
1

Du kan beskytte arbeidsboken i stedet for hvert ark, og dette vil stoppe endringer blir gjort over hele arbeidsboken

Svarte 30/12/2008 kl. 10:24
kilden bruker

stemmer
1

Du kan beskytte alle regnearkene fra bruker endringer, men fortsatt tillate VBA skript for å gjøre endringer med "UserInterfaceOnly" alternativet. Denne løsningen lar deg kjøre noen VBA script på regnearkene uten å måtte beskytte og oppheve hver gang:

Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
or Each ws In Worksheets
   ws.Protect Password:=pwd, UserInterfaceOnly:=True
Next ws

Opphev beskyttelse er den samme som den løsningen som tilbys av Ben Hoffstein:

Dim ws as Worksheet
Dim pwd as String

pwd = "" ' Put your password here
For Each ws In Worksheets
    ws.Unprotect Password:=pwd
Next ws

Du får tilgang til denne makroen med en knapp / snarvei. I Excel 2010 du høyreklikke på verktøylinjen for hurtigtilgang og velg "Tilpass Quick Access Toolbar". I rullegardinmenyen for å velge kommandoer, velg "Makroer". Klikk deretter VBA script du opprettet for å beskytte (eller oppheve). Til slutt klikker du på "Legg til>>" knappen og deretter "OK" for å lagre den.

Svarte 10/12/2015 kl. 14:50
kilden bruker

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more