code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
| Range("C1").Select
While srcCount < iLastRow
If ActiveCell <> "" Then
If ActiveCell.Text = "Full Control" Then
If Not ActiveCell.Offset(0, -1).Text = "Everyone" Then
ActiveCell.Offset(1, 0).Activate
Else
ActiveCell.EntireRow.Delete
iLastRow = iLastRow - 1
End If
Else
ActiveCell.Offset(1, 0).Activate
End If
Else
If ActiveCell.Offset(0, 1) = "" Then
srcCount = iLastRow
Else
ActiveCell.FillLeft
If ActiveCell.Text = "Full Control" Then
If Not ActiveCell.Offset(0, -1).Text = "Everyone" Then
' hier gaat het mis
ActiveCell.Offset(1, 0).Activate
Else
ActiveCell.EntireRow.Delete
iLastRow = iLastRow - 1
End If
Else
ActiveCell.Offset(1, 0).Activate
End If
End If
End If
srcCount = srcCount + 1
Wend
ActiveCell.Offset(0, 1).EntireColumn.Delete
End Sub |
Ik had een mooi vba macrotje geschreven om sharerechten die niet op FullControl stonden te filteren. Echter ik bedacht dat het ook wel eens handig kon zijn om te laten zien als er groepen zijn die Full Control rechten hadden. Alleen ActiveCell.Offset(0,-1) lijkt niet te werken...
mag ik de -1 niet gebruiken?
edit: oh ik ben natuurlijk aan't zoeken maar de help is niet echt duidelijk hierover...
[ Voor 11% gewijzigd door Verwijderd op 20-07-2004 17:39 ]
