Förbättring II

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…

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter

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 felkod? 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

------------------
Tack på förhand!
Det är svårt när förmågan/kunskaperna vida överstiger idéerna/Peter