Arbeitsmappe freigeben Blattschutz ein und ausscha
18.01.2007 17:43:14
Holger
ich möchte gerne über VBA eine Freigegebene Arbeitsmappe Tabellenblätter den Blatt schutz ein bzw. ausschalten.
Mit ScrollArea habe ich es schon versucht, ist keine lösung, da andere sich den ganzen bereich ansehen dürfen nur keine änderungen machen sollen.
Habe es mit folgendem versucht, läuft aber nur wenn die Arbeitsmappe nicht freigegeben ist.
Private Sub Worksheet_Activate()
ActiveSheet.Protect
Application.ScreenUpdating = False
Anwender = Application.UserName
Application.Volatile
Application.UserName = Anwender
D = Range("P1").Value
If D = "Du darfst alles" Then GoTo ende
If D = "Du darfst auch alles" Then GoTo ende
ActiveSheet.Protect
GoTo Fehler
ende:
ActiveSheet.Unprotect
Fehler:
End Sub
Wäre nett wenn mir einer helfen könnte
Anzeige