---
title: "Förbättring II"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/23418-förbättring-ii"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "prls"
published: "2001-07-23T18:54:00.000Z"
updated: "2001-07-23T20:11:00.000Z"
replies: 1
views: 360
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/kontorsprogram/23418-förbättring-ii"
---

# Förbättring II

## #1 — prls, 2001-07-23T18:54Z

Har gjort en ny förbättring. Allt fungerar på min burk, men.….
…men som vanligt undrar jag om detta är ren tur?

Med koden….. 1)\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\> Sub ClearRanges()
Dim wsOmrade As Worksheet
Dim bNastakolumn As Byte
Set wsOmrade = ActiveWorkbook.Worksheets("Vätskebalans")
Application.ScreenUpdating = False
With wsOmrade
wsOmrade.Unprotect password:="\*\*\*\*\*\*"
If Not IsEmpty("K7") Then
.Range("E7:K8, E15:K36, E38:K42, E46:K49").ClearContents
End If
wsOmrade.Protect password:="\*\*\*\*\*"
End With
ActiveWorkbook.Save
End Sub…..tillsammans med 2) från ”ThisWorkbook”\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\> Private Sub Workbook_Open()
ClearRanges
Infoga_Datum
End Sub

 …har jag tänkt att när dokumentet öppnas så kontrolleras om sista datumet ät I fyllt?
Om ja, så skall vissa celler tömmas, men cellernas formatering bibehållas, om nej så skall datumet infogas som förut…

Permalänk: https://www.webforum.nu/p/23418

## #2 — prls, 2001-07-23T20:11Z

Svaret på din fråga bör väl vara ett nej?? 
Jag tänker så här:
1) När jag öppnar är ju arbetsboken låst
2) sen kollar jag om villkoret stämmer, om det stämmer låses koden upp Och låses sedan igen. MEN ändringarna sparas inte…

**MEN** har inte Du skrivit **fel**kod? Eller så fattar jag inte riktigt?? 
Eftersom Du utelämnar ”with” så hänvisar Du ju inte till kalkylbladet vätskebalans någonstans? Du bara definiera det som Omrade?
Borde inte varit: \<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\> wsOmrade.Range("E7:K8, E15:K36, E38:K42, E46:K49").ClearContents

Permalänk: https://www.webforum.nu/p/362605

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/23418-förbättring-ii