Hallo Excel-Community,
ich probiere mich gerade an einem VBA-Code zum Thema Blattschutz aus, bekomme aber den Ansatz für den Code nicht hin. Es geht um eine Arbeitsmappe mit 4 Registerblättern. Eines davon (Registerblatt "org") enthält administrative und dokumentarische Daten. Hier sollen in den Zellen A5 bis A101 Windows-Benutzerkennungen "manuell" (nicht automatisiert!) eingetragen werden. Nur wer hier als Nutzer eingetragen ist, soll einen schreibenden Zugriff auf das besagte Registerblatt "org" bekommen. Alle anderen Nutzer sollen auf dieses Blatt nur lesenden Zugriff haben. Passwörter sollen nicht eingesetzt werden. Der schreibende Zugriff soll lediglich über die manuell eingetragenen Nutzer gesteuert werden.
Ich habe ein paar Code-Ansätze mit der ENVIRON-Funktion gefunden ...
Dim User as Variant
User = Environ ("USERNAME")
... anschließend mit einer If/Then-Funktion für den USERNAME ...
oder mit "Const cAllowedUser", aber das hat mich bisher nicht zum Ziel gebracht.
Habt Ihr mir hierzu einen Tipp oder einen Codevorschlag ?
Besten Dank !
Flo