Bei WBK open werden die "Username" abgefragt. Benutzer wie "miniadmin"...........
....sollten:
1.) K e i n e Formatänderungern - wie Zeilen löschen durchführen können
2.) K e i n e Zeilen und Spalten - ein - oder ausblenden können
3.) jedoch das E i n f ä r b e n von Zellen erlaubt werden
4.) S c h r i f t f a r b e ändern erlaubt werden
Ist sowas überhaupt möglich oder "beißt sich da der Hund in den Schwanz" ;-)
Alle anderen Benutzer (Case Else) können nur öffnen, gucken und filtern!!!!
Besten Dank für eure Tipps/Hilfe
glg STeve
Dim Blatt As Worksheet
Dim Benutzer As String
Benutzer = LCase(Environ("username"))
Benutzer = "miniadmin"
Select Case Benutzer
Case Is = "oberadmin"
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Unprotect ("FA")
Next Blatt
Case Is = "miniadmin"
For Each Blatt In ActiveWorkbook.Worksheets
Blatt.Unprotect ("FA") ''' bearbeiten usw. möglich - jedoch n i c h t Zeile löschen, ein- und
'''ausblenden von
''' Spalten oder Zeilen,
'' Zellen und Schrift färben erlaubt
Next Blatt
Case Else
For Each Blatt In ActiveWorkbook.Worksheets ''alle Blätter wurden gesperrt nur die Autofilter gehen noch
Blatt.Protect ("FA"), , , , userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
Next Blatt
End Select