04. januar 2007 - 09:55Der er
4 kommentarer og 1 løsning
Slette ikke-låste celler i beskyttet ark
Hej! Det er lang tid siden jeg har været her - godt nytår til alle :-).
Jeg har et lille issue: - Jeg har en workbook, som fungerer som salgsværktøj, hvor man kan indtaste i udvalgte celler, hvorefter andre beregnes. - Arkene er beskyttet, så sælgeren ikke kan rode i de forkerte celler - Jeg vil gerne kunne give sælgerne en "Nulstil formular" knap/funktion, så de ikke skal lukke/åbne filen eller slette celler manuelt hver gang de vil starte forfra. Kan det lade sig gøre, somehow, når arket er beskyttet?
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
eller.. rem Skal tilpasses rem ============== Const antalRæk = 25 'største antal rækker i arkene Const antalKol = 14 '- - kolonner - Sub SletEjLåsteCeller() Dim r, k For Each ark In ActiveWorkbook.Sheets ActiveWorkbook.Sheets(ark.Name).Activate
For r = 1 To antalRæk For k = 1 To antalKol If Cells(r, k).Locked = False Then Cells(r, k) = "" End If Next k Next r Next End Sub
Sub Knap1_Klik() Dim rcell As Range Dim sh As Worksheet For Each sh In ThisWorkbook.Worksheets For Each rcell In sh.UsedRange If rcell.Locked = False Then rcell.ClearContents Next Next End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
