popipipo
Meubilair
- Lid geworden
- 21 nov 2006
- Berichten
- 8.419
Collega’s moeten foto’s beoordelen en dit in dit excel bestand noteren.
Via VBA verander ik de celopmaak van enkele cellen naar "0;-0;;"
Hierdoor wordt de inhoud van de cel niet meer zichtbaar voor anderen.
Het bereik van deze opmaak moet aangepast worden als er een 2e en 3e enz reeks foto’s beoordeeld moet worden.
Hoe is dit het eenvoudigst op te lossen.
Via VBA verander ik de celopmaak van enkele cellen naar "0;-0;;"
Hierdoor wordt de inhoud van de cel niet meer zichtbaar voor anderen.
Het bereik van deze opmaak moet aangepast worden als er een 2e en 3e enz reeks foto’s beoordeeld moet worden.
Hoe is dit het eenvoudigst op te lossen.
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) '
Dim Sh
For Each Sh In Sheets
' If Sh.Name <> "instellingen" Then
If Left(Sh.Name, 1) <> "_" Then
[COLOR="#FF0000"] 'HOE kan ik de regels hier onder het eenvoudigst aanpassen bij uitbreiding van het bestand.
'dus ("F21:J30") wordt ("F21:J30,Q21:U30") en daarna ("F21:J30,Q21:U30,AB21:AF30") enz.
[/COLOR]
With Sh.Range("F21:J30")
.Locked = False
.SpecialCells(2).NumberFormat = "0;-0;;"
.SpecialCells(2).Locked = True
'.Protect Password:="zz"
End With
End If
Next
End Sub