/ Forside/ Teknologi / Administrative / MS-Office / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 8989
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Autofilter i excel 2000
Fra : boro23
Vist : 668 gange
100 point
Dato : 27-09-05 13:41

Har lavet en lille database i excel 2000, som indeholder nogle formler, dem vil jeg gerne beskytte mod redigering og samtidig vil jeg gerne kunne bruge autofilter, hvordan gør jeg det? Har set det virke i excel 2003.

 
 
Kommentar
Fra : henrikdj


Dato : 27-09-05 16:30

I Excel 2003 virker beskyttelsen jo på følgende måde:

Formater-> Celler
Fanen 'Beskyttelse'
Parameteren 'Låst'
Denne er sat til JA som standard. Derfor skal den så fjernes for de celler der må redigeres i.
Alternativt kan du markere hele arket - fjerne hakket i den ovennævnte fane - og så markere og beskytte de celler der ikke må redigeres.
Herefter beskyttes arket:
Funktioner -> beskyttelse -> beskyt ark
Her kan du vælge at alle brugere må benytte autofilter

Om det virker på samme måde i Excel 2000 ved jeg ikke.

mvh
Henrik

Kommentar
Fra : henrikdj


Dato : 27-09-05 16:31

HUSK at vælge et password du kan huske - det kan ikke findes igen hvis du glemmer det (såvidt jeg ved)!!

Kommentar
Fra : Rosco40


Dato : 27-09-05 16:46

Hvis du har mod på VBA så kan denne gøre det
[Code]

Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Data")
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub


Kommentar
Fra : Rosco40


Dato : 28-09-05 09:39

Tast alt+F11 , Vælg this Worbook, læg koden der,
("Data") , er arkets navn, ARK1 eller hvad du nu har kaldt det
"password" , Her kan du skrive den adgangskode der skal beskytte arket.
Koden fra før manglede et linieskft, her er den korrekte.
[Code]
Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Data")
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="password", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Kan sende et eksempel hvis du skulle ønske det.


Kommentar
Fra : Rosco40


Dato : 28-09-05 09:41

Den vil ikke vise det som jeg skrev det.
Husk linieskift efter
End If


Kommentar
Fra : boro23


Dato : 28-09-05 10:15

Hej Rosco40

Jeg har aldrig prøvet dette her før, jeg gør et forsøg. Du må meget gerne sende et eksempel.

Kommentar
Fra : boro23


Dato : 28-09-05 10:42

Har omdøbt arket, lavet linieskift efter End if, indlagt nyt password i this workbook. men det virker ikke. Skal autofilter være slået til før eller efter koden er indsat? Skal arkbeskyttelse være sat til eller er formlerne beskyttet når koden er indsat?

Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Ferieplan_uge_01-27")
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="ttu", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub

Kommentar
Fra : Rosco40


Dato : 28-09-05 10:54

Det virker når du genåbner arket.

Kommentar
Fra : boro23


Dato : 28-09-05 11:04

Du har ret, det virker. Men hvad gør jeg hvis der er flere ark i samme fil, hvor autofilter skal bruges?

Kommentar
Fra : Rosco40


Dato : 28-09-05 11:10

det har jeg ikke prøvet.
forslag:
indsæt en ekstra linie med,
With Worksheets("Ark2")



Kommentar
Fra : Rosco40


Dato : 28-09-05 11:13

Og en ekstra linie med
End With


Accepteret svar
Fra : Rosco40

Modtaget 100 point
Dato : 28-09-05 11:17

Hvis Ark2 skal filtreres på kolonne B
Skal koden se sådan ud.
[Code]
Private Sub Workbook_Open()
'check for filter, turn on if none exists
With Worksheets("Ark1")
If Not .AutoFilterMode Then
.Range("A1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="2222", _
Contents:=True, UserInterfaceOnly:=True
End With
With Worksheets("Ark2")
If Not .AutoFilterMode Then
.Range("B1").AutoFilter
End If
.EnableAutoFilter = True
.Protect Password:="2222", _
Contents:=True, UserInterfaceOnly:=True
End With
End Sub


Godkendelse af svar
Fra : boro23


Dato : 28-09-05 11:44

Tak for svaret Rosco40. Kanon så er min dag reddet og 1000 tak
                        

Kommentar
Fra : Rosco40


Dato : 28-09-05 11:56

Det var så lidt.

Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 176976
Tips : 31936
Nyheder : 719565
Indlæg : 6404933
Brugere : 218808

Månedens bedste
Årets bedste
Sidste års bedste