Zeilen ausblenden
05.11.2008 14:47:25
Frank
da mir gestern Eurer seits sehr unter die Arme geholfen wurde werde ich etwas mutiger und komme nun zu meinem nächsten "Problemchen".
Rudi hat mir gestern gezeigt wie ich den Zugriff auf eine Datei mittels NT-Kennung steuere.
Die einen dürfen nun alles der Rest nur bedingt.
Ich habe ein dabellenblatt was als Kalender fungiert. 12 Buttons für jeden Monat welche beim Betätigen in die besagte Monatszeile springt. Zum anderen wird am anfang gleich geschaut welches Datum haben wir momentan und springt dort schon mal automatisch hin. Klappt alles wunderbar. Nun soll aber gewährleistet sein, wer also keine schreib_lese Berechtigung hat darf nicht zurück scrollen - nur noch vorwärts.
Der Code der nachfolgend kommt wurde ebenfalls hier im Forum zusammen gebaut. Dort wird allerdings gehandelt dass sobald die Datei schreibgeschützt aufgeht der jenige nicht mehr rückwärtsscrollen kann. Das betrifft natürlich jetzt auch die Leute die die Berechtigung über das auslesen der NT-Kennung haben. Man müßte nun die Abfrage so umbauen wer NT-Kennungsberechtigt ist darf alles auch wenn er nur als schreibgeschützt die mappe öffnen konnte und all die anderen wie gehabt.
Könnt ihr bitte mal drüber schauen und mir einen Tip geben wie ich es anstellen kann mein Problem zu lösen.
Danke Frank
Private Sub Worksheet_activate()
Dim m As Integer, Zeile As Long
m = Month(Date)
Select Case m
Case 1
Zeile = 3
Case 2
Zeile = 67
Case 3
Zeile = 131
Case 4
Zeile = 195
Case 5
Zeile = 259
Case 6
Zeile = 323
Case 7
Zeile = 387
Case 8
Zeile = 451
Case 9
Zeile = 515
Case 10
Zeile = 579
Case 11
Zeile = 643
Case 12
Zeile = 707
End Select
Call ScrollenEinstellen(m, Zeile)
End Sub
Private Sub CommandButton_Apr_Click()
Call ScrollenEinstellen(10, 195)
End Sub
Private Sub CommandButton_Aug_Click()
Call ScrollenEinstellen(10, 451)
End Sub
Private Sub CommandButton_Feb_Click()
Call ScrollenEinstellen(10, 67)
End Sub
Private Sub CommandButton_Jan_Click()
Call ScrollenEinstellen(10, 3)
End Sub
Private Sub CommandButton_Jul_Click()
Call ScrollenEinstellen(10, 387)
End Sub
Private Sub CommandButton_Jun_Click()
Call ScrollenEinstellen(10, 323)
End Sub
Private Sub CommandButton_Mai_Click()
Call ScrollenEinstellen(10, 259)
End Sub
Private Sub CommandButton_Mar_Click()
Call ScrollenEinstellen(10, 131)
End Sub
Private Sub CommandButton_Sep_Click()
Call ScrollenEinstellen(10, 515)
End Sub
Private Sub CommandButton_Okt_Click()
Call ScrollenEinstellen(10, 579)
End Sub
Private Sub CommandButton_Nov_Click()
Call ScrollenEinstellen(11, 643)
End Sub
Private Sub CommandButton_Dez_Click()
Call ScrollenEinstellen(12, 707)
End Sub
Private Sub ScrollenEinstellen(Monat As Integer, Zeile As Long)
Dim ZeileMonat As Long
'Monat = Nummer des Monats dessen Button geklickt wurde
'Zeile = 1. Zeile für den Monat, dessen oberste Zeile angezeigt werden soll
Zeile1 = 5 'Nummer der Zeile unterhalb der Fixierten Zeilen
'Zeilennummer des aktuellen Monats festlegen
Select Case Month(Date)
Case 1
ZeileMonat = 3
Case 2
ZeileMonat = 67
Case 3
ZeileMonat = 131
Case 4
ZeileMonat = 195
Case 5
ZeileMonat = 259
Case 6
ZeileMonat = 323
Case 7
ZeileMonat = 387
Case 8
ZeileMonat = 451
Case 9
ZeileMonat = 515
Case 10
ZeileMonat = 579
Case 11
ZeileMonat = 643
Case 12
ZeileMonat = 707
End Select
Application.ScreenUpdating = False
If ThisWorkbook.ReadOnly = True Then ' Aktionen wenn Datei schreibgeschützt geöffnet wurde
If Monat