|
|
 | Autofilter i excel 2000
Fra :  boro23 | Vist : 712 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 : 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 : 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 |
| | |
 | 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.
| |
|
|