Bruge "Grupper og disposition" i en beskyttet excelfil
Kenneth Andersen
Jeg er ved at lave et exceldokument som brugere skal indtaste nogle
data i. Da jeg gerne vil sikre at brugerene ikke ødelægger filen, er
den skrivebeskyttet, så kun de celler de må taste i er låst op.
Jeg har brug for at brugerene kan indtaste detaljerede data, men
derefter har jeg brug for at kunne nøjes med at vise totalerne,
hvorfor jeg ønsker at bruge "Grupper" i menuen Data => Grupper og
disposition => Grupper.
Problemet er nu, at når jeg laver en gruppering og efterfølgende
beskytter filen/fanen, så kan jeg ikke klappe gruppen ud og sammen
igen.
Er der nogen der kan løse dette problem for mig, eller alternativt kan
sige med sikkerhed, at jeg leder efter noget der ikke kan lade sig
gøre?
På forhånd tak.
M.v.h.
Kenneth
Allan Mortensen
For at løse denne udfordring, skal du beskytte dit ark ved hjælp af et lille
VBA-Script.
Det ser således ud:
'*******************
Sub Laas()
With ActiveSheet
.Protect Password:="DIN KODE", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub
'*******************
DIN KODE = den kode du vil beskytte arket med.
Har ikke erfaring i VBA, så send arket til mig, så skal jeg sætte det ind
for dig.
Min adresse er: info snabela excel-regneark.dk
Mvh
"Kenneth Andersen" <k...@btx.dk> skrev i en meddelelse
news:90003a72-cd42-4f38...@w7g2000hsa.googlegroups.com...
Kenneth Andersen
Imponerende - det virker :-)
Men (for der er et men) det er jo lidt en skam at dette skal løses med
makro (men hvis excel er lavet sådan at man ikke kan løse det uden -
så er det jo sådan det er), for jeg er lidt imod at brugerne skal sige
"Med makroer" når de åbner regnearket for at det virker efter
hensigten.
Jeg har haft dette problem i andre situationer også, og har forsøgt at
løse det ved at signere VBA koden digitalt, for så er det muligt at
sige at man stoler på makroer fra mig - men det er ikke alle der kan
svare sådan, så der er stadig langt over halvdelen af de brugere som
anvender mine filer, som ikke kan vælge at de altid vil stole på
makroer fra mig. Det er i øvrigt ikke på grund af for højt
makrosikkerhedniveau... det har jeg tjekket.
Ved du hvordan man løser den?
M.v.h.
Kenneth
Allan Mortensen
Hej Kenneth,
Det er en problematik man tit løber ind i, det kan jeg kun giver dig ret i.
En lidt alternativ måde at møde problemet på, kunne være at tvinge Excel til
altid at gemme når filen lukkes.(med mindre den er skrivebeskyttet
naturligvis)
Jeg har i dette eksempel valgt at skjule alle ark undtagen et, på dette ark
kan man gøre brugeren opmærksom på at makroer er nødvendige for at bruge
arket. (I eksemplet hedder dette ark 'ArkNavn')
Denne VBA-stump, forhindrer brugeren i at benytte arket uden at åbne med
makroer
Selvfølgelig kan man bryde denne sikkerhed forholdvis nemt, men den kan
sagtens udbygges så det bliver mere kryptisk at bryde den.
Denne kode placeres i THISWORKBOOK
'*****'''www.excel-regneark.dk*****
Private Sub Workbook_Open()
For Each sh In Sheets: sh.Visible = True: Next
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.ReadOnly = True Then Exit Sub
Application.ScreenUpdating = False
For Each sh In Sheets
If sh.Name <> "ArkNavn" Then sh.Visible = False
Next sh
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
'******************************
Med venlig hilsen
Allan Thustrup Mortensen
www.excel-regneark.dk
"Kenneth Andersen" <k...@btx.dk> skrev i en meddelelse
news:95885adf-8336-41f4...@34g2000hsh.googlegroups.com...
Kenneth Andersen
Ja - jeg havde det jo lidt på fornemmelsen. Jeg har nemlig søgt vidt
og bredt efter en løsning på, hvorfor jeg på visse PC'ere ikke kan
sige "Allways trust" til makroer jeg har lavet - og løsningen er ikke
dukket op endnu.
Den kode du lavede vil jeg nok ikke bruge til dette formål, men der er
bestemt stumper i koden jeg kan bruge, for det med at skjule alle
sheets undtagen et har jeg brug for, og tidligere har jeg løst dette
ved at sige skjul Ark1 + skjul Ark2 + skjul Ark3....... - og det er en
lidt dum løsning.
Mange tak for hjælpen :-)
M.v.h.
Kenneth
Allan Mortensen
Super at der var noget du kunne bruge, desværre voksede træerne ikke helt
ind i himlen.
Sig endelig til en anden gang Kenneth, det var rart at kunne hjælpe.
Mvh
Allan
www.excel-regneark.dk
"Kenneth Andersen" <k...@btx.dk> skrev i en meddelelse
news:d70a190b-e8f2-4ecd...@b30g2000prf.googlegroups.com...